[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 6500684 1/3: Modernise a Gnus function a bit

From: Lars Ingebrigtsen
Subject: [Emacs-diffs] master 6500684 1/3: Modernise a Gnus function a bit
Date: Sat, 14 Apr 2018 18:10:05 -0400 (EDT)

branch: master
commit 6500684001d4d926ca1267eecf0803bb50ae680b
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Modernise a Gnus function a bit
    * lisp/gnus/gnus-start.el (gnus-update-active-hashtb-from-killed):
    Modernise code a bit.
 lisp/gnus/gnus-start.el | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index a20a6e7..eb19ff3 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."

reply via email to

[Prev in Thread] Current Thread [Next in Thread]