diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-04 17:53:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-04 17:53:09 +0000 |
| commit | 824832011f9b3cf8f53c5bf2016aad8dc31c7b0b (patch) | |
| tree | 87c8024b367b8c19ef1262d3301b2884b5681c54 /lisp/gnus.el | |
| parent | cc39bc3802b833fe4d36ab10478dc9d384aa2f1f (diff) | |
| download | emacs-824832011f9b3cf8f53c5bf2016aad8dc31c7b0b.tar.gz | |
(gnus-update-read-articles): Remove duplicated article numbers on group exit.
Diffstat (limited to 'lisp/gnus.el')
| -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 |