(message-sendmail-extra-arguments): New variable.

(message-send-mail-with-sendmail): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8dd5779..113907b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-14  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * message.el (message-sendmail-extra-arguments): New variable.
+       (message-send-mail-with-sendmail): Use it.
+
 2006-11-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mml.el (mml-generate-mime-1): Use mm-string-as-unibyte instead of

diff --git a/lisp/message.el b/lisp/message.el
index 8f4c999..6b024e4 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -761,6 +761,14 @@ If this is nil, use `user-mail-address'.  If it is the symbol
   :link '(custom-manual "(message)Mail Variables")
   :group 'message-sending)
 
+(defcustom message-sendmail-extra-arguments nil
+  "Additional arguments to `sendmail-program'."
+  ;; E.g. '("-a" "account") for msmtp
+  :version "23.0" ;; No Gnus
+  :type '(repeat string)
+  ;; :link '(custom-manual "(message)Mail Variables")
+  :group 'message-sending)
+
 ;; qmail-related stuff
 (defcustom message-qmail-inject-program "/var/qmail/bin/qmail-inject"
   "Location of the qmail-inject program."
@@ -4282,6 +4290,7 @@ If you always want Gnus to send messages in one piece, set
                                     "/usr/ucblib/sendmail")
                                    (t "fakemail"))
                              nil errbuf nil "-oi")
+                       message-sendmail-extra-arguments
                        ;; Always specify who from,
                        ;; since some systems have broken sendmails.
                        ;; But some systems are more broken with -f, so