Mercurial > emacs
changeset 14815:4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 17 Mar 1996 15:32:00 +0000 |
| parents | 3793008500cd |
| children | 485422b900d3 |
| files | lisp/mail/emacsbug.el |
| diffstat | 1 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el Sun Mar 17 15:29:34 1996 +0000 +++ b/lisp/mail/emacsbug.el Sun Mar 17 15:32:00 1996 +0000 @@ -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.