From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Mon, 4 Oct 2010 16:32:09 +0000 (+0200)
Subject: (nnimap-close-server): Implement.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=d5c476a4b620d5813545bf36a5e607336a90b5b4

(nnimap-close-server): Implement.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 800f761a0..16646ca8c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* nnimap.el (nnimap-open-connection): Allow tls as a synonym for ssl.
+	(nnimap-close-server): Implement.
 
 	* dgnushack.el (iswitchb): Require to shut up the compiler.
 
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 0e6a04705..1785fd982 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -424,7 +424,10 @@ textual parts.")
     result))
 
 (deffoo nnimap-close-server (&optional server)
-  t)
+  (when (nnoo-change-server 'nnimap server nil)
+    (ignore-errors
+      (delete-process (get-buffer-process (nnimap-buffer))))
+    t))
 
 (deffoo nnimap-request-close ()
   t)