From 824832011f9b3cf8f53c5bf2016aad8dc31c7b0b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 4 Feb 1996 17:53:09 +0000 Subject: [PATCH] (gnus-update-read-articles): Remove duplicated article numbers on group exit. --- lisp/gnus.el | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 2.39.2