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

[KOIE Hidetaka ( 鯉江英隆 )]

  Message-Id: <20090123.140006.254720738.kazu at example.com>
  Date:       Fri, 23 Jan 2009 14:00:06 +0900 (JST)
  From:       Kazu Yamamoto (山本和彦) <kazu at example.com>
  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 at example.com>