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 | 8c4950fb85e938418feb91c908b3758a28b50fcf (patch) | |
tree | d903cc0c88f4e98b70a4751cf4ef102b8b45fbe0 /lisp | |
parent | 984f9444f9276131d104add18a0dc5c7a2a95332 (diff) | |
download | emacs-8c4950fb85e938418feb91c908b3758a28b50fcf.tar.gz |
(report-emacs-bug): Use a different address for pretest versions.
Diffstat (limited to 'lisp')
-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. |