1 |
;;; pop3.el --- Post Office Protocol (RFC 1460) interface |
;;; pop3.el --- Post Office Protocol (RFC 1460) interface |
2 |
|
|
3 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Richard L. Pieri <ratinox@peorth.gweep.net> |
;; Author: Richard L. Pieri <ratinox@peorth.gweep.net> |
54 |
Defaults to 'pass, for the standard USER/PASS authentication. Other valid |
Defaults to 'pass, for the standard USER/PASS authentication. Other valid |
55 |
values are 'apop.") |
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.") |
59 |
|
|
60 |
(defvar pop3-timestamp nil |
(defvar pop3-timestamp nil |
61 |
"Timestamp returned when initially connected to the POP server. |
"Timestamp returned when initially connected to the POP server. |
62 |
Used for APOP authentication.") |
Used for APOP authentication.") |
100 |
(goto-char (point-min)) |
(goto-char (point-min)) |
101 |
(forward-line 50) |
(forward-line 50) |
102 |
(delete-region (point-min) (point)))) |
(delete-region (point-min) (point)))) |
103 |
(pop3-dele process n) |
(unless pop3-leave-mail-on-server |
104 |
|
(pop3-dele process n)) |
105 |
(setq n (+ 1 n)) |
(setq n (+ 1 n)) |
106 |
(if pop3-debug (sit-for 1) (sit-for 0.1)) |
(if pop3-debug (sit-for 1) (sit-for 0.1)) |
107 |
) |
) |