From f536d232f61f737feeeae09acd7a55fc26a8d4db Mon Sep 17 00:00:00 2001 From: hmurata Date: Fri, 4 Mar 2005 12:30:50 +0000 Subject: [PATCH] (wl-draft-preview-attributes-list): Protect wl-draft-preview-attributes-list from distraction. --- wl/ChangeLog | 5 +++++ wl/wl-mime.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) 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 + + * wl-mime.el (wl-draft-preview-attributes-list): Protect + wl-draft-preview-attributes-list from distraction. + 2005-02-27 Yuuichi Teranishi * 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) -- 1.7.10.4