mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1996-02-04 17:53:09 +00:00
parent cc39bc3802
commit 824832011f
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/gnus.el
View File

@ -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