(wl-draft-preview-attributes-list): Protect

wl-draft-preview-attributes-list from distraction.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1ed32dc..d2095ad 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-04  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-mime.el (wl-draft-preview-attributes-list): Protect
+       wl-draft-preview-attributes-list from distraction.
+
 2005-02-27  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-summary.el (wl-summary-sync-update): Sort the return value of

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 26a4052..f30f6a3 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -179,10 +179,12 @@ It calls following-method selected from variable
 (defun wl-draft-preview-attributes-list ()
   (if (listp (car wl-draft-preview-attributes-list))
       (elmo-uniq-list
-       (append (and (wl-message-mail-p)
-                   (cdr (assq 'mail wl-draft-preview-attributes-list)))
-              (and (wl-message-news-p)
-                   (cdr (assq 'news wl-draft-preview-attributes-list)))))
+       (nconc (and (wl-message-mail-p)
+                  (copy-sequence
+                   (cdr (assq 'mail wl-draft-preview-attributes-list))))
+             (and (wl-message-news-p)
+                  (copy-sequence
+                   (cdr (assq 'news wl-draft-preview-attributes-list))))))
     wl-draft-preview-attributes-list))
 
 (defun wl-draft-show-attributes-buffer (attribute-values)