From 821de968434d2096bdea67dd24301bf6b517aef1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 3 Dec 2019 15:38:48 -0500 Subject: (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. --- lisp/mail/emacsbug.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/mail/emacsbug.el') 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) -- cgit v1.2.3