From: kai.grossjohann@gmx.net (Kai Großjohann)
Subject: Re: gnus-delay problem
Date: Tue, 29 Apr 2003 17:26:36 +0200 [thread overview]
Message-ID: <84fzo19vf7.fsf@lucy.is.informatik.uni-duisburg.de> (raw)
In-Reply-To: <m3bryqb5g0.fsf@defun.localdomain> (Jesper Harder's message of "Tue, 29 Apr 2003 00:52:31 +0200")
Jesper Harder <harder@myrealbox.com> 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)
next prev parent reply other threads:[~2003-04-29 15:26 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-04-28 22:52 Jesper Harder
2003-04-29 15:17 ` Kai Großjohann
2003-04-29 15:26 ` Kai Großjohann [this message]
2003-04-29 17:56 ` Jesper Harder
2003-04-30 14:53 ` Kai Großjohann
-- strict thread matches above, loose matches on Subject: below --
2003-02-03 10:40 Kai Großjohann
2003-02-04 5:43 ` Katsumi Yamaoka
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=84fzo19vf7.fsf@lucy.is.informatik.uni-duisburg.de \
--to=kai.grossjohann@gmx.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).