X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-mime.el;h=1593d6b4cafb308b193654c7483b2ea75e1b1142;hb=7cda258222739c6726dcbc2c9ad21880493a6119;hp=31b4b98577f8885f31b8f17122c559e0a3b7e0bb;hpb=b9b9d404a0912f6ee172f2adfe249823af297bcd;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 31b4b98..1593d6b 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -71,16 +71,35 @@ By setting following-method as yank-content."
 (defun wl-draft-preview-message ()
   ""
   (interactive)
-  (let ((mime-display-header-hook 'wl-highlight-headers)
-	mime-view-ignored-field-list ; all header.
-	(mime-edit-translate-buffer-hook (append
-					  (list 'wl-draft-config-exec)
-					  mime-edit-translate-buffer-hook)))
+  (let* (recipients-message
+	 (mime-display-header-hook 'wl-highlight-headers)
+	 mime-view-ignored-field-list ; all header.
+	 (mime-edit-translate-buffer-hook
+	  (append
+	   '((lambda ()
+	       (setq recipients-message
+		     (concat "Recipients: "
+			     (mapconcat
+			      'identity
+			      (wl-draft-deduce-address-list
+			       (current-buffer)
+			       (point-min)
+			       (save-excursion
+				 (re-search-forward
+				  (concat "^"
+					  (regexp-quote mail-header-separator)
+					  "$")
+				  nil t)
+				 (point)))
+			      ", ")))
+	       (run-hooks 'wl-draft-send-hook)))
+	   mime-edit-translate-buffer-hook)))
     (mime-edit-preview-message)
     (let ((buffer-read-only nil))
       (when wl-highlight-body-too
 	(wl-highlight-body))
-      (run-hooks 'wl-draft-preview-message-hook))))
+      (run-hooks 'wl-draft-preview-message-hook))
+    (message recipients-message)))
 
 (defalias 'wl-draft-caesar-region  'mule-caesar-region)