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 e0d31126b620d6c44dbd57f993cb5c40527c1c0c..11a3986668969a3cdfce0ce6f4df2ef682365064 100644 (file)
--- 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))