mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

gnus-start.el (gnus-make-hashtable-from-newsrc-alist): Remove duplicates from .newsrc list.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-09-05 00:56:31 +00:00 committed by Katsumi Yamaoka
parent ef45ee6fc8
commit fb994703be
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/gnus/ChangeLog
View File

@ -2,6 +2,8 @@
* gnus-start.el (gnus-get-unread-articles): Protect against groups that
come from no known methods.
(gnus-make-hashtable-from-newsrc-alist): Remove duplicates from .newsrc
list.
* pop3.el (pop3-display-message-size-flag): Removed -- everybody wants
message sizes.

20
lisp/gnus/gnus-start.el
View File

@ -1815,14 +1815,18 @@ If SCAN, request a scan of that group as well."
(if (setq rest (member method methods))
(gnus-info-set-method info (car rest))
(push method methods)))
(gnus-sethash
(car info)
;; Preserve number of unread articles in groups.
(cons (and ohashtb (car (gnus-gethash (car info) ohashtb)))
prev)
gnus-newsrc-hashtb)
(setq prev alist
alist (cdr alist)))
;; Check for duplicates.
(if (gnus-gethash (car info) gnus-newsrc-hashtb)
;; Remove this entry from the alist.
(setcdr prev (cddr prev))
(gnus-sethash
(car info)
;; Preserve number of unread articles in groups.
(cons (and ohashtb (car (gnus-gethash (car info) ohashtb)))
prev)
gnus-newsrc-hashtb)
(setq prev alist))
(setq alist (cdr alist)))
;; Make the same select-methods in `gnus-server-alist' identical
;; as well.
(while methods