diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-17 15:32:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-17 15:32:00 +0000 |
| commit | a85a468e07d9ec4fb14a493f7dd2e561ba62dbcf (patch) | |
| tree | fe6b450101ab1fe32416e53ac4bce3b2b967ebbb | |
| parent | 36990caa7dadd67acccd181ad76d87b9889e95c6 (diff) | |
| download | emacs-a85a468e07d9ec4fb14a493f7dd2e561ba62dbcf.tar.gz | |
(report-emacs-bug): Use a different address for pretest versions.
| -rw-r--r-- | lisp/mail/emacsbug.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 520763e245a..2f2a991419b 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -38,7 +38,10 @@ (require 'sendmail) (defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu" - "Address of site maintaining mailing list for GNU Emacs bugs.") + "Address of mailing list for GNU Emacs bugs.") + +(defvar report-emacs-bug-pretest-address "emacs-pretest-bug@gnu.ai.mit.edu" + "Address of mailing list for GNU Emacs pretest bugs.") (defvar report-emacs-bug-orig-text nil "The automatically-created initial text of bug report.") @@ -48,7 +51,13 @@ "Report a bug in GNU Emacs. Prompts for bug subject. Leaves you in a mail buffer." (interactive "sBug Subject: ") - (if (mail nil bug-gnu-emacs topic) + (if (mail nil + (if (string-match "\\..*\\..*\\." emacs-version) + ;; If there are four numbers in emacs-version, + ;; this is a pretest version. + report-emacs-bug-pretest-address + bug-gnu-emacs) + topic) (let (user-point) ;; The rest of this does not execute ;; if the user was asked to confirm and said no. |