From: hmurata <hmurata>
Date: Sun, 19 Sep 2004 15:03:25 +0000 (+0000)
Subject: (wl-summary-get-available-flags): Rewrite.
X-Git-Tag: wl-2_12-root~94
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ceb5cd64ea15574bd2a575cff5ec03ee97c17c9e;p=elisp%2Fwanderlust.git

(wl-summary-get-available-flags): Rewrite.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1a13a79..c0e8451 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-09-19  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-get-available-flags): Rewrite.
+
 2004-09-19  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-summary.el (wl-summary-sync-marks): Remove condition which
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index f10bd11..4ad7f8c 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1793,13 +1793,13 @@ This function is defined for `window-scroll-functions'"
    reverse))
 
 (defun wl-summary-get-available-flags (&optional include-specials)
-  (if include-specials
-      (elmo-uniq-list (append elmo-global-flag-list elmo-preserved-flags))
-    (delq 'new (delq 'cached
-		     (elmo-uniq-list
-		      (append elmo-global-flag-list
-			      elmo-preserved-flags
-			      nil))))))
+  (let ((flags (elmo-uniq-list
+		(append elmo-global-flag-list
+			(copy-sequence elmo-preserved-flags))
+		#'delq)))
+    (if include-specials
+	flags
+      (delq 'new (delq 'cached flags)))))
 
 (defun wl-summary-sync-marks ()
   "Update persistent marks in summary."