procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Modernise a Gnus function a bit

Browse source 
* lisp/gnus/gnus-start.el (gnus-update-active-hashtb-from-killed):
Modernise code a bit.
This commit is contained in:
Lars Ingebrigtsen 2018-04-14 23:58:59 +02:00
parent 4b0c425047
commit 6500684001
1 changed files with 4 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/gnus/gnus-start.el
View file

@ -1989,15 +1989,10 @@ backend check whether the group actually exists."
;; Enter all dead groups into the hashtb.
(defun gnus-update-active-hashtb-from-killed ()
(let ((hashtb (setq gnus-active-hashtb (gnus-make-hashtable 4096)))
(lists (list gnus-killed-list gnus-zombie-list))
killed)
(while lists
(setq killed (car lists))
(while killed
(gnus-sethash (string-as-unibyte (car killed)) nil hashtb)
(setq killed (cdr killed)))
(setq lists (cdr lists)))))
(let ((hashtb (setq gnus-active-hashtb (gnus-make-hashtable 4096))))
(dolist (list (list gnus-killed-list gnus-zombie-list))
(dolist (group list)
(gnus-sethash (string-as-unibyte group) nil hashtb)))))
(defun gnus-get-killed-groups ()
"Go through the active hashtb and mark all unknown groups as killed."