From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/36053 Path: main.gmane.org!not-for-mail From: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor]) Newsgroups: gmane.emacs.gnus.general Subject: [BUG & FIX] `nnmail-get-new-mail' fetches too much Date: 29 Apr 2001 13:19:09 +0200 Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035171704 6520 80.91.224.250 (21 Oct 2002 03:41:44 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:41:44 +0000 (UTC) Return-Path: Original-Received: (qmail 1300 invoked by alias); 29 Apr 2001 11:19:16 -0000 Original-Received: (qmail 1290 invoked from network); 29 Apr 2001 11:19:15 -0000 Original-Received: from mx1.informatik.uni-tuebingen.de (134.2.12.5) by gnus.org with SMTP; 29 Apr 2001 11:19:15 -0000 Original-Received: from sams.informatik.uni-tuebingen.de (sams [134.2.12.50]) by mx1.informatik.uni-tuebingen.de (Postfix) with ESMTP id A9F3B439; Sun, 29 Apr 2001 13:19:14 +0200 (MST) Original-Received: (from sperber@localhost) by sams.informatik.uni-tuebingen.de (8.11.3/8.11.3) id f3TBJ9O31842; Sun, 29 Apr 2001 13:19:09 +0200 (CEST) (envelope-from sperber) Original-To: bugs@gnus.org, ding@gnus.org User-Agent: Gnus/5.090002 (Oort Gnus v0.02) XEmacs/21.2 (Urania) Original-Lines: 38 Xref: main.gmane.org gmane.emacs.gnus.general:36053 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:36053 --=-=-= Here's a longstanding bug in Gnus, still present in Oort 0.02: I have a group nnml:cvs with associated spool file ~/incoming/cvs.spool. I also have a spool file called ~/incoming/freebsd-ports-cvs.spool with no associated group. Getting new mail for nnml:cvs also slurps the freebsd-ports-cvs.spool file into a non-existent nnml group because they share a suffix. Bad juju. Here's a fix. --=-=-= Content-Disposition: inline 2001-04-29 Michael Sperber [Mr. Preprocessor] * nnmail.el (nnmail-get-new-mail): Make the generated predicate more strict to avoid reading in spurious spools. --=-=-= Content-Disposition: inline --- lisp/nnmail.el.orig Fri Apr 13 17:57:45 2001 +++ lisp/nnmail.el Sun Apr 29 13:13:30 2001 @@ -1568,9 +1568,10 @@ `(lambda (file) (string-match ,(concat + "^" (regexp-quote (concat group suffix)) "$") - file))))))) + (file-name-nondirectory file)))))))) (when nnmail-fetched-sources (if (member source nnmail-fetched-sources) (setq source nil) --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Disposition: inline Content-Transfer-Encoding: 8bit -- Cheers =8-} Mike Friede, Völkerverständigung und überhaupt blabla --=-=-=--