From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 14 Apr 2018 21:58:59 +0000 (+0200)
Subject: Modernise a Gnus function a bit
X-Git-Tag: emacs-27.0.90~5205
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6500684001d4d926ca1267eecf0803bb50ae680b;p=emacs.git

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 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."