From: yamaoka Date: Fri, 16 Apr 2004 00:08:50 +0000 (+0000) Subject: Synch to No Gnus 200404152341. X-Git-Tag: t-gnus-6_17_4-quimby-~968 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8f3f0d541512ddf118080f0004c2beadb937f7d4;p=elisp%2Fgnus.git- Synch to No Gnus 200404152341. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3c94908..9e09150 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,13 @@ 2004-04-15 Kevin Greiner + * gnus-agent.el (gnus-agentize): + gnus-agent-send-mail-real-function no longer set to current value + of message-send-mail-function but rather a lambda that calls + message-send-mail-function. The change makes the agent real-time + responsive to user changes to message-send-mail-function. + +2004-04-15 Kevin Greiner + * legacy-gnus-agent.el (gnus-agent-convert-to-compressed-agentview): Fixed typos with help from Florian Weimer diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 84a1d33..638217b 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -647,7 +647,7 @@ minor mode in all Gnus buffers." (unless gnus-agent-send-mail-function (setq gnus-agent-send-mail-function (or message-send-mail-real-function - message-send-mail-function) + (function (lambda () (funcall message-send-mail-function)))) message-send-mail-real-function 'gnus-agent-send-mail)) ;; If the servers file doesn't exist, auto-agentize some servers and