-;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list.
+;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list
;; Copyright (C) 1985, 1994, 1997, 1998 Free Software Foundation, Inc.
(let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
user-point message-end-point)
(setq message-end-point
- (with-current-buffer (get-buffer "*Messages*")
+ (with-current-buffer (get-buffer-create "*Messages*")
(point-max-marker)))
(compose-mail (if pretest-p
report-emacs-bug-pretest-address
default-enable-multibyte-characters))
(insert "\n")
(insert "Please describe exactly what actions triggered the bug\n"
- "and the precise symptoms of the bug:\n\n")
+ "and the precise symptoms of the bug:\n\n")
(setq user-point (point))
(insert "\n\n\n"
"Recent input:\n")
please insert the proper e-mail address after \"To: \",
and send the mail again using \\[mail-send-and-exit].")))
(error "M-x report-emacs-bug was cancelled, please read *Bug Help* buffer"))
- ))
+
+ ;; Unclutter
+ (mail-text)
+ (let ((p (point)))
+ (re-search-forward (concat "^In " (emacs-version)))
+ (delete-region p (match-beginning 0)))
+ (re-search-forward "Please describe.+\n.+precise symptoms.+bug:\n*"
+ (point-max) t)
+ (replace-match "Symptoms:\n")))
(provide 'emacsbug)