diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-14 23:58:59 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-14 23:58:59 +0200 |
| commit | 6500684001d4d926ca1267eecf0803bb50ae680b (patch) | |
| tree | 9a7d32983e5ba5f7c73e59b31056fe105e4d21f1 | |
| parent | 4b0c425047b61b306e7775bae11bd0edd78a7c96 (diff) | |
| download | emacs-6500684001d4d926ca1267eecf0803bb50ae680b.tar.gz | |
Modernise a Gnus function a bit
* lisp/gnus/gnus-start.el (gnus-update-active-hashtb-from-killed):
Modernise code a bit.
| -rw-r--r-- | lisp/gnus/gnus-start.el | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index a20a6e727db..eb19ff36f68 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -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." |