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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1a13a79..c0e8451 100644 (file)
--- 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 (file)
--- 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."