From 0a9d297198b9f4d6a0d6355bd7692740d6ecb418 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 15 Mar 2018 20:22:06 -0400 Subject: [PATCH] * lisp/gnus/nnmaildir.el (nnmaildir-close-server): 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 --- lisp/gnus/nnmaildir.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/lisp/gnus/nnmaildir.el b/lisp/gnus/nnmaildir.el index 3e4a87cee77..dc97b32f0bb 100644 --- a/lisp/gnus/nnmaildir.el +++ b/lisp/gnus/nnmaildir.el @@ -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 () -- 2.39.2