[mew-dist 22316] Re: mew-case-input

[Hideyuki SHIRAI ( 白井秀行 )]

おぉ、素晴らしい。満足です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 22313] Re: mew-case-input
Message-ID: <20021119.213608.68533588.kazu at example.com>
Date: Tue, 19 Nov 2002 21:36:08 +0900 (JST)

> > ○ "foo:%hoge" で "g"
> > =>
> > Folder name (foo:%inbox): foo:%
> > => "+" 入力 =>
> > Folder name (foo:%inbox): +

けど、"+*" で case: を消すのが未実装の様なのでパッチです。

> --かず＠アトランタ

## 頭の中で、風とともに去りぬのテーマが渦を巻いている。。。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-minibuf.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-minibuf.el,v
retrieving revision 1.110
diff -u -r1.110 mew-minibuf.el
--- mew-minibuf.el	20 Nov 2002 00:40:12 -0000	1.110
+++ mew-minibuf.el	20 Nov 2002 01:22:47 -0000
@@ -449,6 +449,12 @@
 	  (looking-at ":[-+*%$]"))
 	(forward-char -1)
 	(delete-char 1)
+	(when (memq last-command-char '(?+ ?*))
+	  ;; delete case:
+	  (delete-region (save-excursion (or (and (search-backward "," nil t)
+						  (match-end 0))
+					     (mew-minibuf-point-min)))
+			 (point)))
 	(insert last-command-char))
        ((save-excursion
 	  (forward-char -2)