From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/49570 Path: main.gmane.org!not-for-mail From: Sean Neakums Newsgroups: gmane.emacs.gnus.general Subject: Re: Gnus Agent and mail Date: Fri, 24 Jan 2003 13:49:59 +0000 Organization: The Emadonics Institute Sender: owner-ding@hpc.uh.edu Message-ID: <6ur8b27j3s.fsf@zork.zork.net> References: <6uiswfhrqs.fsf@zork.zork.net> <84k7gulngu.fsf@lucy.is.informatik.uni-duisburg.de> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1043416161 13039 80.91.224.249 (24 Jan 2003 13:49:21 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 24 Jan 2003 13:49:21 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18c4Ct-0003O2-00 for ; Fri, 24 Jan 2003 14:49:19 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18c4Dq-0007NA-00; Fri, 24 Jan 2003 07:50:18 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 24 Jan 2003 07:51:15 -0600 (CST) Original-Received: from sclp3.sclp.com (sclp3.sclp.com [66.230.238.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id HAA05441 for ; Fri, 24 Jan 2003 07:51:02 -0600 (CST) Original-Received: (qmail 98758 invoked by alias); 24 Jan 2003 13:50:01 -0000 Original-Received: (qmail 98753 invoked from network); 24 Jan 2003 13:50:00 -0000 Original-Received: from zork.zork.net (mail@66.92.188.166) by 66.230.238.6 with SMTP; 24 Jan 2003 13:50:00 -0000 Original-Received: from sneakums by zork.zork.net with local (Exim 3.35 #1 (Debian)) id 18c4DX-0003Na-00; Fri, 24 Jan 2003 05:49:59 -0800 Original-To: 24th Century Technology X-Worst-Pick-Up-Line-Ever: "Hey baby, wanna peer with my leafnode instance?" X-Message-Flag: Message text advisory: EXCRETORY SPEECH, DENIAL OF THE ANTECEDENT X-Mailer: Norman X-Groin-Mounted-Steering-Wheel: "Arrrr... it's driving me nuts!" X-Alameda: WHY DOESN'T ANYONE KNOW ABOUT ALAMEDA? IT'S RIGHT NEXT TO OAKLAND!!! Mail-Followup-To: 24th Century Technology User-Agent: Gnus/5.090014 (Oort Gnus v0.14) Emacs/21.2 (i386-debian-linux-gnu) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:49570 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:49570 commence Kai Gro=DFjohann quotation: > Sean Neakums 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 =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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) =20 +(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 =20 (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) --=20 / | [|] Sean Neakums | Size *does* matter. [|] | That's why I use Emacs. \ |