mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(pop3-movemail): Delete mail only when it is nil.
This commit is contained in:
Sam Steingold 2003-06-11 21:44:12 +00:00
parent b23c0a83dc
commit 3e7b210cdd
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -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.

6
lisp/gnus/pop3.el
View file

@ -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))
)