Modernise a Gnus function a bit

* lisp/gnus/gnus-start.el (gnus-update-active-hashtb-from-killed):
Modernise code a bit.

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index a20a6e727dba60232e75cefebc69be40a6cec40a..eb19ff36f689149f966121f65ac505e095e6b841 100644 (file)
--- 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."