[mew-dist 24612] mew-draft-check-whom

[SHIGENO Kazutaka]

重野です。

Mew 1.xx の頃の Mew では、C-c C-w で mew-draft-check-whom を呼び出して
メールの宛先を簡単に確認出来ましたが、最近の Mew にはその機能がありません。

そこで Mew 1.xx のコードを元に、Mew 4.0.xx で C-c C-w が
使えるようにしてみました。末尾に patch を添付します。

対象ヘッダは mew-destination:-list の定義を使おうかと思いましたが、
Dcc: が含まれていて表示対象にしたくなかったのでベタに書いてます。

簡単にしか動作確認してないので、これで正しく alias 展開されるかは不明です。

可能ならば Mew で標準対応して欲しいと思います。

-- shigeno


Index: mew-const.el
===================================================================
RCS file: /cvsmew/mew/mew-const.el,v
retrieving revision 1.63
diff -u -r1.63 mew-const.el
--- mew-const.el	16 Feb 2004 09:29:13 -0000	1.63
+++ mew-const.el	18 Feb 2004 17:19:16 -0000
@@ -171,6 +171,7 @@
 
 (defconst mew-buffer-message     "*Mew message*")
 (defconst mew-buffer-completions "*Mew completions*")
+(defconst mew-buffer-whom        "*Mew whom*")
 (defconst mew-buffer-addrbook    "*Mew Addrbook*")
 (defconst mew-buffer-debug       "*Mew debug*")
 
Index: mew-draft.el
===================================================================
RCS file: /cvsmew/mew/mew-draft.el,v
retrieving revision 1.112
diff -u -r1.112 mew-draft.el
--- mew-draft.el	28 Jan 2004 05:46:24 -0000	1.112
+++ mew-draft.el	18 Feb 2004 17:19:16 -0000
@@ -739,6 +739,32 @@
 	  (unless (bolp) (insert "\n")))
 	(mew-insert-file-contents sigfile)))))
 
+(defun mew-draft-check-whom ()
+  "Verify recipients of the draft."
+  (interactive)
+  (let* ((to-cc (mew-header-parse-address-list2
+;;		 mew-destination:-list)))
+                '("To:" "Cc:" "Bcc:" "Apparently-To:")))
+         (buf (current-buffer))
+	 exp-to-cc)
+    (while to-cc
+      (setq exp-to-cc
+	    (append exp-to-cc
+		    (list
+		     (mew-addrbook-alias-get (car to-cc) mew-addrbook-alist))))
+      (setq to-cc (cdr to-cc)))
+    (message "Checking recipients ... ")
+    (get-buffer-create mew-buffer-whom)
+    (switch-to-buffer-other-window mew-buffer-whom)
+    (erase-buffer)
+    (mapcar
+     (function (lambda (x) (insert (format "%s\n" x))))
+     exp-to-cc
+     )
+    (pop-to-buffer buf)
+    (message "Checking recipients ... done")
+    ))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; Re-highlight
Index: mew-key.el
===================================================================
RCS file: /cvsmew/mew/mew-key.el,v
retrieving revision 1.69
diff -u -r1.69 mew-key.el
--- mew-key.el	17 Feb 2004 04:43:52 -0000	1.69
+++ mew-key.el	18 Feb 2004 17:19:16 -0000
@@ -297,6 +297,7 @@
   (define-key (symbol-value symmap) "\C-c\C-o" 'mew-draft-set-case)
   (define-key (symbol-value symmap) "\C-c\C-a" 'mew-draft-prepare-attachments)
   (define-key (symbol-value symmap) "\C-c\C-l" 'mew-draft-rehighlight)
+  (define-key (symbol-value symmap) "\C-c\C-w" 'mew-draft-check-whom)
   (define-key (symbol-value symmap) "\C-c\C-q" 'mew-draft-kill)
   (define-key (symbol-value symmap) "\C-c\C-s" 'mew-pgp-sign-message)
   (define-key (symbol-value symmap) "\C-c\C-e" 'mew-pgp-encrypt-message)