# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1055367852 0
# Node ID a5038d551293bc7a031432d4ec82d52eec8604ba
# Parent  75844077a68b7222a04c34b81cb7027596d45c88
(pop3-leave-mail-on-server): New user variable.
(pop3-movemail): Delete mail only when it is nil.

diff -r 75844077a68b -r a5038d551293 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Jun 11 11:43:52 2003 +0000
+++ b/lisp/gnus/ChangeLog	Wed Jun 11 21:44:12 2003 +0000
@@ -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 -r 75844077a68b -r a5038d551293 lisp/gnus/pop3.el
--- a/lisp/gnus/pop3.el	Wed Jun 11 11:43:52 2003 +0000
+++ b/lisp/gnus/pop3.el	Wed Jun 11 21:44:12 2003 +0000
@@ -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 @@
 	      (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))
 	  )