[mew-dist 25861] Re: emacs-21.3におけるtool-barの振る舞い

[SAKAI Kiyotaka]

>> In article <20041221.091433.121261301.kazu at example.com>, Kazu Yamamoto (山本和彦) <kazu at example.com> writes:

>> summary bufferで，"o"コマンド，"c"コマンド，"g"コマンド等を入力して
>> folderを選ぶ時に，Emacs標準のtoo-lbarに切り替わってしまいます．
>> また，cursorを*Mew message*0 bufferに移動しただけでも，Emacs標準
>> tool-barに切り替わってしまいます．
>> これは仕様と解釈すれば良いでしょうか?

> Emacs 21 の仕様です。
> Mew からではどうしようもないと思います。
> 何かやり方があるなら、教えて下さい。

以下のような修正でいけると思います。

Index: mew-key.el
===================================================================
RCS file: /cvsmew/mew/mew-key.el,v
retrieving revision 1.94
diff -u -r1.94 mew-key.el
--- mew-key.el	24 Dec 2004 04:36:08 -0000	1.94
+++ mew-key.el	4 Jan 2005 05:48:05 -0000
@@ -541,7 +541,15 @@
   (define-key mew-input-map "\t"     'mew-input-complete)
   (define-key mew-input-map [tab]    'mew-input-complete)
   (define-key mew-input-map "?"      'mew-input-complete)
-  (define-key mew-input-map "\C-c\t" 'mew-circular-complete-switch))
+  (define-key mew-input-map "\C-c\t" 'mew-circular-complete-switch)
+  (define-key mew-input-map [menu-bar minibuf]
+    (cons "Mew-Minibuf" (make-sparse-keymap "Mew-Minibuf")))
+  (define-key mew-input-map [menu-bar minibuf quit]
+    (list 'menu-item "Quit" 'keyboard-escape-quit
+          :help "Abort input and exit minibuffer"))
+  (define-key mew-input-map [menu-bar minibuf return]
+    (list 'menu-item "Enter" 'exit-minibuffer
+          :help "Terminate input and exit minibuffer")))
 
 (unless mew-input-folder-map
   (setq mew-input-folder-map (copy-keymap mew-input-map))



-- 
酒井 清隆 (E-mail: kiyotaka.sakai at example.com)