diff options
Diffstat (limited to 'lisp/gnus/nnslashdot.el')
| -rw-r--r-- | lisp/gnus/nnslashdot.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/gnus/nnslashdot.el b/lisp/gnus/nnslashdot.el index ee97f7085c8..04e998c76ba 100644 --- a/lisp/gnus/nnslashdot.el +++ b/lisp/gnus/nnslashdot.el @@ -459,11 +459,9 @@ (insert-file-contents file) (goto-char (point-min)) (setq nnslashdot-groups (read (current-buffer)))) - (if (and nnslashdot-groups (< (length (car nnslashdot-groups)) 5)) - (let ((groups nnslashdot-groups)) - (while groups - (nnslashdot-make-tuple (car groups) 5) - (setq groups (cdr groups)))))))) + (when (and nnslashdot-groups (< (length (car nnslashdot-groups)) 5)) + (dolist (group nnslashdot-groups) + (nnslashdot-make-tuple group 5)))))) (defun nnslashdot-write-groups () (with-temp-file (expand-file-name "groups" nnslashdot-directory) |