Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-cache.el @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents fe104dbd9147
children 585fb297b004
line wrap: on
line diff
--- a/lisp/gnus/gnus-cache.el	Mon Aug 13 09:30:13 2007 +0200
+++ b/lisp/gnus/gnus-cache.el	Mon Aug 13 09:31:12 2007 +0200
@@ -144,7 +144,8 @@
 	(mail-header-set-number headers (cdr result))))
     (let ((number (mail-header-number headers))
 	  file dir)
-      (when (and (> number 0)		; Reffed article.
+      (when (and number
+		 (> number 0)		; Reffed article.
 		 (or force
 		     (and (or (not gnus-uncacheable-groups)
 			      (not (string-match