(pop3-streaming-movemail): Always close the pop3 connection.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72f482c..66db0f9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-09-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * pop3.el (pop3-streaming-movemail): Always close the pop3 connection.
+
        * mail-source.el (mail-source-delete-crash-box): Only check the
        incoming files for deletion once per day to save a lot of file
        accesses.

diff --git a/lisp/pop3.el b/lisp/pop3.el
index ca92046..51c2f1a 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -144,8 +144,8 @@ Use streaming commands."
        (pop3-write-to-file file)
        (unless pop3-leave-mail-on-server
          (pop3-send-streaming-command
-          process "DELE" message-count nil))
-       (pop3-quit process)))))
+          process "DELE" message-count nil))))
+    (pop3-quit process)))
 
 (defun pop3-send-streaming-command (process command count total-size)
   (erase-buffer)