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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a5bb6c9..f57d16f 100644 (file)
--- 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 (file)
--- 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))