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 e5bf501..f49c093 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -28,11 +28,11 @@
 
 ;;; Code:
 ;;
-
 (require 'mime-view)
 (require 'mime-edit)
 (require 'mime-play)
 (require 'elmo)
+(require 'wl-vars)
 
 (eval-when-compile
   (defalias-maybe 'pgg-decrypt-region 'ignore)
@@ -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