Synch to No Gnus 200404152341.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3c94908..9e09150 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,13 @@
 2004-04-15  Kevin Greiner  <kgreiner@xpediantsolutions.com>
                
+       * 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  <kgreiner@xpediantsolutions.com>
+               
        * legacy-gnus-agent.el
        (gnus-agent-convert-to-compressed-agentview): Fixed typos with
        help from Florian Weimer <fw@deneb.enyo.de>

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 84a1d33..638217b 100644 (file)
--- 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