mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(report-emacs-bug): Mention the fact that the

Browse source 
bug report is mailed to an email list and posted to a news group.
This commit is contained in:
Eli Zaretskii 2001-01-24 16:51:54 +00:00
parent e7e415845b
commit 8ab5d35a02
1 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/mail/emacsbug.el
View file

@ -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