[Mew-dist 03865] Re: Mew 1.93b6: mew-config breaks out mew-config-list setting ?

[SAKAI Kiyotaka]

>> In article <19980220133547U.matusita at example.com>, Makoto MATSUSHITA (まつしたまこと) <matusita at example.com> writes:

> これでとりあえず一件落着なのかな，と勝手に思ってるのですが‥‥これで，
> いかがでしょうか _o_ > 特に酒井さん

・draft buffer を用意するときの Config の挿入は、
  mew-header-insert-here を使うようにした。
・mew-config-ctrl-multi は使わずに、無条件に複数の候補を表示できるよう
  にした。
・C-cC-m 時に mew-input-config で聞かれるのはやっぱり嬉しくないので、
  とりあえず消した。 (どうするのがいいのでしょうか？)

の変更をしてみました。

先の MATSUSHITA さんのパッチの後に当てるようになっています。

# 他の方の意見も聞きたいです。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-draft.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b17/mew-draft.el,v
retrieving revision 1.2
diff -u -r1.2 mew-draft.el
--- mew-draft.el	1998/02/20 04:59:39	1.2
+++ mew-draft.el	1998/02/20 05:55:12
@@ -473,8 +473,8 @@
       (setq halist (cdr halist)))
     )
   (mew-header-insert-here "Mime-Version:" mew-mv:-num)
-  (if mew-config-auto-insert
-      (if (mew-draft-insert-config) (insert "\n")))
+  (if (and mew-config-auto-insert (mew-draft-guess-config))
+      (mew-header-insert-here "Config:" (mew-draft-guess-config)))
   (insert mew-header-separator "\n")
   (mew-draft-refresh)
   (if nl 
@@ -859,29 +859,25 @@
     ))
 
 (defun mew-draft-guess-config ()
-  (mew-refile-guess-by-alist1 mew-config-guess-alist))
+  (if (eq mew-config 'guess)
+      (let ((config (mew-refile-guess-by-alist1 mew-config-guess-alist)))
+	(if config (mew-join "," config)))
+    mew-config))
 
 (defun mew-draft-insert-config ()
   "Insert Config header."
   (interactive)
   (let ((config-cur (mew-header-get-value "Config:"))
-	config-new)
-    (if (eq mew-config 'guess)
-	(progn
-	  (setq config-new (mew-draft-guess-config))
-	  (if mew-config-ctrl-multi
-	      (if config-new (setq config-new (mew-join "," config-new)))
-	    (setq config-new (car config-new))))
-      (setq config-new mew-config))
-    (if (and (not (interactive-p)) (not mew-config-auto-insert))
-	(setq config-new (mew-input-config config-new)))
+	(config-new (mew-draft-guess-config)))
     (if (and (interactive-p) (not config-new))
 	(setq config-new ""))
     (if config-new
 	(if (and config-cur
-		 (not (y-or-n-p
+		 (or (string= config-cur config-new)
+		     (not
+		      (y-or-n-p
 		       (format "Do you want to replace Config value with %s? "
-			       config-new))))
+			       config-new)))))
 	    nil
 	  (widen)
 	  (mew-header-delete-lines '("Config:"))
@@ -891,9 +887,7 @@
 	  (mew-header-insert-here "Config:" config-new)
 	  (mew-draft-refresh)
 	  (forward-line -1)
-	  (end-of-line)
-	  config-new)
-      nil)))
+	  (end-of-line)))))
 
 (defun mew-draft-insert-signature ()
   (interactive)