Mercurial > emacs

changeset 14484:6903f7c54083

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-update-read-articles): Remove duplicated article numbers on group exit.
author Richard M. Stallman <rms@gnu.org>
date Sun, 04 Feb 1996 17:53:09 +0000
parents 7f49c41db1e8
children ea5f35baa429
files lisp/gnus.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus.el	Sun Feb 04 05:52:54 1996 +0000
+++ b/lisp/gnus.el	Sun Feb 04 17:53:09 1996 +0000
@@ -12713,6 +12713,12 @@
       (while (and dormant (< (car dormant) (car active)))
 	(setq dormant (cdr dormant)))
       (setq unread (sort (append unselected unread) '<))
+      ;; Weed out duplicates.
+      (let ((un unread))
+	(while (cdr un)
+	  (if (eq (car un) (car (cdr un)))
+	      (setcdr un (cdr (cdr un)))
+	    (setq un (cdr un)))))
       ;; Compute the ranges of read articles by looking at the list of
       ;; unread articles.  
       (while unread