From 4d5f9f3f230acd6ef893b563f2738913d953e0a0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 3 Apr 2003 05:40:11 +0000 Subject: [PATCH] * pop3.el (pop3-get-message-numbers): Don't check uidls when `pop3-leave-mail-on-server' is nil. --- ChangeLog | 5 +++++ lisp/pop3.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 9ebd8a3..da704ca 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-04-03 Katsumi Yamaoka + + * lisp/pop3.el (pop3-get-message-numbers): Don't check uidls when + `pop3-leave-mail-on-server' is nil. + 2003-03-31 Katsumi Yamaoka * 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 -- 1.7.10.4