(nnimap-close-server): Implement.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 800f761..16646ca 100644 (file)
--- 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 0e6a047..1785fd9 100644 (file)
--- 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)