From 672f6c570c53e7c345a2506c0762468fed36a259 Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 15 May 2006 05:37:24 +0000 Subject: [PATCH] (wl-message-flag-indicator): Fixed the problem of returning string only of parentheses. --- wl/ChangeLog | 5 +++++ wl/wl-message.el | 47 ++++++++++++++++++++++++----------------------- 2 files changed, 29 insertions(+), 23 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index bdc7057..a28c45d 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2006-05-15 Hiroya Murata + + * wl-message.el (wl-message-flag-indicator): Fixed the problem + of returning string only of parentheses. + 2006-05-13 Hiroya Murata * wl-summary.el (wl-summary-write): Add argument `folder'. diff --git a/wl/wl-message.el b/wl/wl-message.el index 71e0831..bde285d 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -454,29 +454,30 @@ Returns non-nil if bottom of message." wl-message-buffer-cur-display-type)) (defun wl-message-flag-indicator (flags) - (if (null flags) - "" - (concat - " (" - (mapconcat - (lambda (flag) - (let ((indicator (capitalize (symbol-name flag))) - face) - (when (and (assq flag wl-summary-flag-alist) - (facep - (setq face (intern - (format "wl-highlight-summary-%s-flag-face" - flag))))) - (put-text-property 0 (length indicator) 'face face indicator)) - indicator)) - (sort (elmo-get-global-flags flags) - (lambda (l r) - (> (length (memq (assq l wl-summary-flag-alist) - wl-summary-flag-alist)) - (length (memq (assq r wl-summary-flag-alist) - wl-summary-flag-alist))))) - ", ") - ")"))) + (let ((flags (elmo-get-global-flags flags))) + (if (null flags) + "" + (concat + " (" + (mapconcat + (lambda (flag) + (let ((indicator (capitalize (symbol-name flag))) + face) + (when (and (assq flag wl-summary-flag-alist) + (facep + (setq face (intern + (format "wl-highlight-summary-%s-flag-face" + flag))))) + (put-text-property 0 (length indicator) 'face face indicator)) + indicator)) + (sort flags + (lambda (l r) + (> (length (memq (assq l wl-summary-flag-alist) + wl-summary-flag-alist)) + (length (memq (assq r wl-summary-flag-alist) + wl-summary-flag-alist))))) + ", ") + ")")))) (defun wl-message-redisplay (folder number display-type &optional force-reload) (let* ((default-mime-charset wl-mime-charset) -- 1.7.10.4