Mercurial > emacs
changeset 35516:05a619c13dea
(report-emacs-bug): Mention the fact that the
bug report is mailed to an email list and posted to a news group.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 24 Jan 2001 16:51:54 +0000 |
| parents | 16956b0d13f8 |
| children | 28fcaa2d37b0 |
| files | lisp/mail/emacsbug.el |
| diffstat | 1 files changed, 13 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el Wed Jan 24 16:22:46 2001 +0000 +++ b/lisp/mail/emacsbug.el Wed Jan 24 16:51:54 2001 +0000 @@ -72,13 +72,14 @@ ;; 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 @@ (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