From 8f3f0d541512ddf118080f0004c2beadb937f7d4 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 16 Apr 2004 00:08:50 +0000 Subject: [PATCH] Synch to No Gnus 200404152341. --- lisp/ChangeLog | 8 ++++++++ lisp/gnus-agent.el | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) 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 -- 1.7.10.4