# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283649171 0
# Node ID fcc33f6790e5dbdda059f06a4ea3a14c0de00932
# Parent  48695a2e29d9bb72964b49037b18c317754b5cd4
pop3.el (pop3-streaming-movemail): Always close the pop3 connection.

diff -r 48695a2e29d9 -r fcc33f6790e5 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Sep 05 01:08:22 2010 +0000
+++ b/lisp/gnus/ChangeLog	Sun Sep 05 01:12:51 2010 +0000
@@ -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 -r 48695a2e29d9 -r fcc33f6790e5 lisp/gnus/pop3.el
--- a/lisp/gnus/pop3.el	Sun Sep 05 01:08:22 2010 +0000
+++ b/lisp/gnus/pop3.el	Sun Sep 05 01:12:51 2010 +0000
@@ -144,8 +144,8 @@
 	(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)