X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-mime.el;h=1847b6f62cca74903a70612e58c130dfb8d7a038;hb=98f38e5383840a86e4ebca5803d505110d0997f8;hp=3c5cd888eb9fa4fb23f91775d70e190ac85351fa;hpb=9e8ff9afd53908e4671f7ba9f1aefc7f363bbeb9;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 3c5cd88..1847b6f 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -69,18 +69,26 @@ By setting following-method as yank-content."
 (defalias 'wl-draft-enclose-digest-region 'mime-edit-enclose-digest-region)
 
 (defun wl-draft-preview-message ()
-  ""
+  "Preview editing message."
   (interactive)
   (let* (recipients-message
 	 (config-exec-flag wl-draft-config-exec-flag)
+	 (parent-folder wl-draft-parent-folder)
 	 (mime-display-header-hook 'wl-highlight-headers)
+	 (mime-header-encode-method-alist
+	  (append
+	   '((wl-draft-eword-encode-address-list
+	      .  (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc)))
+	   (if (boundp 'mime-header-encode-method-alist)
+	       (symbol-value 'mime-header-encode-method-alist))))
 	 mime-view-ignored-field-list	; all header.
 	 (mime-edit-translate-buffer-hook
 	  (append
 	   (list
 	    (function
 	     (lambda ()
-	       (let ((wl-draft-config-exec-flag config-exec-flag))
+	       (let ((wl-draft-config-exec-flag config-exec-flag)
+		     (wl-draft-parent-folder parent-folder))
 		 (run-hooks 'wl-draft-send-hook)
 		 (setq recipients-message
 		       (condition-case err
@@ -215,11 +223,12 @@ By setting following-method as yank-content."
     (while (file-directory-p filename)
       (setq filename (read-file-name "Please set filename (not directory): "
 				     filename)))
-    (if (file-exists-p filename)
-	(or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
-	    (error "Not saved")))
-    (setq wl-mime-save-directory (file-name-directory filename))
-    (mime-write-entity-content entity filename)))
+    (if (and (file-exists-p filename)
+	     (not (yes-or-no-p (format "File %s exists. Save anyway? "
+				       filename))))
+	(message "Not saved")
+      (setq wl-mime-save-directory (file-name-directory filename))
+      (mime-write-entity-content entity filename))))
 
 ;;; Yet another combine method.
 (defun wl-mime-combine-message/partial-pieces (entity situation)