Mercurial > emacs

diff lisp/gnus/gnus-sum.el @ 69195:477ba8c8d22c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-126 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 40-42) - Merge from emacs--devo--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Tue, 28 Feb 2006 00:38:35 +0000
parents 6c7c654eb3c7
children 6580c61aced7
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el	Mon Feb 27 23:40:51 2006 +0000
+++ b/lisp/gnus/gnus-sum.el	Tue Feb 28 00:38:35 2006 +0000
@@ -6452,10 +6452,12 @@
 	  (setq nlast (if (atom (cadr read)) (cadr read) (caadr read)))
 	  (setq read (cdr read)))))
     ;; And add the last unread articles.
-    (cond ((< first last)
-           (push (cons first last) unread))
-          ((= first last)
-           (push first unread)))
+    (cond ((not (and first last))
+	   nil)
+	  ((< first last)
+	   (push (cons first last) unread))
+	  ((= first last)
+	   (push first unread)))
     ;; Return the sequence of unread articles.
     (delq 0 (nreverse unread))))