Mercurial > emacs
changeset 51546:a5038d551293
(pop3-leave-mail-on-server): New user variable.
(pop3-movemail): Delete mail only when it is nil.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Wed, 11 Jun 2003 21:44:12 +0000 |
| parents | 75844077a68b |
| children | 6f45454afdb2 |
| files | lisp/gnus/ChangeLog lisp/gnus/pop3.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)) )