From: teranisi <teranisi>
Date: Sat, 19 Feb 2005 04:47:26 +0000 (+0000)
Subject: Synch up with main trunk.
X-Git-Tag: wl-2_12_1~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8fe2da8f2cc7536365c5f45cbfd15d8e52f0bb15;p=elisp%2Fwanderlust.git

Synch up with main trunk.

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
	elmo-global-flags from distraction.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ad3913c..3c2e961 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,13 @@
+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
+	elmo-global-flags from distraction.
+
 2005-02-11  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-save): Use `write-region-as-binary'
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 114cdf3..04d180c 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -1092,7 +1092,7 @@ is enclosed by at least one regexp grouping construct."
 			      (elmo-uniq-list
 			       (append
 				'(unread answered forwarded digest any)
-				elmo-global-flags)
+				(copy-sequence elmo-global-flags))
 			       #'delq)))))
 	(unless (elmo-flag-valid-p value)
 	  (message "Invalid char in `%s'" value)