From: hmurata <hmurata>
Date: Mon, 15 May 2006 05:37:24 +0000 (+0000)
Subject: (wl-message-flag-indicator): Fixed the problem
X-Git-Tag: wl-2_15_4~42
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=672f6c570c53e7c345a2506c0762468fed36a259;p=elisp%2Fwanderlust.git

(wl-message-flag-indicator): Fixed the problem
of returning string only of parentheses.
---

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  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-message.el (wl-message-flag-indicator): Fixed the problem
+	of returning string only of parentheses.
+
 2006-05-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* 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)