(pop3-leave-mail-on-server): New user variable.

(pop3-movemail): Delete mail only when it is nil.

2 files changed, 10 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 59fa1ac2993..d60cd62a9b8 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-11  Sam Steingold  <sds@gnu.org>
+
+        * pop3.el (pop3-leave-mail-on-server): New user variable.
+        (pop3-movemail): Delete mail only when it is nil.
+
 2003-05-10  Juanma Barranquero  <lektu@terra.es>
 
         * message.el (message-buffer-naming-style): Fix typo.
diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index 192c8f332dd..479aa519976 100644
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -54,6 +54,9 @@
 Defaults to 'pass, for the standard USER/PASS authentication.  Other valid
 values are 'apop.")
 
+(defvar pop3-leave-mail-on-server nil
+  "*Non-nil if the mail is to be left on the POP server after fetching.")
+
 (defvar pop3-timestamp nil
   "Timestamp returned when initially connected to the POP server.
 Used for APOP authentication.")
@@ -97,7 +100,8 @@ Used for APOP authentication.")
               (goto-char (point-min))
               (forward-line 50)
               (delete-region (point-min) (point))))
-          (pop3-dele process n)
+          (unless pop3-leave-mail-on-server
+            (pop3-dele process n))
           (setq n (+ 1 n))
           (if pop3-debug (sit-for 1) (sit-for 0.1))
           )