* wl-util.el (wl-read-search-condition-internal): Protect

elmo-global-flags from distraction.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 49810e8..e25a791 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-18  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-util.el (wl-read-search-condition-internal): Protect
+       elmo-global-flags from distraction.
+
 2005-02-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl.el (wl-exit): Call `elmo-clear-signal-slots'.

diff --git a/wl/wl-util.el b/wl/wl-util.el
index 114cdf3..bfc84c3 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -1091,8 +1091,8 @@ is enclosed by at least one regexp grouping construct."
                      (mapcar (lambda (f) (list (capitalize (symbol-name f))))
                              (elmo-uniq-list
                               (append
-                               '(unread answered forwarded digest any)
-                               elmo-global-flags)
+                               elmo-global-flags
+                               '(unread answered forwarded digest any))
                               #'delq)))))
        (unless (elmo-flag-valid-p value)
          (message "Invalid char in `%s'" value)