(pop3-streaming-movemail): Respect pop3-leave-mail-on-server.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b783201..3d7c4cb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * pop3.el (pop3-streaming-movemail): Respect
+       pop3-leave-mail-on-server. 
+
        * mail-source.el (mail-source-fetch-pop): Use streaming pop3
        retrieval.
 

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 72c88da..9874882 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -142,8 +142,9 @@ Use streaming commands."
        (pop3-send-streaming-command
         process "RETR" message-count message-total-size)
        (pop3-write-to-file file)
-       (pop3-send-streaming-command
-        process "DELE" message-count nil)
+       (unless pop3-leave-mail-on-server
+         (pop3-send-streaming-command
+          process "DELE" message-count nil))
        (pop3-quit process)))))
 
 (defun pop3-send-streaming-command (process command count total-size)