From: Simon Josefsson <jas@pdc.kth.se>
Cc: ding@gnus.org
Subject: Re: nnimap: Checking mailbox %s vs. Updating info for %s
Date: 01 Mar 2000 20:59:16 +0100 [thread overview]
Message-ID: <iluya82h36z.fsf@badis.pdc.kth.se> (raw)
In-Reply-To: Chris Brierley's message of "01 Mar 2000 12:26:40 -0500"
Chris Brierley <brierley@pobox.com> writes:
> So, I finally got some time to find the least configuration that
> will cause this problem (bug?) to appear.
Thank you for you detailed bug report. Could you try this patch? It
does solve your problem for me, but you never know what other problems
it might generate.
2000-03-01 Simon Josefsson <jas@pdc.kth.se>
* gnus-sum.el (gnus-read-move-group-name):
(gnus-summary-move-article): Use `gnus-group-method' to find out
what method the manually entered group belong to.
`gnus-group-name-to-method' doesn't return any method parameters
and `gnus-find-method-for-group' uses `gnus-group-name-to-method'
for new groups so they wouldn't work.
Index: lisp/gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 5.97
diff -w -u -r5.97 gnus-sum.el
--- lisp/gnus-sum.el 2000/02/03 16:28:49 5.97
+++ lisp/gnus-sum.el 2000/03/01 19:45:52
@@ -7322,7 +7322,7 @@
articles prefix))
(set (intern (format "gnus-current-%s-group" action)) to-newsgroup))
(setq to-method (or select-method
- (gnus-group-name-to-method to-newsgroup)))
+ (gnus-group-method to-newsgroup)))
;; Check the method we are to move this article to...
(unless (gnus-check-backend-function
'request-accept-article (car to-method))
@@ -9027,14 +9027,15 @@
(unless to-newsgroup
(error "No group name entered"))
(or (gnus-active to-newsgroup)
- (gnus-activate-group to-newsgroup)
+ (gnus-activate-group to-newsgroup nil nil
+ (gnus-group-method to-newsgroup))
(if (gnus-y-or-n-p (format "No such group: %s. Create it? "
to-newsgroup))
(or (and (gnus-request-create-group
- to-newsgroup (gnus-group-name-to-method to-newsgroup))
+ to-newsgroup (gnus-group-method to-newsgroup))
(gnus-activate-group
to-newsgroup nil nil
- (gnus-group-name-to-method to-newsgroup))
+ (gnus-group-method to-newsgroup))
(gnus-subscribe-group to-newsgroup))
(error "Couldn't create group %s" to-newsgroup)))
(error "No such group: %s" to-newsgroup)))
next prev parent reply other threads:[~2000-03-01 19:59 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2000-02-04 17:59 Chris Brierley
2000-02-04 20:29 ` Kai Großjohann
2000-02-04 21:01 ` Chris Brierley
2000-02-04 22:19 ` Kai Großjohann
2000-03-01 17:26 ` Chris Brierley
2000-03-01 19:59 ` Simon Josefsson [this message]
2000-03-01 22:13 ` Chris Brierley
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=iluya82h36z.fsf@badis.pdc.kth.se \
--to=jas@pdc.kth.se \
--cc=ding@gnus.org \
/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).