From: yoichi <yoichi>
Date: Sat, 27 Jan 2007 08:09:40 +0000 (+0000)
Subject: * elmo-msgdb.el (elmo-msgdb-extra-fields): Make it non-destructive.
X-Git-Tag: wl-2_15_6-fixes~92
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b26ba9569a6aed5bcdf685eead60d1884a26ebb7;p=elisp%2Fwanderlust.git

* elmo-msgdb.el (elmo-msgdb-extra-fields): Make it non-destructive.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a5bb6c9..f57d16f 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2007-01-27  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* elmo-msgdb.el (elmo-msgdb-extra-fields): Make it non-destructive.
+
 2007-01-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-shimbun.el (elmo-shimbun-update-overview): Add argnument
diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 0d43d20..774ec47 100644
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -150,7 +150,7 @@ VALUE is the field value."
 		  (cond ((functionp real-fields)
 			 (funcall real-fields extra))
 			((listp real-fields)
-			 real-fields)))
+			 (copy-sequence real-fields))))
 	      (list extra))))
 	elmo-msgdb-extra-fields))
     elmo-msgdb-extra-fields))