procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/gnus/nnmaildir.el (nnmaildir-close-server):

Browse source 
Remove unused locals.

; By inspection, these were leftovers rather than dynamic bindings.
; See eg a very old version of nnmaildir.el such as
; https://web.archive.org/web/20020531235353/http://multivac.cwru.edu:80/nnmaildir/releases/nnmaildir-2001.12.19.el.bz2
This commit is contained in:
Glenn Morris 2018-03-15 20:22:06 -04:00
parent 23f139e72a
commit 0a9d297198
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/gnus/nnmaildir.el
View file

@ -1779,14 +1779,11 @@ This variable is set by `nnmaildir-request-article'.")
t)))
(defun nnmaildir-close-server (&optional server)
(defvar flist) (defvar ls) (defvar dirs) (defvar dir)
(defvar files) (defvar file) (defvar x)
(let (flist ls dirs dir files file x)
(nnmaildir--prepare server nil)
(when nnmaildir--cur-server
(setq server nnmaildir--cur-server
nnmaildir--cur-server nil)
(unintern (nnmaildir--srv-address server) nnmaildir--servers)))
(nnmaildir--prepare server nil)
(when nnmaildir--cur-server
(setq server nnmaildir--cur-server
nnmaildir--cur-server nil)
(unintern (nnmaildir--srv-address server) nnmaildir--servers))
t)
(defun nnmaildir-request-close ()