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

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 8498cb7..1593d6b 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -1,6 +1,6 @@
 ;;; wl-mime.el -- SEMI implementations of MIME processing on Wanderlust.
 
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
@@ -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)