From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/29896 Path: main.gmane.org!not-for-mail From: Chris Brierley Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] nnimap: Checking mailbox %s vs. Updating info for %s Date: 20 Apr 2000 16:20:42 -0400 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035166489 5267 80.91.224.250 (21 Oct 2002 02:14:49 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:14:49 +0000 (UTC) Return-Path: Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49]) by mailhost.sclp.com (Postfix) with ESMTP id 6C642D051E for ; Thu, 20 Apr 2000 16:21:30 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id PAB07553; Thu, 20 Apr 2000 15:21:20 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 20 Apr 2000 15:20:50 -0500 (CDT) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id PAA15553 for ; Thu, 20 Apr 2000 15:20:40 -0500 (CDT) Original-Received: from optical.mindstorm.com (optical.mindstorm.com [209.113.156.7]) by mailhost.sclp.com (Postfix) with ESMTP id 4790FD051E for ; Thu, 20 Apr 2000 16:20:57 -0400 (EDT) Original-Received: from OUTLAND.pobox.com (localhost [127.0.0.1]) by optical.mindstorm.com (MindstorM/MindstorM) with ESMTP id QAA18202 for ; Thu, 20 Apr 2000 16:21:16 -0400 Original-To: ding@gnus.org Original-Lines: 62 User-Agent: Gnus/5.0804 (Gnus v5.8.4) Emacs/20.5 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:29896 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:29896 A couple of months ago I sent in a bug report detailing how moving or copying a message from an nnimap group on one IMAP server to an nnimap group on another IMAP server causes a bogus server entry in the *Server* buffer with the result that subsequent invocations of gnus-group-get-new-news cause the dreaded "Updating info for %s" vs. the much faster "Checking mailbox %s". Simon sent out a patch which resolved this problem, and which I've been using successfuly since. I just installed Gnus 5.8.4 and it looks like Simon's patch didn't make it into the release. I've applied his patch to 5.8.4 and it still fixes the bug without apparent problems. So, I'm including Simon's patch here in the hopes that it can be added to CVS. Thanks. ,-----[ Patch to gnus-sum.el | 2000-03-01 Simon Josefsson | | * 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))) `-----