From 8ab5d35a02ec2d2f436334d4685df966678d0711 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 24 Jan 2001 16:51:54 +0000 Subject: [PATCH] (report-emacs-bug): Mention the fact that the bug report is mailed to an email list and posted to a news group. --- lisp/mail/emacsbug.el | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 54652577bf4..2e290e639dd 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -72,13 +72,14 @@ Prompts for bug subject. Leaves you in a mail buffer." ;; This strange form ensures that (recent-keys) is the value before ;; the bug subject string is read. (interactive (reverse (list (recent-keys) (read-string "Bug Subject: ")))) - (let (user-point message-end-point) + ;; If there are four numbers in emacs-version, this is a pretest + ;; version. + (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version)) + user-point message-end-point) (setq message-end-point (with-current-buffer (get-buffer "*Messages*") (point-max-marker))) - (compose-mail (if (string-match "\\..*\\..*\\." emacs-version) - ;; If there are four numbers in emacs-version, - ;; this is a pretest version. + (compose-mail (if pretest-p report-emacs-bug-pretest-address report-emacs-bug-address) topic) @@ -104,7 +105,14 @@ Prompts for bug subject. Leaves you in a mail buffer." (insert "English") (put-text-property pos (point) 'face 'highlight)) (insert ", because the Emacs maintainers do not have -translators to read other languages for them.\n\n")) +translators to read other languages for them.\n\n") + (insert (format "Your bug report will be posted to the %s mailing list" + (if pretest-p + report-emacs-bug-pretest-address + report-emacs-bug-address))) + (if pretest-p + (insert ".\n\n") + (insert ",\nand to the gnu.emacs.bug news group.\n\n"))) (insert "In " (emacs-version) "\n") (if (and system-configuration-options -- 2.39.2