Revision: emacs@sv.gnu.org/gnus--devo--0--patch-58

Merge from gnus--rel--5.10

Patches applied:

 * emacs--devo--0  (patch 94, 106, 118)

   - Merge from gnus--rel--5.10

 * gnus--rel--5.10  (patch 40-42)

   - Merge from emacs--devo--0
   - Update from CVS

2006-02-27  Reiner Steib  <Reiner.Steib@gmx.de>

   * lisp/gnus-sum.el (gnus-sequence-of-unread-articles): Return nil if
   first or last are nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 01be42f..7651519 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-27  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-sum.el (gnus-sequence-of-unread-articles): Return nil if
+       first or last are nil.
+
 2006-02-24  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
 
        * nnweb.el (nnweb-gmane-create-mapping): Don't choke on ^M.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index f13841f..6cd8407 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6649,10 +6649,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))))