* pop3.el (pop3-get-message-numbers): Don't check uidls when

 `pop3-leave-mail-on-server' is nil.

diff --git a/ChangeLog b/ChangeLog
index 9ebd8a3..da704ca 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-03  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/pop3.el (pop3-get-message-numbers): Don't check uidls when
+       `pop3-leave-mail-on-server' is nil.
+
 2003-03-31  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-vers.el: T-gnus 6.15.17 revision 00.

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 4996d24..17eaaee 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -414,7 +414,8 @@ If NOW, use that time instead."
       ;; only retrieve messages matching our regexp or in the uidl list
       (when (and
             ;; remove elements not in the uidl, this assumes the uidl is short
-            (or (not (eq pop3-uidl-support t))
+            (or (not (and pop3-leave-mail-on-server
+                          (eq pop3-uidl-support t)))
                 (memq (caar messages) uidl))
             (caar messages)
             ;; don't download messages that are too large