* wl-nemacs.el (wl-draft-overload-functions): Bind 'C-c C-e' to

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

diff --git a/wl/tm-wl.el b/wl/tm-wl.el
index 5ca53e1..47dd24d 100644 (file)
--- a/wl/tm-wl.el
+++ b/wl/tm-wl.el
@@ -1,6 +1,6 @@
 ;;; wl-mime.el -- tm 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
@@ -62,18 +62,35 @@ By setting following-method as yank-content."
 
 (defun wl-draft-preview-message ()
   (interactive)
-  (let ((mime-viewer/content-header-filter-hook 'wl-highlight-headers)
-       (mime-viewer/ignored-field-regexp "^:$")
-       (mime-editor/translate-buffer-hook
-        (append
-         (list 'wl-draft-config-exec)
-         mime-editor/translate-buffer-hook)))
+  (let* (recipients-message
+        (mime-viewer/content-header-filter-hook 'wl-highlight-headers)
+        (mime-viewer/ignored-field-regexp "^:$")
+        (mime-editor/translate-buffer-hook
+         '((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-editor/translate-buffer-hook))
     (mime-editor/preview-message)
     (let ((buffer-read-only nil))
-    (let ((buffer-read-only nil))
-      (when wl-highlight-body-too
-       (wl-highlight-body))
-      (run-hooks 'wl-draft-preview-message-hook)))))
+      (let ((buffer-read-only nil))
+       (when wl-highlight-body-too
+         (wl-highlight-body))
+       (run-hooks 'wl-draft-preview-message-hook)))
+    (message recipients-message)))
 
 (defmacro wl-draft-caesar-region (beg end)
   (` (tm:caesar-region)))
@@ -152,7 +169,7 @@ By setting following-method as yank-content."
       (message "Bursting...")
       (when children
        (wl-summary-burst-subr children target 0))
-      (message "Bursting...done."))
+      (message "Bursting...done"))
     (if (elmo-folder-plugged-p target)
        (elmo-commit target))
     (wl-summary-sync-update3)))
@@ -210,7 +227,7 @@ By setting following-method as yank-content."
     (setq root-dir (concat root-dir "/" (replace-as-filename id)))
     (setq full-file (concat root-dir "/FULL"))
     (if (null target)
-       (error "%s is not supported. Sorry." target))
+       (error "%s is not supported" target))
     (if (or (file-exists-p full-file)
            (not (y-or-n-p "Merge partials?")))
        (mime-article/decode-message/partial beg end cal)
@@ -289,6 +306,7 @@ By setting following-method as yank-content."
         mime-viewer/code-converter-alist))
   (defvar-maybe mime::preview/mother-buffer nil))
   
-(provide 'tm-wl)
+(require 'product)
+(product-provide (provide 'tm-wl) (require 'wl-version))
 
 ;;; tm-wl.el ends here