From: hmurata <hmurata>
Date: Fri, 4 Mar 2005 12:30:50 +0000 (+0000)
Subject: (wl-draft-preview-attributes-list): Protect
X-Git-Tag: wl-2_14-root~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f536d232f61f737feeeae09acd7a55fc26a8d4db;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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)