From 8e69651bdc55d5b40bae7a6dcf53b77d426095cb Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 28 Feb 2006 00:46:55 +0000 Subject: [PATCH] Synch to No Gnus 200602280040. --- lisp/ChangeLog | 5 +++++ lisp/gnus-sum.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dba993f..fa2728a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-02-27 Reiner Steib + + * gnus-sum.el (gnus-sequence-of-unread-articles): Return nil if + first or last are nil. + 2006-02-24 Andreas Seltenreich * nnweb.el (nnweb-gmane-create-mapping): Don't choke on ^M. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 7638136..eb7c940 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -6648,10 +6648,12 @@ displayed, no centering will be performed." (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)))) -- 1.7.10.4