From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 23 Aug 2018 14:55:35 +0000 (+0200)
Subject: Fix binding error in nnfolder-read-folder
X-Git-Tag: emacs-27.0.90~4517
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3946e1db2461c6851b83cb088ad66191f797ed08;p=emacs.git

Fix binding error in nnfolder-read-folder

* lisp/gnus/nnfolder.el (nnfolder-read-folder): Fix previous
checkin that left `active' unbound before using it.
---

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))