diff options
| author | Sam Steingold <sds@gnu.org> | 2003-06-11 21:44:12 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2003-06-11 21:44:12 +0000 |
| commit | 3e7b210cdd35ca4049f791ffce6b727f6fe4bbd7 (patch) | |
| tree | c561242a388295f5610a7f83f21b294489934f2b /lisp | |
| parent | b23c0a83dce8ac43d8005a4eb7c09e5675e7c864 (diff) | |
| download | emacs-3e7b210cdd35ca4049f791ffce6b727f6fe4bbd7.tar.gz | |
(pop3-leave-mail-on-server): New user variable.
(pop3-movemail): Delete mail only when it is nil.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/pop3.el | 6 |
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)) ) |