Re: Gnus Agent and mail

[Sean Neakums <sneakums@zork.net>]

commence  Kai Großjohann quotation:

> Sean Neakums <sneakums@zork.net> writes:
>
>> What is the current method to prevent sent mail from being queued
>> when the Agent is active?  My mail select method is not covered by
>> the Agent, and both message-send-mail-function and
>> gnus-agent-send-mail-function are set to
>> message-send-mail-with-sendmail, but when I send mail, it is
>> queued.
>
> There is a recent variable message-send-mail-real-function.

Aha, so there is.  It would be nice if the Agent could be told
directly whether to queue mail or not.  Here is a small patch that
adds and uses a customization for this.  There may be issues I haven't
considered, though.

Index: gnus-agent.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-agent.el,v
retrieving revision 6.134
diff -u -r6.134 gnus-agent.el
--- gnus-agent.el	22 Jan 2003 05:30:47 -0000	6.134
+++ gnus-agent.el	24 Jan 2003 13:47:40 -0000
@@ -146,6 +146,11 @@
   :group 'gnus-agent
   :type 'integer)
 
+(defcustom gnus-agent-queue-mail-when-unplugged t
+  "Set to nil to prevent the Agent from queueing sent mail."
+  :group 'gnus-agent
+  :type 'boolean)
+
 ;;; Internal variables
 
 (defvar gnus-agent-history-buffers nil)
@@ -438,10 +443,11 @@
   (gnus-open-agent)
   (add-hook 'gnus-setup-news-hook 'gnus-agent-queue-setup)
   (unless gnus-agent-send-mail-function
-    (setq gnus-agent-send-mail-function (or
-					 message-send-mail-real-function
-					 message-send-mail-function)
-	  message-send-mail-real-function 'gnus-agent-send-mail))
+    (if gnus-agent-queue-mail-when-unplugged
+	(setq gnus-agent-send-mail-function (or
+					     message-send-mail-real-function
+					     message-send-mail-function)
+	      message-send-mail-real-function 'gnus-agent-send-mail)))
   (unless gnus-agent-covered-methods
     (mapcar
      (lambda (server)

-- 
 /                          |
[|] Sean Neakums            | Size *does* matter.
[|] <sneakums@zork.net>     | That's why I use Emacs.
 \                          |