lisp/mail/emacsbug.el

1 ;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list
30 ;; `M-x report-emacs-bug' starts an email note to the Emacs maintainers
42   "Sending Emacs bug reports."
46 (defcustom report-emacs-bug-address "bug-gnu-emacs@gnu.org"
51 (defcustom report-emacs-bug-pretest-address "emacs-pretest-bug@gnu.org"
56 (defvar report-emacs-bug-orig-text nil
57   "The automatically-created initial text of bug report.")
59 (defcustom report-emacs-bug-no-confirmation nil
64 (defcustom report-emacs-bug-no-explanations nil
70 (defun report-emacs-bug (topic &optional recent-keys)
71   "Report a bug in GNU Emacs.
72 Prompts for bug subject.  Leaves you in a mail buffer."
74   ;; the bug subject string is read.
76   ;; If there are four numbers in emacs-version, this is a pretest
78   (let* ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
81 			       report-emacs-bug-pretest-address
82 			     report-emacs-bug-address))
102     (unless report-emacs-bug-no-explanations
105 	(insert "This bug report will be sent to the Free Software Foundation,\n")
115       (insert (format "Your bug report will be posted to the %s mailing list"
119 	(insert ",\nand to the gnu.emacs.bug news group.\n\n")))
121     (insert "Please describe exactly what actions triggered the bug\n"
122 	    "and the precise symptoms of the bug:\n\n")
139     (insert "\n\nIn " (emacs-version) "\n")
199     (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info)
200     (unless report-emacs-bug-no-explanations
204 		    "Type \\[mail-send-and-exit] to send the bug report.\n")))
209 		"Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section
210 about when and how to write a bug report,
211 and what information to supply so that the bug can be fixed.
215     (add-hook 'mail-send-hook 'report-emacs-bug-hook)
219       (make-local-variable 'report-emacs-bug-orig-text)
220       (setq report-emacs-bug-orig-text (buffer-substring (point-min) (point))))
223 (defun report-emacs-bug-info ()
228   (Info-menu "emacs")
231 (defun report-emacs-bug-hook ()
237 		  (length report-emacs-bug-orig-text))
239 		      report-emacs-bug-orig-text))
240 	  (error "No text entered in bug report")))
247 	  (if (or report-emacs-bug-no-confirmation
256     (if (or report-emacs-bug-no-confirmation
258 	     "Send this bug report to the Emacs maintainers? "))
269 You invoked the command M-x report-emacs-bug,
270 but you decided not to mail the bug report to the Emacs maintainers.
275       (error "M-x report-emacs-bug was cancelled, please read *Bug Help* buffer"))