From: teranisi <teranisi>
Date: Tue, 31 Oct 2000 04:23:44 +0000 (+0000)
Subject: * wl-nemacs.el (wl-draft-overload-functions): Bind 'C-c C-e' to
X-Git-Tag: wl-2_4-root~34
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ead69db90faa215eaf1b4c231bc58341e6deb3c2;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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
--- 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)