From ff291dbe145897debf3208fed705f5adde388a57 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 31 Aug 2010 08:42:42 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-folder-list-range): Fix indent (only cosmetic fix). --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 16 +++++++--------- 2 files changed, 12 insertions(+), 9 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 931d682..337790b 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2010-08-31 TAKAHASHI Kaoru + + * elmo-imap4.el (elmo-imap4-folder-list-range): Fix indent (only + cosmetic fix). + 2010-08-27 TAKAHASHI Kaoru * elmo-util.el (elmo-delete-char): Fix `elmo-set-work-buf' indent. diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 9e15e29..baf4aa7 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1990,16 +1990,14 @@ Return nil if no complete line has arrived." (elmo-imap4-list folder (concat - (let ((killed - (elmo-folder-killed-list-internal - folder))) + (let ((killed (elmo-folder-killed-list-internal folder))) (if (and killed - (eq (length killed) 1) - (consp (car killed)) - (eq (car (car killed)) 1)) -;; What about elmo-imap4-use-uid? - (format "uid %d:%s" (cdr (car killed)) max) - (format "uid %s:%s" min max))) + (eq (length killed) 1) + (consp (car killed)) + (eq (car (car killed)) 1)) + ;; What about elmo-imap4-use-uid? + (format "uid %d:%s" (cdr (car killed)) max) + (format "uid %s:%s" min max))) " undeleted"))) (luna-define-method elmo-folder-list-messages-plugged -- 1.7.10.4