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

[SAKAI Kiyotaka]

>> In article <19980220162638U.y-koga at example.com>, Maybe TABOO <y-koga at example.com> writes:

> こじれているようなので、現状の問題点・不満点や改善したい点を列記してき
> ちんと検討して合意を取ってからパッチにした方がいいと思います。パッチが
> いろいろ流れると混乱してしまいます。

3個所で mew-draft-insert-config が使われていることもあって仕様が複雑な
ので、一気に列記というわけにはいかないのですが、一つ一つ出していきます。
とりあえずは、以下の 4点です。


・mew-draft-insert-config をキーに 割り当てたい。

Index: mew-draft.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b17/mew-draft.el,v
retrieving revision 1.1
diff -u -r1.1 mew-draft.el
--- mew-draft.el	1998/02/20 04:52:44	1.1
+++ mew-draft.el	1998/02/20 07:52:25
@@ -153,6 +153,7 @@
   (define-key mew-draft-mode-map "\C-c\C-l" 'mew-fib-flush-input)
   (define-key mew-draft-mode-map "\C-c\C-f" 'mew-fib-fill-default)
   (define-key mew-draft-mode-map "\C-c\C-k" 'mew-fib-delete-frame)
+  (define-key mew-draft-mode-map "\C-c\C-o" 'mew-draft-insert-config)
   (define-key mew-draft-mode-map "\C-x\C-s" 'mew-save-buffer)
   (if mew-temacs-p
       (easy-menu-define


・mew-config に 'guess を指定しているときに、guess できなかったら
  mew-config-list の先頭の値を使うというのを止めて欲しい。

Index: mew-draft.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b17/mew-draft.el,v
retrieving revision 1.1
diff -u -r1.1 mew-draft.el
--- mew-draft.el	1998/02/20 04:52:44	1.1
+++ mew-draft.el	1998/02/20 07:53:31
@@ -867,7 +867,6 @@
       (cond
        ((equal mew-config 'guess)
 	(setq config-new (car (mew-config-guess-by-alist)))
-	(or config-new (setq config-new (car mew-config-list))))
        (t
 	(setq config-new mew-config))
        )


・mew-input-config で "default" が候補に上がったときにそのまま RETURN
  を押しても "default" が返らないが、これはバグだと思う。

Index: mew-minibuf.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b17/mew-minibuf.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- mew-minibuf.el	1998/02/20 04:52:45	1.1
+++ mew-minibuf.el	1998/02/20 04:59:41	1.2
@@ -193,7 +193,7 @@
 		   mew-config-list)
 		  nil nil nil))
     (if (string= config "")
-	default
+	(or default "default")
       config)
     ))
 

・mew-ask-config を t にしていると、C-cC-m を行うと最初に "Do you want
  to use Config:?" と聞いてきて、さらにすでに Config が存在していると 
  "Do you want to use current Config:?" と聞いてくるが、すでにある 
  Config を上書きするときだけ prompt で聞いてくればいいのではないか？
-- 
酒井 清隆 (E-mail: ksakai at example.com)