diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-11 01:14:30 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-11 01:14:30 -0500 |
commit | 8497af6892fcf9b08a1c120e897c9f5c21ea64fa (patch) | |
tree | f39675774a7c36c050f0175128d7aeef271ceaee /lisp/gnus/nnfolder.el | |
parent | f695fdfef7d8e9ea4e0e17b69e0a28f952db55d6 (diff) | |
download | emacs-8497af6892fcf9b08a1c120e897c9f5c21ea64fa.tar.gz |
* lisp/gnus/nnmh.el (nnmh-newsgroup-articles): Declare var
Reported by Barry Fishman <barry@ecubist.org>.
Along the way, I checked other variables which are similarly let-bound
to nil and then read with any intervening assignment, which found
another similar case of missing `defvar`s plus a bit of dead code.
* lisp/gnus/gnus-kill.el (gnus-apply-kill-file-internal):
Remove constant nil var `beg`.
* lisp/gnus/gnus-search.el (gnus-search-query-parse-kv):
Remove constant nil var `return`.
* lisp/gnus/gnus-start.el (gnus-ask-server-for-new-groups):
Remove constant nil var `group`.
(gnus-killed-assoc, gnus-marked-assoc, gnus-newsrc-assoc): Declare vars.
* lisp/gnus/gnus-sum.el (gnus-compute-read-articles):
Remove constant nil var `first`.
* lisp/gnus/nnbabyl.el (nnbabyl-request-accept-article):
Remove constant nil var `beg`.
* lisp/gnus/nnfolder.el (nnfolder-possibly-change-group):
Remove constant nil var `inf`.
* lisp/gnus/nnrss.el (nnrss-request-article):
Remove constant nil var `err`.
Diffstat (limited to 'lisp/gnus/nnfolder.el')
-rw-r--r-- | lisp/gnus/nnfolder.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el index 1dd784d5a5b..2de5b83a7b2 100644 --- a/lisp/gnus/nnfolder.el +++ b/lisp/gnus/nnfolder.el @@ -706,7 +706,7 @@ deleted. Point is left where the deleted region was." (if dont-check (setq nnfolder-current-group group nnfolder-current-buffer nil) - (let (inf file) + (let (file) ;; inf ;; If we have to change groups, see if we don't already have ;; the folder in memory. If we do, verify the modtime and ;; destroy the folder if needed so we can rescan it. @@ -718,7 +718,7 @@ deleted. Point is left where the deleted region was." ;; touched the file since last time. (when (and nnfolder-current-buffer (not (gnus-buffer-live-p nnfolder-current-buffer))) - (setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist) + (setq nnfolder-buffer-alist (delq nil nnfolder-buffer-alist) ;; inf nnfolder-current-buffer nil)) (setq nnfolder-current-group group) |