From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/51953 Path: main.gmane.org!not-for-mail From: kai.grossjohann@gmx.net (Kai =?iso-8859-1?q?Gro=DFjohann?=) Newsgroups: gmane.emacs.gnus.general Subject: Re: gnus-delay problem Date: Tue, 29 Apr 2003 17:26:36 +0200 Organization: University of Duisburg, Germany Sender: ding-owner@lists.math.uh.edu Message-ID: <84fzo19vf7.fsf@lucy.is.informatik.uni-duisburg.de> References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1051630101 17617 80.91.224.249 (29 Apr 2003 15:28:21 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 29 Apr 2003 15:28:21 +0000 (UTC) Original-X-From: ding-owner+M496@lists.math.uh.edu Tue Apr 29 17:28:20 2003 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 19AX1o-0004a0-00 for ; Tue, 29 Apr 2003 17:28:20 +0200 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 19AX2k-0000l4-00; Tue, 29 Apr 2003 10:29:18 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19AX2f-0000kz-00 for ding@lists.math.uh.edu; Tue, 29 Apr 2003 10:29:13 -0500 Original-Received: (qmail 9480 invoked by alias); 29 Apr 2003 15:29:13 -0000 Original-Received: (qmail 9475 invoked from network); 29 Apr 2003 15:29:13 -0000 Original-Received: from quimby.gnus.org (80.91.224.244) by sclp3.sclp.com with SMTP; 29 Apr 2003 15:29:13 -0000 Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian)) id 19AXAD-0002Z9-00 for ; Tue, 29 Apr 2003 17:37:01 +0200 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 89 Original-NNTP-Posting-Host: p50876f68.dip.t-dialin.net Original-X-Trace: quimby.gnus.org 1051630621 9316 80.135.111.104 (29 Apr 2003 15:37:01 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 29 Apr 2003 15:37:01 GMT In-Reply-To: (Jesper Harder's message of "Tue, 29 Apr 2003 00:52:31 +0200") Mail-Copies-To: never User-Agent: Gnus/5.09002 (Oort Gnus v0.20) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:P1K2aNbJF4d18A8xWtpzFvY4YMM= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:51953 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:51953 Jesper Harder writes: > I can't get gnus-delay working. > > The problem appears to be the code in `gnus-delay-article' which is > responsible for creating the delay group: > > ;; If group does not exist, create it. > (let ((group (format "nndraft:%s" gnus-delay-group))) > (unless (gnus-gethash group gnus-newsrc-hashtb) > (nndraft-request-create-group gnus-delay-group) > ;; Make it active. > (gnus-set-active group (cons 1 0)))) I've now snarfed code from the agent to do this. Here is a patch. But I haven't tested it. Does it work? I still don't understand any of it. cvs server: Diffing . cvs server: Diffing contrib cvs server: Diffing etc cvs server: Diffing etc/gnus cvs server: Diffing etc/smilies cvs server: Diffing lisp Index: lisp/gnus-agent.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-agent.el,v retrieving revision 6.168 diff -u -r6.168 gnus-agent.el --- lisp/gnus-agent.el 27 Apr 2003 04:30:29 -0000 6.168 +++ lisp/gnus-agent.el 29 Apr 2003 15:34:52 -0000 @@ -608,14 +608,18 @@ gnus-agent-covered-methods )))) (append (list gnus-select-method) gnus-secondary-select-methods)))) -(defun gnus-agent-queue-setup () - "Make sure the queue group exists." - (unless (gnus-gethash "nndraft:queue" gnus-newsrc-hashtb) - (gnus-request-create-group "queue" '(nndraft "")) +(defun gnus-agent-queue-setup (&optional group-name) + "Make sure the queue group exists. +Optional arg GROUP-NAME allows to specify another group." + (unless (gnus-gethash (format "nndraft:%s" (or group-name "queue")) + gnus-newsrc-hashtb) + (gnus-request-create-group (or group-name "queue") '(nndraft "")) (let ((gnus-level-default-subscribed 1)) - (gnus-subscribe-group "nndraft:queue" nil '(nndraft ""))) + (gnus-subscribe-group (format "nndraft:%s" (or group-name "queue")) + nil '(nndraft ""))) (gnus-group-set-parameter - "nndraft:queue" 'gnus-dummy '((gnus-draft-mode))))) + (format "nndraft:%s" (or group-name "queue")) + 'gnus-dummy '((gnus-draft-mode))))) (defun gnus-agent-send-mail () (if gnus-plugged Index: lisp/gnus-delay.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-delay.el,v retrieving revision 6.20 diff -u -r6.20 gnus-delay.el --- lisp/gnus-delay.el 8 Feb 2003 21:20:53 -0000 6.20 +++ lisp/gnus-delay.el 29 Apr 2003 15:34:52 -0000 @@ -134,10 +134,7 @@ (set-buffer-modified-p t) ;; If group does not exist, create it. (let ((group (format "nndraft:%s" gnus-delay-group))) - (unless (gnus-gethash group gnus-newsrc-hashtb) - (nndraft-request-create-group gnus-delay-group) - ;; Make it active. - (gnus-set-active group (cons 1 0)))) + (gnus-agent-queue-setup gnus-delay-group)) (message-disassociate-draft) (nndraft-request-associate-buffer gnus-delay-group) (save-buffer 0) cvs server: Diffing texi cvs server: Diffing texi/etc cvs server: Diffing texi/herds cvs server: Diffing texi/misc cvs server: Diffing texi/picons cvs server: Diffing texi/ps cvs server: Diffing texi/screen cvs server: Diffing texi/smilies cvs server: Diffing texi/xface -- file-error; Data: (Opening input file no such file or directory ~/.signature)