(report-emacs-bug): Use a different address for pretest versions.

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.