Mercurial > emacs
comparison lisp/gnus/pop3.el @ 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 | a5381c78296d |
children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
51545:75844077a68b | 51546:a5038d551293 |
---|---|
51 | 51 |
52 (defvar pop3-authentication-scheme 'pass | 52 (defvar pop3-authentication-scheme 'pass |
53 "*POP3 authentication scheme. | 53 "*POP3 authentication scheme. |
54 Defaults to 'pass, for the standard USER/PASS authentication. Other valid | 54 Defaults to 'pass, for the standard USER/PASS authentication. Other valid |
55 values are 'apop.") | 55 values are 'apop.") |
56 | |
57 (defvar pop3-leave-mail-on-server nil | |
58 "*Non-nil if the mail is to be left on the POP server after fetching.") | |
56 | 59 |
57 (defvar pop3-timestamp nil | 60 (defvar pop3-timestamp nil |
58 "Timestamp returned when initially connected to the POP server. | 61 "Timestamp returned when initially connected to the POP server. |
59 Used for APOP authentication.") | 62 Used for APOP authentication.") |
60 | 63 |
95 (set-buffer (process-buffer process)) | 98 (set-buffer (process-buffer process)) |
96 (while (> (buffer-size) 5000) | 99 (while (> (buffer-size) 5000) |
97 (goto-char (point-min)) | 100 (goto-char (point-min)) |
98 (forward-line 50) | 101 (forward-line 50) |
99 (delete-region (point-min) (point)))) | 102 (delete-region (point-min) (point)))) |
100 (pop3-dele process n) | 103 (unless pop3-leave-mail-on-server |
104 (pop3-dele process n)) | |
101 (setq n (+ 1 n)) | 105 (setq n (+ 1 n)) |
102 (if pop3-debug (sit-for 1) (sit-for 0.1)) | 106 (if pop3-debug (sit-for 1) (sit-for 0.1)) |
103 ) | 107 ) |
104 (pop3-quit process)) | 108 (pop3-quit process)) |
105 (kill-buffer crashbuf) | 109 (kill-buffer crashbuf) |