From: Glenn Morris Date: Thu, 10 Dec 2009 08:17:15 +0000 (+0000) Subject: (report-emacs-bug): Use whichever send command is appropriate for the X-Git-Tag: emacs-pretest-23.1.91~141 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8194864bca798f8d84e65bf42d575eb4f43c73d;p=emacs.git (report-emacs-bug): Use whichever send command is appropriate for the mail-user-agent in use. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c91f8786d28..b3e7dbab5b5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-12-10 Glenn Morris + + * mail/emacsbug.el (report-emacs-bug): Use whichever send command is + appropriate for the mail-user-agent in use. + 2009-12-09 Michael Albinus * net/tramp.el (tramp-handle-insert-directory): Suppress error messages. @@ -225,13 +230,10 @@ 2009-12-06 Ulf Jasper - * net/newst-backend.el : - * net/newst-plainview.el: - * net/newst-reader.el: - * net/newst-ticker.el: - * net/newst-treeview.el: - * net/newsticker.el: Require/provide newst-... (instead of - newsticker-...). (Bug#5096) + * net/newst-backend.el, net/newst-plainview.el: + * net/newst-reader.el, net/newst-ticker.el: + * net/newst-treeview.el, net/newsticker.el: + Require/provide newst-... (instead of newsticker-...). (Bug#5096) 2009-12-06 Chong Yidong @@ -247,15 +249,14 @@ 2009-12-06 Ulf Jasper - * xml.el (xml-substitute-numeric-entities): Moved + * xml.el (xml-substitute-numeric-entities): Move newsticker--decode-numeric-entities in newst-backend.el to - xml-substitute-numeric-entities in xml.el. (Bug#5008) - + xml-substitute-numeric-entities in xml.el. (Bug#5008) * net/newst-backend.el (newsticker--parse-generic-feed) (newsticker--parse-generic-items) - (newsticker--decode-numeric-entities): Moved + (newsticker--decode-numeric-entities): Move newsticker--decode-numeric-entities in newst-backend.el to - xml-substitute-numeric-entities in xml.el. (Bug#5008) + xml-substitute-numeric-entities in xml.el. (Bug#5008) 2009-12-06 Daniel Colascione @@ -263,8 +264,7 @@ 2009-12-06 Chong Yidong - * ansi-color.el (ansi-color-for-comint-mode): Add :version - keyword. + * ansi-color.el (ansi-color-for-comint-mode): Add :version keyword. 2009-12-06 Roland Winkler @@ -282,10 +282,10 @@ 2009-12-06 Kevin Ryde * ffap.el (ffap-rfc-path): Make this a defcustom since - `ffap-rfc-directories' is also a defcustom. (My Bug#4514.) + `ffap-rfc-directories' is also a defcustom. (Bug#4514.) * info-look.el: Add setup for apropos-mode to use emacs-lisp-mode - manuals, similar to existing setup for help-mode. (My bug#3913.) + manuals, similar to existing setup for help-mode. (Bug#3913.) 2009-12-05 Juri Linkov @@ -1160,8 +1160,7 @@ 2009-11-24 Kevin Ryde * emacs-lisp/checkdoc.el (checkdoc-proper-noun-regexp): - Build value with regexp-opt instead of explicit joining loop. (My - Bug#4927.) + Build value with regexp-opt instead of explicit joining loop. (Bug#4927) * emacs-lisp/elint.el (elint-add-required-env): Better error message when .el source file not found or other error. @@ -3383,7 +3382,7 @@ * emacs-lisp/checkdoc.el (checkdoc-file-comments-engine): When inserting ";;; Code" put it before any ";;;###autoload" cookie on the first form. And insert a blank line after ";;; Code" since - that's usual style. (My Bug#4612.) + that's usual style. (Bug#4612) * net/dns.el: Add "Keywords: comm", as per net/net-utils.el. diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 73e61a4668d..da82e553592 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -226,9 +226,17 @@ usually do not have translators to read other languages for them.\n\n") (unless report-emacs-bug-no-explanations (with-output-to-temp-buffer "*Bug Help*" (princ "While in the mail buffer:\n\n") - (if (eq mail-user-agent 'sendmail-user-agent) - (princ (substitute-command-keys - " Type \\[mail-send-and-exit] to send the bug report.\n"))) + (let ((send + (cond ((eq mail-user-agent 'sendmail-user-agent) + "mail-send-and-exit") + ((memq mail-user-agent '(message-user-agent + gnus-user-agent)) + "message-send-and-exit") + ((eq mail-user-agent 'mh-e-user-agent) + "mh-send-letter")))) + (when send + (princ (substitute-command-keys + (format " Type \\[%s] to send the bug report.\n" send))))) (princ (substitute-command-keys " Type \\[kill-buffer] RET to cancel (don't send it).\n")) (terpri)