[Mew-dist 04616] Re: qmail + IM で複数 mailbox のとりこみ

[Yuji Yamano]

松永均 <matznaga-mew at example.com> writes:

> qmail を使っていれば受け取ったメールには
> 
> Delivered-To: matznaga-mew at example.com
> 
> のようなヘッダがついているので、これをひろえば返信に関しては自動で 
> From: の設定ができそうな気がするのですが、具体的にはどうすればいいでしょ
> うか。

便利そうな機能ですが、今の Mew では無理ですね。

リプライする時は Draft バッファを作る前に config の値を推測する
ように変更してみました。このパッチを使えば mew-config-guess-alist 
に Delivered-To: や X-*: を使用することができます。

1.93b31 へのパッチです。


-- 
やまの @ 五反田


--- mew-draft.el.orig	Wed May  6 23:05:15 1998
+++ mew-draft.el	Mon May 11 20:22:10 1998
@@ -376,7 +376,7 @@
 		 del)))
 	 (string-match ":;" c))))
 
-(defun mew-draft-header (&optional subject nl to cc newsgroups in-reply-to references)
+(defun mew-draft-header (&optional subject nl to cc newsgroups in-reply-to references config)
 ;; to -- string or list
 ;; cc -- string or list
 ;; nl -- one empty line under "----", which is necessary if
@@ -473,8 +473,8 @@
       (setq halist (cdr halist)))
     )
   (mew-header-insert-here "Mime-Version:" mew-mv:-num)
-  (if (and mew-config-auto-insert (mew-draft-guess-config))
-      (mew-header-insert-here "Config:" (mew-draft-guess-config)))
+  (if (and mew-config-auto-insert (or config (mew-draft-guess-config)))
+      (mew-header-insert-here "Config:" (or config (mew-draft-guess-config))))
   (insert mew-header-separator "\n")
   (mew-draft-refresh)
   (if nl 
--- mew-summary.el.orig	Wed May  6 23:05:22 1998
+++ mew-summary.el	Mon May 11 20:21:51 1998
@@ -1154,7 +1154,7 @@
 	  (file (mew-folder-new-message mew-draft-folder))
 	  (find-file-hooks nil)
 	  (inhibit-quit t)
-	  from to cc newsgroups subject in-reply-to references
+	  from to cc newsgroups subject in-reply-to references config
 	  cbuf cache)
       (unwind-protect
 	  (progn
@@ -1210,9 +1210,11 @@
 		(setq subject (concat mew-reply-string subject)))
 	    (setq in-reply-to (mew-header-get-value "Date:"))
 	    (setq references (mew-header-get-value "Message-ID:"))
+	    (if mew-config-auto-insert
+		(setq config (mew-draft-guess-config)))
 	    ;;
 	    (mew-pop-to-buffer cbuf) ;; draft
-	    (mew-draft-header subject nil to cc newsgroups in-reply-to references)
+	    (mew-draft-header subject nil to cc newsgroups in-reply-to references config)
 	    (undo-boundary)
 	    (mew-draft-mode) ;; for hilight
 	    (sit-for 0)