From a85a468e07d9ec4fb14a493f7dd2e561ba62dbcf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 17 Mar 1996 15:32:00 +0000 Subject: [PATCH] (report-emacs-bug): Use a different address for pretest versions. --- lisp/mail/emacsbug.el | 13 +++++++++++-- 1 file 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. -- 2.39.2