From: Reiner Steib Date: Sat, 9 Sep 2006 11:17:34 +0000 (+0000) Subject: (pop3-leave-mail-on-server): Mention problem of duplicate X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=b8c21edb3cc20ea62918029b1fe36e6751a81312 (pop3-leave-mail-on-server): Mention problem of duplicate mails in the doc string. Add some URLs in comment. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 44fc8c0ae..65fe1e140 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-09-09 Reiner Steib + + * pop3.el (pop3-leave-mail-on-server): Mention problem of duplicate + mails in the doc string. Add some URLs in comment. + 2006-09-07 Katsumi Yamaoka * rfc2047.el (rfc2047-quote-special-characters-in-quoted-strings): Fix @@ -5273,7 +5278,7 @@ 2004-11-15 Jesper Harder * pop3.el (pop3-leave-mail-on-server): Don't quote nil in - docstrings. + doc string. Improve doc string. 2004-11-15 Katsumi Yamaoka diff --git a/lisp/pop3.el b/lisp/pop3.el index 8282f9c50..eeb7d70dc 100644 --- a/lisp/pop3.el +++ b/lisp/pop3.el @@ -89,8 +89,12 @@ If `pop3-leave-mail-on-server' is non-nil the mail is to be left on the POP server after fetching. Note that POP servers maintain no state information between sessions, so what the client believes is there and what is actually there may not match up. -If they do not, then the whole thing can fall apart and leave you -with a corrupt mailbox." +If they do not, then you may get duplicate mails or the whole +thing can fall apart and leave you with a corrupt mailbox." + ;; We can't use the UILD support from XEmacs mail-lib or cvs.m17n.org: + ;; http://thread.gmane.org/v9lld8fml4.fsf@marauder.physik.uni-ulm.de + ;; http://thread.gmane.org/b9yy8hzy9ej.fsf@jpl.org + ;; Any volunteer to re-implement this? :version "22.1" ;; Oort Gnus :type 'boolean :group 'pop3) @@ -167,6 +171,11 @@ Shorter values mean quicker response, but are more CPU intensive.") (pop3-dele process n)) (setq n (+ 1 n)) (if pop3-debug (sit-for 1) (sit-for 0.1))) ; why? + (when (and pop3-leave-mail-on-server + (> n 1)) + (message "pop3.el doesn't support UIDL. Setting `pop3-leave-mail-on-server' +to %s might not give the result you'd expect." pop3-leave-mail-on-server) + (sit-for 1)) (pop3-quit process)) (kill-buffer crashbuf)) t)