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

 `wl-draft-config-exec'.

* wl-mime.el (wl-draft-preview-message): Run `wl-draft-send-hook'
instead of calling `wl-draft-config-exec';
Process group-list and show recipients in minibuffer.

* tm-wl.el (wl-draft-preview-message): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 85770fb..bd65029 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,14 @@
+2000-10-31  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-nemacs.el (wl-draft-overload-functions): Bind 'C-c C-e'
+       to `wl-draft-config-exec'.
+
+       * wl-mime.el (wl-draft-preview-message): Run `wl-draft-send-hook'
+       instead of calling `wl-draft-config-exec';
+       Process group-list and show recipients in minibuffer.
+
+       * tm-wl.el (wl-draft-preview-message): Ditto.
+
 2000-10-31  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl.el (toplevel): Added (C) to copyright notice, and

diff --git a/wl/tm-wl.el b/wl/tm-wl.el
index 0516818..47dd24d 100644 (file)
--- a/wl/tm-wl.el
+++ b/wl/tm-wl.el
@@ -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)))

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 31b4b98..1593d6b 100644 (file)
--- 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)
 

diff --git a/wl/wl-nemacs.el b/wl/wl-nemacs.el
index 893b6c9..aedf791 100644 (file)
--- a/wl/wl-nemacs.el
+++ b/wl/wl-nemacs.el
@@ -78,6 +78,7 @@
   (local-set-key "\C-c\C-r" 'wl-draft-caesar-region)
   (local-set-key "\M-t"     'wl-toggle-plugged)
   (local-set-key "\C-c\C-o" 'wl-jump-to-draft-buffer)
+  (local-set-key "\C-c\C-e" 'wl-draft-config-exec)
   (local-set-key "\C-c\C-j" 'wl-template-select)
   (local-set-key "\C-c\C-p" 'wl-draft-preview-message)
   (local-set-key "\C-x\C-s" 'wl-draft-save)