From df48d24d8255abb3a126d59bfa3cc99012df6ada Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 17 Jan 2010 13:31:50 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-folder-list-messages-plugged): Use TAB for indent (only cosmetic fix). --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 15 ++++++--------- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index ddf1133..2bdd3dc 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2010-01-17 TAKAHASHI Kaoru + + * elmo-imap4.el (elmo-folder-list-messages-plugged): Use TAB for + indent (only cosmetic fix). + 2010-01-15 Vitaly Mayatskih * elmo-version.el (elmo-version): Up to 2.15.9. diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 7f2bcc4..e377dc6 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1985,17 +1985,14 @@ Return nil if no complete line has arrived." (format "uid %s:%s" min max))) " undeleted"))) -(luna-define-method elmo-folder-list-messages-plugged ((folder - elmo-imap4-folder) - &optional - enable-killed) - +(luna-define-method elmo-folder-list-messages-plugged + ((folder elmo-imap4-folder) &optional enable-killed) (let* ((old (elmo-msgdb-list-messages (elmo-folder-msgdb folder))) - (new (elmo-imap4-folder-list-range folder - (1+ (or (elmo-folder-get-info-max folder) 0)) "*")) - (united-old-new (elmo-union old new))) + (new (elmo-imap4-folder-list-range + folder (1+ (or (elmo-folder-get-info-max folder) 0)) "*")) + (united-old-new (elmo-union old new))) (if (= (length united-old-new) (or (elmo-folder-get-info-length folder) 0)) - united-old-new + united-old-new (elmo-union new (elmo-imap4-folder-list-range folder -- 1.7.10.4