mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/mail/emacsbug.el (report-emacs-bug-hook): Mailclient ignores From.

Browse source
This commit is contained in:
Glenn Morris 2011-05-31 20:35:49 -07:00
parent 357e1c676c
commit d1a5d56a0c
2 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/emacsbug.el
View file

@ -331,6 +331,7 @@ usually do not have translators to read other languages for them.\n\n")
;; It's the default mail mode, so it seems OK to use its features.
(autoload 'message-bogus-recipient-p "message")
(defvar message-send-mail-function)
(defun report-emacs-bug-hook ()
"Do some checking before sending a bug report."
@ -343,6 +344,10 @@ usually do not have translators to read other languages for them.\n\n")
report-emacs-bug-orig-text)
(error "No text entered in bug report"))
(or report-emacs-bug-no-confirmation
;; mailclient.el does not handle From (at present).
(if (eq major-mode 'message-mode)
(eq message-send-mail-function 'message-send-mail-with-mailclient)
(eq send-mail-function 'mailclient-send-it))
;; Not narrowing to the headers, but that's OK.
(let ((from (mail-fetch-field "From")))
(and (or (not from)