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