Add section "Parameters for Sending".

[elisp/wanderlust.git] / wl / wl-mime.el

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 26a4052..f49c093 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)
@@ -696,7 +698,7 @@ With ARG, ask destination folder."
        (elmo-folder-do-each-message-entity (entity folder)
          (when (string-match
                 (regexp-quote subject-id)
-                (elmo-message-entity-field entity 'subject 'decode))
+                (elmo-message-entity-field entity 'subject))
            (let* ((message
                    ;; request message at the cursor in Subject buffer.
                    (wl-message-request-partial