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/gnus | |
| 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/gnus')
| -rw-r--r-- | lisp/gnus/message.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index f33454e7047..e60ea4f0e85 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -854,18 +854,24 @@ Doing so would be even more evil than leaving it out." :type 'boolean) (defcustom message-sendmail-envelope-from - ;; `mail-envelope-from' is unavailable unless sendmail.el is loaded. - (if (boundp 'mail-envelope-from) mail-envelope-from) + 'obey-mail-envelope-from "Envelope-from when sending mail with sendmail. If this is nil, use `user-mail-address'. If it is the symbol `header', use the From: header of the message." - :version "23.2" + :version "27.1" :type '(choice (string :tag "From name") (const :tag "Use From: header from message" header) + (const :tag "Obey `sendmail-envelope-from'" + obey-mail-envelope-from) (const :tag "Use `user-mail-address'" nil)) :link '(custom-manual "(message)Mail Variables") :group 'message-sending) +(defun message--sendmail-envelope-from () + (if (eq message-sendmail-envelope-from 'obey-mail-envelope-from) + (if (boundp 'mail-envelope-from) mail-envelope-from) + message-sendmail-envelope-from)) + (defcustom message-sendmail-extra-arguments nil "Additional arguments to `sendmail-program'." ;; E.g. '("-a" "account") for msmtp @@ -5884,11 +5890,11 @@ give as trustworthy answer as possible." (defun message-sendmail-envelope-from () "Return the envelope from." - (cond ((eq message-sendmail-envelope-from 'header) + (cond ((eq (message--sendmail-envelope-from) 'header) (nth 1 (mail-extract-address-components (message-fetch-field "from")))) - ((stringp message-sendmail-envelope-from) - message-sendmail-envelope-from) + ((stringp (message--sendmail-envelope-from)) + (message--sendmail-envelope-from)) (t (message-make-address)))) |