From a9f87b21b6d5a563020c61a77373e23aaa9fc65e Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Tue, 12 Mar 2002 21:32:13 +0000 Subject: [PATCH] * message.el (message-qmail-inject-args): May be function. (message-send-mail-with-qmail): Call function if m-q-i-a is function. From fn@hungry.org (Faried Nawaz). --- lisp/ChangeLog | 6 ++++++ lisp/message.el | 10 +++++++--- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 21c83efdd..52a6d57e9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-03-12 Simon Josefsson + + * message.el (message-qmail-inject-args): May be function. + (message-send-mail-with-qmail): Call function if m-q-i-a is + function. From fn@hungry.org (Faried Nawaz). + 2002-03-12 ShengHuo ZHU * message.el (message-abbrevs-loaded): Remove. diff --git a/lisp/message.el b/lisp/message.el index aedae8aa6..431f67b0f 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -512,13 +512,15 @@ Doing so would be even more evil than leaving it out." (defcustom message-qmail-inject-args nil "Arguments passed to qmail-inject programs. -This should be a list of strings, one string for each argument. +This should be a list of strings, one string for each argument. It +may also be a function. For e.g., if you wish to set the envelope sender address so that bounces go to the right place or to deal with listserv's usage of that address, you might set this variable to '(\"-f\" \"you@some.where\")." :group 'message-sending - :type '(repeat string)) + :type '(choice (function) + (repeat string))) (defvar message-cater-to-broken-inn t "Non-nil means Gnus should not fold the `References' header. @@ -3060,7 +3062,9 @@ to find out how to use this." ;; free for -inject-arguments -- a big win for the user and for us ;; since we don't have to play that double-guessing game and the user ;; gets full control (no gestapo'ish -f's, for instance). --sj - message-qmail-inject-args)) + (if (functionp 'message-qmail-inject-args) + (funcall 'message-qmail-inject-args) + message-qmail-inject-args))) ;; qmail-inject doesn't say anything on it's stdout/stderr, ;; we have to look at the retval instead (0 nil) -- 2.25.1