(wl-read-search-condition-internal): Fixed the last

change.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e25a791..7be8382 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-util.el (wl-read-search-condition-internal): Fixed the last
+       change.
+
 2005-02-18  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * wl-util.el (wl-read-search-condition-internal): Protect

diff --git a/wl/wl-util.el b/wl/wl-util.el
index bfc84c3..04d180c 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
-                               elmo-global-flags
-                               '(unread answered forwarded digest any))
+                               '(unread answered forwarded digest any)
+                               (copy-sequence elmo-global-flags))
                               #'delq)))))
        (unless (elmo-flag-valid-p value)
          (message "Invalid char in `%s'" value)