2009年1月24日

[mew-dist 28857] Re:mew-config-alist による refile-guess-alist の切り替え

Message-Id: <20090123.140006.254720738.kazu@xxxxx>
Date: Fri, 23 Jan 2009 14:00:06 +0900 (JST)
From: Kazu Yamamoto (山本和彦) <kazu@xxxxx>
Subject: [mew-dist 28854] Re: mew-config-alist による refile-gues..

| > となっていて、ここで、正しい(?) case を求められるのは、ローカル
| > フォルダ以外 かつ リモートフォルダで mew-case-default 以外の
| > case のもの、だと思います。

| >
| > 以下のパッチで OK かな?
|
| よさそうなので、マージしました。

これの副作用でrfileのときに
1. C-rでフォルダの検索をしようとすると
Remove case! と表示され検索できなくなりました。
l2. caseも表示されるようになりました。こんな感じです:
Folder name <case1,case2:> (+folder): +
#いままで <case,..:> は表示されていませんでした。

2つcaseを組合せて使っていているのですが、
このcaseの区切り文字の , をmew-input-folder-search-setup2()が
フォルダの区切り文字と勘違いしてしまうのが原因で
1の問題がおきているようなのでパッチです。

Index: mew-minibuf.el
===================================================================
RCS file: /cvsmew/mew/mew-minibuf.el,v
retrieving revision 1.146
diff -u -p -r1.146 mew-minibuf.el
--- mew-minibuf.el 21 Jan 2009 05:54:56 -0000 1.146
+++ mew-minibuf.el 24 Jan 2009 05:59:55 -0000
@@ -170,7 +170,7 @@ at completions."
(let (do-search alist)
(save-excursion
(goto-char (point-max))
- (if (search-backward "," nil t)
+ (if (search-backward "," (minibuffer-prompt-end) t)
(progn
(goto-char (match-end 0))
(unless (looking-at mew-regex-case2)

--
鯉江英隆 <hide@xxxxx>


投稿者 xml-rpc : 2009年1月24日 15:03
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/81457
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。