From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/56646 Path: main.gmane.org!not-for-mail From: Kevin Greiner Newsgroups: gmane.emacs.gnus.general Subject: PATCH (for testing only): [Bug, Debian(?)] "g" goes not refresh nnimap groups! Date: Tue, 09 Mar 2004 20:25:46 -0600 Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1078885667 658 80.91.224.253 (10 Mar 2004 02:27:47 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 10 Mar 2004 02:27:47 +0000 (UTC) Original-X-From: ding-owner+M5185@lists.math.uh.edu Wed Mar 10 03:27:41 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 1B0tRd-0005yy-00 for ; Wed, 10 Mar 2004 03:27:41 +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 1B0tQ1-0006SW-00; Tue, 09 Mar 2004 20:26:01 -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 1B0tPw-0006SR-00 for ding@lists.math.uh.edu; Tue, 09 Mar 2004 20:25:56 -0600 Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244]) by justine.libertine.org (Postfix) with ESMTP id 31BBE3A003A for ; Tue, 9 Mar 2004 20:25:56 -0600 (CST) Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian)) id 1B0tPv-0007nS-00 for ; Wed, 10 Mar 2004 03:25:55 +0100 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 93 Original-NNTP-Posting-Host: dialup-216-12-206-250.ev1.net Original-X-Trace: quimby.gnus.org 1078885555 28744 216.12.206.250 (10 Mar 2004 02:25:55 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Wed, 10 Mar 2004 02:25:55 +0000 (UTC) User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3 (windows-nt) Cancel-Lock: sha1:MXpvXJNRDtYh/yRh2nfTtINnOIE= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:56646 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:56646 --=-=-= Mark Plaksin writes: > Marcus Frings writes: > >> By the way, this is also a bug on my FreeBSD system. Both on Debian and >> FreeBSD I use GNU Emacs 21.3.1 (and `g' fails on all systems) but on two >> different Windoze boxes I use a CVS Emacs (and there `g' works without >> any problems). So the new code seems to work for CVS Emacs but fails on >> the current stable Emacs. Can this really be Emacs-specific? > > I have the problem with both CVS Emacs and the wonderful multi-tty > (http://lorentey.web.elte.hu/project/emacs.html) Emacs which is CVS > Emacs plus patches. This patch should be applied to rev 7.8 (CVS head) of gnus-start.el. Please let me know what the outcome is. Finally, if this doesn't help, please revert to CVS head. Kevin --=-=-= Content-Disposition: inline; filename=gnus-start.patch Content-Description: Patch for gnus-start.el --- ../lisp.cvs_ref/gnus-start.el Tue Mar 9 01:07:19 2004 +++ gnus-start.el Tue Mar 9 20:16:21 2004 @@ -1636,7 +1636,8 @@ level)) (methods-cache nil) (type-cache nil) - scanned-methods info group active method retrieve-groups cmethod + scanned-methods info group active method retrieve-groups + cache-entry name-or-method method-type) (gnus-message 6 "Checking new news...") @@ -1656,25 +1657,32 @@ ;; nil for non-foreign groups that the user has requested not be checked ;; t for unchecked foreign groups or bogus groups, or groups that can't ;; be checked, for one reason or other. - (when (setq method (gnus-info-method info)) - (if (setq cmethod (assoc method methods-cache)) - (setq method (cdr cmethod)) - (setq cmethod (inline (gnus-server-get-method nil method))) - (push (cons method cmethod) methods-cache) - (setq method cmethod))) - (when (and method - (not (setq method-type (cdr (assoc method type-cache))))) - (setq method-type - (cond - ((gnus-secondary-method-p method) - 'secondary) - ((inline (gnus-server-equal gnus-select-method method)) - 'primary) - (t - 'foreign))) - (push (cons method method-type) type-cache)) - (if (and method - (eq method-type 'foreign)) + (setq name-or-method (gnus-info-method info)) + (setq method + (cdr + (if (setq cache-entry (assoc name-or-method methods-cache)) + cache-entry + (setq cache-entry (if name-or-method + (gnus-server-get-method nil name-or-method) + gnus-select-method)) + (car (push (cons name-or-method cache-entry) + methods-cache))))) + + (setq method-type + (cdr (or (assoc method type-cache) + (car (push + (cons method + (cond ((not method) + 'unknown) + ((gnus-secondary-method-p method) + 'secondary) + ((gnus-server-equal gnus-select-method method) + 'primary) + (t + 'foreign))) + type-cache))))) + + (if (eq method-type 'foreign) ;; These groups are foreign. Check the level. (when (and (<= (gnus-info-level info) foreign-level) (setq active (gnus-activate-group group 'scan))) --=-=-=--