From: yamaoka <yamaoka>
Date: Thu, 3 Apr 2003 05:40:11 +0000 (+0000)
Subject: * pop3.el (pop3-get-message-numbers): Don't check uidls when
X-Git-Tag: t-gnus-6_15_18-00~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d5f9f3f230acd6ef893b563f2738913d953e0a0;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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