From: Glenn Morris <rgm@gnu.org>
Date: Fri, 16 Mar 2018 00:22:06 +0000 (-0400)
Subject: * lisp/gnus/nnmaildir.el (nnmaildir-close-server):
X-Git-Tag: emacs-27.0.90~5484
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a9d297198b9f4d6a0d6355bd7692740d6ecb418;p=emacs.git

* 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
---

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 ()