From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 17 Mar 1996 15:32:00 +0000 (+0000)
Subject: (report-emacs-bug): Use a different address for pretest versions.
X-Git-Tag: emacs-19.34~1045
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a85a468e07d9ec4fb14a493f7dd2e561ba62dbcf;p=emacs.git

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

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.