From 3946e1db2461c6851b83cb088ad66191f797ed08 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 23 Aug 2018 16:55:35 +0200 Subject: [PATCH] Fix binding error in nnfolder-read-folder * lisp/gnus/nnfolder.el (nnfolder-read-folder): Fix previous checkin that left `active' unbound before using it. --- lisp/gnus/nnfolder.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el index e0d31126b62..11a39866689 100644 --- a/lisp/gnus/nnfolder.el +++ b/lisp/gnus/nnfolder.el @@ -877,16 +877,16 @@ deleted. Point is left where the deleted region was." (delete-char 1)) (nnmail-activate 'nnfolder) ;; Read in the file. - (let ((delim "^From ") - (marker (concat "\n" nnfolder-article-marker)) - (number "[0-9]+") - (active (or (cadr (assoc group nnfolder-group-alist)) - (cons 1 0))) - (scantime (assoc group nnfolder-scantime-alist)) - (minid (cdr active)) - maxid start end newscantime - novbuf articles newnum - buffer-read-only) + (let* ((delim "^From ") + (marker (concat "\n" nnfolder-article-marker)) + (number "[0-9]+") + (active (or (cadr (assoc group nnfolder-group-alist)) + (cons 1 0))) + (scantime (assoc group nnfolder-scantime-alist)) + (minid (cdr active)) + maxid start end newscantime + novbuf articles newnum + buffer-read-only) (setq maxid minid) (unless (or gnus-nov-is-evil nnfolder-nov-is-evil @@ -958,7 +958,7 @@ deleted. Point is left where the deleted region was." (while (not (= end (point-max))) (setq start (marker-position end)) (goto-char end) - ;; There may be more than one "From " line, so we skip past + ;; There may be more than one "From " line, so we skip past ;; them. (while (looking-at delim) (forward-line 1)) -- 2.39.5