From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 4 Feb 1996 17:53:09 +0000 (+0000)
Subject: (gnus-update-read-articles): Remove duplicated article numbers on group exit.
X-Git-Tag: emacs-19.34~1376
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=824832011f9b3cf8f53c5bf2016aad8dc31c7b0b;p=emacs.git

(gnus-update-read-articles): Remove duplicated article numbers on group exit.
---

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 299abcb257e..7b89b24994f 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -12713,6 +12713,12 @@ Returns whether the updating was successful."
       (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