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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3c94908..9e09150 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+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

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index a2e6b32..07d8ac4 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -635,7 +635,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