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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5bd02f73bbfe02d05091d610e449d9e6125c33a2..a411561545208ba5f10b909529a992bc85d4e26e 100644 (file)
--- 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 ca92046f1a82e552267180bba3f1b547786d0616..51c2f1ae987b4d18f94e438684a90dc794488b8c 100644 (file)
--- 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)