From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/45695 Path: main.gmane.org!not-for-mail From: "Davide G.M.Salvetti" Newsgroups: gmane.emacs.gnus.general Subject: Re: Sending outgoing messages while unplugged. Date: Tue, 16 Jul 2002 17:18:11 +0200 Organization: Quis ut Deus? Sender: owner-ding@hpc.uh.edu Message-ID: <87lm8bzop8.fsf@hal.Olympus.INVALID> References: <87bs97ootl.fsf@hal.Olympus.INVALID> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-15 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1026832894 10801 127.0.0.1 (16 Jul 2002 15:21:34 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 16 Jul 2002 15:21:34 +0000 (UTC) Cc: Ding Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17UU8q-0002o5-00 for ; Tue, 16 Jul 2002 17:21:33 +0200 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 17UU7V-0001HI-00; Tue, 16 Jul 2002 10:20:09 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 16 Jul 2002 10:20:33 -0500 (CDT) Original-Received: from smtp1.libero.it (smtp1.libero.it [193.70.192.51]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id KAA07587 for ; Tue, 16 Jul 2002 10:20:18 -0500 (CDT) Original-Received: from Lepus.Olympus.INVALID (151.27.31.14) by smtp1.libero.it (6.5.015) id 3CFC3E5B011EC7FD; Tue, 16 Jul 2002 17:18:52 +0200 Original-Received: from hal.Olympus.INVALID (HAL.Olympus.INVALID [192.168.247.1]) by Lepus.Olympus.INVALID (Postfix) with ESMTP id CB46D16889; Tue, 16 Jul 2002 17:15:35 +0200 (CEST) Original-Received: from salve by hal.Olympus.INVALID with local (Exim 3.35 #1 (Debian)) id 17UU5b-0001aT-00; Tue, 16 Jul 2002 17:18:11 +0200 Original-To: Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai =?iso-8859-15?q?Gro=DFjohann?=) X-Attribution: DGMS X-GPG-Fingerprint: D3B2 A3F5 E9EB BDE6 A245 AA4A 212B 306C 9396 865D X-Face: &6g,d%3hP0[qul^Z;FuwvIxNxPy2:}9K`7D?&sDX@xTwx7Z\S\AK\jI)J$yL:J>70*[c!k* [qo4Zx')Q_zPtl]25VG[X#6xMVp_1K!t- U{izN"hVM!$1`P\v~sRS:)^t_{py+"YcZ|2^z=AUz4"ZJNrtP@;'8dyarKA7)OPjihAGsMb Mail-Followup-To: Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai =?iso-8859-15?q?Gro=DFjohann), ?= Ding In-Reply-To: (Kai.Grossjohann@CS.Uni-Dortmund.DE's message of "Tue, 16 Jul 2002 16:14:39 +0200") Original-Lines: 73 User-Agent: Gnus/5.090007 (Oort Gnus v0.07) Emacs/21.2 (i386-debian-linux-gnu) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:45695 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:45695 >>>>> "Kai" =3D=3D Kai Gro=DFjohann wr= ites: Kai> Invoking the Agent installs gnus-agent-send-mail as the value of Kai> message-send-mail-function, I think. I think that setting it back Kai> to message-send-mail-with-sendmail (or whatever) ought to do the Kai> trick. Thank you very much Kai, you got me started. Kai> But newer Oorts have another mechanism of enabling the Agent (not Kai> gnus-agentize), so I'm not sure how to set Kai> message-send-mail-function after this happens. Anyone? I see Oort bind message-send-mail-real-function to gnus-agent-send-mail. One may bind it back to nil, letting message use message-send-mail-function instead. I haven't followed this route, though. A quick inspection of gnus-agent-send-mail showed to me that the simplest thing appears to be redefining it this way (defun gnus-agent-send-mail () (funcall gnus-agent-send-mail-function)) after gnus has been loaded (one may put the previous defun near the end of her ~/.gnus). I think that this behavior should be configurable. A quick (untested!) patch may be the following one. <=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=3D=3D=3D> *** /tmp/gnus-agent.el5768cWt Tue Jul 16 17:16:30 2002 --- /tmp/gnus-agent.el5768pgz Tue Jul 16 17:16:30 2002 *************** *** 82,87 **** --- 82,92 ---- :group 'gnus-agent :type 'hook) =20=20 + (defcustom gnus-agent-send-mail-while-unplugged nil + "If non-nil, Gnus will always send outgoing mail immediately. + In other words, if non-nil Gnus will not queue your outgoing mail while + unplugged, but will call message-send-mail-function immediately.") +=20 ;; Extracted from gnus-xmas-redefine in order to preserve user settings (when (featurep 'xemacs) (add-hook 'gnus-agent-group-mode-hook 'gnus-xmas-agent-group-menu-add)) *************** *** 431,437 **** "nndraft:queue" 'gnus-dummy '((gnus-draft-mode))))) =20=20 (defun gnus-agent-send-mail () ! (if gnus-plugged (funcall gnus-agent-send-mail-function) (goto-char (point-min)) (re-search-forward --- 436,442 ---- "nndraft:queue" 'gnus-dummy '((gnus-draft-mode))))) =20=20 (defun gnus-agent-send-mail () ! (if (or gnus-agent-send-mail-while-unplugged gnus-plugged) (funcall gnus-agent-send-mail-function) (goto-char (point-min)) (re-search-forward <=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=3D=3D=3D> (The doc string should really be rewritten.) --=20 Salve, | GNU PG (GPG) Key ID: 9396865D Davide |