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

2 files changed, 4 insertions, 2 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5bd02f73bbf..a4115615452 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus/pop3.el b/lisp/gnus/pop3.el
index ca92046f1a8..51c2f1ae987 100644
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/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)