[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 0a9d297 2/3: * lisp/gnus/nnmaildir.el (nnmaildir-cl
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 0a9d297 2/3: * lisp/gnus/nnmaildir.el (nnmaildir-close-server): |
Date: |
Thu, 15 Mar 2018 20:23:21 -0400 (EDT) |
branch: master
commit 0a9d297198b9f4d6a0d6355bd7692740d6ecb418
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* 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 3e4a87c..dc97b32 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 ()