Update.

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

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 31b4b98..285fee4 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -71,16 +71,41 @@ 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
+        (config-exec-flag wl-draft-config-exec-flag)
+        (mime-display-header-hook 'wl-highlight-headers)
+        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))
+                (run-hooks 'wl-draft-send-hook)
+                (setq recipients-message
+                      (concat "Recipients: "
+                              (mapconcat
+                               'identity
+                               (wl-draft-deduce-address-list
+                                (current-buffer)
+                                (point-min)
+                                (save-excursion
+                                  (goto-char (point-min))
+                                  (re-search-forward
+                                   (concat
+                                    "^"
+                                    (regexp-quote mail-header-separator)
+                                    "$")
+                                   nil t)
+                                  (point)))
+                               ", ")))))))
+          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)