diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus.el | 6 |
1 files changed, 6 insertions, 0 deletions
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 |