[Mew-dist 1507] Re: case notation in ~/.im/Config

[SAKAI Kiyotaka]

今の仕様だと、いちいち手動で Config: header を入力する必要があるのが不
満です。

そこでやっつけ仕事ですが、mew-refile-guess-alist と同じ書式で 
mew-config-guess-alist を設定すると、C-cC-m (mew-draft-make-mime) 時に 
Config: header を挿入してくれるようなパッチを作りました。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew-encode.el,v
retrieving revision 1.1
diff -u -r1.1 mew-encode.el
--- mew-encode.el	1997/08/12 04:04:45	1.1
+++ mew-encode.el	1997/08/12 04:18:44
@@ -55,6 +55,11 @@
 ;;;
 ;;;
 
+(defvar mew-config-guess-alist nil)
+
+(defun mew-config-guess-by-alist ()
+  (mew-refile-guess-by-alist1 mew-config-guess-alist))
+
 (defun mew-draft-make-mime ()
   (interactive)
   (if (mew-header-get-value mew-ct:)
@@ -70,6 +75,9 @@
     (re-search-forward mew-eoh2)
     (beginning-of-line)
     (setq mew-draft-buffer-header (point-marker)) ;; just in case
+    (let ((config (mew-config-guess-by-alist)))
+      (if (and config (not (mew-header-get-value "Config:")))
+	  (mew-header-insert-here "Config:" (car config))))
     ))
 
 (defun mew-draft-make-single ()
-------------- next part --------------
===================================================================
RCS file: RCS/mew-draft.el,v
retrieving revision 1.1
diff -u -r1.1 mew-draft.el
--- mew-draft.el	1997/08/12 04:04:11	1.1
+++ mew-draft.el	1997/08/12 04:14:48
@@ -575,7 +575,7 @@
     ))
 
 (defun mew-draft-delete-content-type ()
-  (mew-header-delete-lines (list mew-ct: mew-cte:))
+  (mew-header-delete-lines (list mew-ct: mew-cte: "Config:"))
   (mew-draft-refresh)
   (save-excursion
     (goto-char (marker-position mew-draft-buffer-header))