From b26ba9569a6aed5bcdf685eead60d1884a26ebb7 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 27 Jan 2007 08:09:40 +0000 Subject: [PATCH] * elmo-msgdb.el (elmo-msgdb-extra-fields): Make it non-destructive. --- elmo/ChangeLog | 4 ++++ elmo/elmo-msgdb.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * elmo-msgdb.el (elmo-msgdb-extra-fields): Make it non-destructive. + 2007-01-23 Hiroya Murata * 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)) -- 1.7.10.4