Re: [BUG & FIX] `nnmail-get-new-mail' fetches too much

[ShengHuo ZHU <zsh@cs.rochester.edu>]

sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor]) writes:

> 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.
> 
> 2001-04-29  Michael Sperber [Mr. Preprocessor]  <sperber@informatik.uni-tuebingen.de>
> 
> 	* nnmail.el (nnmail-get-new-mail): Make the generated predicate
> 	more strict to avoid reading in spurious spools.
> --- 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)

Thanks for the report.  I fix it by using string-equal instead.

ShengHuo