From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/55576 Path: main.gmane.org!not-for-mail From: Gaute B Strokkenes Newsgroups: gmane.emacs.gnus.general Subject: Re: Gnus v5.10.5 is released Date: Sun, 04 Jan 2004 08:21:37 +0100 Organization: The Church of Emacs Sender: ding-owner@lists.math.uh.edu Message-ID: <878ykokwla.fsf@srcf.ucam.org> References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1073210316 12052 80.91.224.253 (4 Jan 2004 09:58:36 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 4 Jan 2004 09:58:36 +0000 (UTC) Original-X-From: ding-owner+M4116@lists.math.uh.edu Sun Jan 04 10:58:33 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Ad51l-0007LS-00 for ; Sun, 04 Jan 2004 10:58:33 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1Ad51d-0006Od-00; Sun, 04 Jan 2004 03:58:25 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1Ad4Qo-0006LK-00 for ding@lists.math.uh.edu; Sun, 04 Jan 2004 03:20:22 -0600 Original-Received: from smtp110.tiscali.dk (smtp110.tiscali.dk [62.79.79.110]) by justine.libertine.org (Postfix) with ESMTP id 52DBD3A0076 for ; Sun, 4 Jan 2004 01:21:48 -0600 (CST) Original-Received: from cpmail.dk.tiscali.com (mail.tiscali.dk [212.54.64.159]) by smtp110.tiscali.dk (8.12.6p3/8.12.6) with ESMTP id i047LknG028399 for ; Sun, 4 Jan 2004 08:21:46 +0100 (CET) (envelope-from gs234@srcf.ucam.org) Original-Received: from belldandy (82.164.135.200) by cpmail.dk.tiscali.com (6.7.018) id 3FEAF87B00003950 for ding@gnus.org; Sun, 4 Jan 2004 08:21:46 +0100 Original-Received: from gs234 by belldandy with local (Exim 3.36 #1 (Debian)) id 1Ad2Zu-00056v-00 for ; Sun, 04 Jan 2004 08:21:38 +0100 Mail-Copies-To: never Original-To: ding@gnus.org Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAG1BMVEWWWBTly7aGMwb+/vz9 +ffIilb///+yaCxNCwHGVC3gAAACU0lEQVR4nF2TQWvjMBBGVUGwj3WxaY/aAWNfi0zuwZPuHp0Q ob079OwYjHrsChb0s3dGctJ0ddTzm9F8lsR7WiNiWWL/flviul9Uh0NR4vY/gJUxJjOEtt/AubBy UsotRfH2DbxWE0hom3w5XJUEKis9hACt2hR4B86VDOtqTNHfgeEGvLiUN7Ddze26Dx6y1CUa+ygo NwFQm0N/BeMzCZAtNIoQrd9EhcH5mWpnztB8ZpJBlH23jaAbuE4EhZ2Bam0TeJ0DRMCKVP6CegWk q4z2TVFUx0946FOPcSe9ELE3rSHAj15rBuddS0C4BGyAutfpVAQkKdZOQiwMMIHxlUDrgeej5Ns7 I/ccSWNBLda1XwYBEG1Qswy1yXJf879nA4cjkNI0H+FzoUyuRodPA5eqZwFONG34i30ccOxeKFUy flNe1szqsgLdvXwKCj6zjTXODHV9M46gZPCLlYKCGTYO8S0aOAvJzRfD0w+1XcGIsxLUw/sYl5sM 9n0yjkoSUDOByrijwRRiAq13NhqLJYB3ACazrgN2bIwanyJQKXhHAJPRPQruEaCJP2Shy4DJ2As+ FQjJZH7AZIy6w0pQiiRYAh8nTEZHYDfRqSDeB5OXq4EEcAC4NocvoBl4+n1cyl54nyLRNA3iIwRP wNGFOK1g1Gz8jNfaCjdtqJLm2LXuqMc+50cDIJQpr6X0OHa4X58ULAw03QbRd7GUiG/K04mj0bNB xQhwJkEsJiZ1Bbgb6CnF79cBE+jwF91qniOCP3fghUFKxOShjIATw/wOfIQTg39LpFHtxhlKywAA AABJRU5ErkJggg== In-Reply-To: (Lars Magne Ingebrigtsen's message of "Sun, 04 Jan 2004 01:32:01 +0100") User-Agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3.50 (gnu/linux) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:55576 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:55576 --=-=-= On 4 jan 2004, larsi@gnus.org wrote: > Possibly the last Gnus 5.10 release. I think that before we make the transition to No Gnus, the follwoing almost-trivial patch should be applied. Kevin Greiner gave his approval to this patch way back in May, but did not apply it straight away, since this was straight after Lars announced that he wanted there to be more focus on fixing bugs rather than new features in anticipation of No Gnus. See <87bry4sk0n.fsf@cam.ac.uk> and the surrounding discussion. I think that the patch should be applied now since it is small and tidy, serves a demonstrable need and has been very thoroughly tested by yours truly in the months following May (more than half a year). There have been lots of other patches applied that are far more intrusive. --=-=-= Content-Disposition: attachment; filename=gnus-agent.diff Index: lisp/gnus-agent.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-agent.el,v retrieving revision 6.186 diff -u -r6.186 gnus-agent.el --- lisp/gnus-agent.el 3 Jan 2004 18:52:57 -0000 6.186 +++ lisp/gnus-agent.el 4 Jan 2004 07:07:39 -0000 @@ -181,6 +181,21 @@ :type 'boolean :group 'gnus-agent) +(defcustom gnus-agent-queue-mail t + "Whether and when outgoing mail should be queued by the agent. When +`always', always queue outgoing mail. When `nil', never queue. +Otherwise, queue if and only if unplugged." + :group 'gnus-agent + :type '(radio (const :format "Always" always) + (const :format "Never" nil) + (const :format "When plugged" t))) + +(defcustom gnus-agent-prompt-send-queue nil + "If non-nil, `gnus-group-send-queue' will prompt if called when +unplugged." + :group 'gnus-agent + :type 'boolean) + (defcustom gnus-agent-auto-agentize-methods '(nntp nnimap) "Initially, all servers from these methods are agentized. The user may remove or add servers using the Server buffer. @@ -642,7 +657,8 @@ 'gnus-dummy '((gnus-draft-mode))))) (defun gnus-agent-send-mail () - (if gnus-plugged + (if (or (not gnus-agent-queue-mail) + (and gnus-plugged (not (eq gnus-agent-queue-mail 'always)))) (funcall gnus-agent-send-mail-function) (goto-char (point-min)) (re-search-forward Index: lisp/gnus-draft.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-draft.el,v retrieving revision 6.24 diff -u -r6.24 gnus-draft.el --- lisp/gnus-draft.el 12 Dec 2003 16:31:46 -0000 6.24 +++ lisp/gnus-draft.el 4 Jan 2004 07:07:40 -0000 @@ -142,6 +142,9 @@ message-send-hook)) (message-setup-hook (and group (not (equal group "nndraft:queue")) message-setup-hook)) + (gnus-agent-queue-mail (if (equal group "nndraft:queue") + nil + gnus-agent-queue-mail)) type method move-to) (gnus-draft-setup article (or group "nndraft:queue")) ;; We read the meta-information that says how and where @@ -196,22 +199,25 @@ (defun gnus-group-send-queue () "Send all sendable articles from the queue group." (interactive) - (gnus-activate-group "nndraft:queue") - (save-excursion - (let* ((articles (nndraft-articles)) - (unsendable (gnus-uncompress-range - (cdr (assq 'unsend - (gnus-info-marks - (gnus-get-info "nndraft:queue")))))) - (gnus-posting-styles nil) - (total (length articles)) - article) - (while (setq article (pop articles)) - (unless (memq article unsendable) - (let ((message-sending-message - (format "Sending message %d of %d..." - (- total (length articles)) total))) - (gnus-draft-send article))))))) + (when (or gnus-plugged + (not gnus-agent-prompt-send-queue) + (gnus-y-or-n-p "Gnus is unplugged; really send queue? ")) + (gnus-activate-group "nndraft:queue") + (save-excursion + (let* ((articles (nndraft-articles)) + (unsendable (gnus-uncompress-range + (cdr (assq 'unsend + (gnus-info-marks + (gnus-get-info "nndraft:queue")))))) + (gnus-posting-styles nil) + (total (length articles)) + article) + (while (setq article (pop articles)) + (unless (memq article unsendable) + (let ((message-sending-message + (format "Sending message %d of %d..." + (- total (length articles)) total))) + (gnus-draft-send article "nndraft:queue")))))))) ;;;###autoload (defun gnus-draft-reminder () Index: texi/gnus.texi =================================================================== RCS file: /usr/local/cvsroot/gnus/texi/gnus.texi,v retrieving revision 6.601 diff -u -r6.601 gnus.texi --- texi/gnus.texi 4 Jan 2004 03:20:18 -0000 6.601 +++ texi/gnus.texi 4 Jan 2004 07:08:03 -0000 @@ -18388,16 +18388,24 @@ @node Outgoing Messages @subsection Outgoing Messages -When Gnus is unplugged, all outgoing messages (both mail and news) are -stored in the draft group ``queue'' (@pxref{Drafts}). You can view -them there after posting, and edit them at will. - -When Gnus is plugged again, you can send the messages either from the -draft group with the special commands available there, or you can use -the @kbd{J S} command in the group buffer to send all the sendable -messages in the draft group. - - +By default, when Gnus is unplugged, all outgoing messages (both mail +and news) are stored in the draft group ``queue'' (@pxref{Drafts}). +You can view them there after posting, and edit them at will. + +You can control the circumstances under which outgoing mail is queued +(see @code{gnus-agent-queue-mail}, @pxref{Agent Variables}). Outgoing +news is always queued when Gnus is unplugged, and never otherwise. + +You can send the messages either from the draft group with the special +commands available there, or you can use the @kbd{J S} command in the +group buffer to send all the sendable messages in the draft group. +Posting news will only work when Gnus is plugged, but you can send +mail at any time. + +If sending mail while unplugged does not work for you and you worry +about hitting @kbd{J S} by accident when unplugged, you can have Gnus +ask you to confirm your action (see +@code{gnus-agent-prompt-send-queue}, @pxref{Agent Variables}). @node Agent Variables @subsection Agent Variables @@ -18496,6 +18504,19 @@ have not been fetched), @code{always-undownloaded} (maneuvering always ignores articles that have not been fetched), @code{unfetched} (maneuvering ignores articles whose headers have not been fetched). + +@item gnus-agent-queue-mail +@vindex gnus-agent-queue-mail +When @code{gnus-agent-queue-mail} is @code{always}, Gnus will always +queue mail rather than sending it straight away. When @code{t}, Gnus +will queue mail when unplugged only. When @code{nil}, never queue +mail. The default is @code{t}. + +@item gnus-agent-prompt-send-queue +@vindex gnus-agent-prompt-send-queue +When @code{gnus-agent-prompt-send-queue} is non-@code{nil} Gnus will +prompt you to confirm that you really wish to proceed if you hit +@kbd{J S} while unplugged. The default is @code{nil}. @item gnus-agent-auto-agentize-methods @vindex gnus-agent-auto-agentize-methods --=-=-= -- Gaute Strokkenes http://www.srcf.ucam.org/~gs234/ If a person is FAMOUS in this country, they have to go on the ROAD for MONTHS at a time and have their name misspelled on the SIDE of a GREYHOUND SCENICRUISER!! --=-=-=--