diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2018-08-23 16:55:35 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2018-08-23 16:55:35 +0200 |
| commit | 3946e1db2461c6851b83cb088ad66191f797ed08 (patch) | |
| tree | 97ba07723a126f69d55f4a055936ad9f2aedeeb0 /lisp/gnus/nnfolder.el | |
| parent | a4a3c92e9de59bd0251f36326375cce898919edc (diff) | |
| download | emacs-3946e1db2461c6851b83cb088ad66191f797ed08.tar.gz emacs-3946e1db2461c6851b83cb088ad66191f797ed08.tar.bz2 emacs-3946e1db2461c6851b83cb088ad66191f797ed08.zip | |
Fix binding error in nnfolder-read-folder
* lisp/gnus/nnfolder.el (nnfolder-read-folder): Fix previous
checkin that left `active' unbound before using it.
Diffstat (limited to 'lisp/gnus/nnfolder.el')
| -rw-r--r-- | lisp/gnus/nnfolder.el | 22 |
1 files 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)) |