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

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 59fa1ac299338e1f507e674e89d3b46fb53d63c5..d60cd62a9b82747c5ac26fa5754030c727460ca9 100644 (file)
--- 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 192c8f332dde419a0e9689f77ce3674891f43503..479aa519976c84e85f33c013fc9447b2e84d8943 100644 (file)
--- 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))
          )