diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-12-03 15:38:48 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-12-03 15:38:48 -0500 |
commit | 821de968434d2096bdea67dd24301bf6b517aef1 (patch) | |
tree | 7569a3b8d437a285ed4038d1165093eed8a69103 /lisp/mail/emacsbug.el | |
parent | 8bea7e9ab4453da71d9766d582089154f31de907 (diff) | |
download | emacs-821de968434d2096bdea67dd24301bf6b517aef1.tar.gz |
(message-sendmail-envelope-from): Obey `mail-envelope-from` even if set later
* lisp/gnus/message.el (message-sendmail-envelope-from): Change default.
(message--sendmail-envelope-from): New function.
(message-sendmail-envelope-from): Use it.
* lisp/mail/emacsbug.el (report-emacs-bug): Use it.
Diffstat (limited to 'lisp/mail/emacsbug.el')
-rw-r--r-- | lisp/mail/emacsbug.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 1c2f11680b6..fea7619b505 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -239,8 +239,8 @@ Prompts for bug subject. Leaves you in a mail buffer." ;; Stop message-mode stealing the properties we will add. (set (make-local-variable 'message-strip-special-text-properties) nil) ;; Make sure we default to the From: address as envelope when sending - ;; through sendmail. - (when (and (not message-sendmail-envelope-from) + ;; through sendmail. FIXME: Why? + (when (and (not (message--sendmail-envelope-from)) (message-bogus-recipient-p (message-make-address))) (set (make-local-variable 'message-sendmail-envelope-from) 'header))) (rfc822-goto-eoh) |