[mew-dist 27509] Re: Refileがうまくいかない？

[Kazu Yamamoto ( 山本和彦 )]

> 動きました。Mew-distがちゃんとRefileされました。

では、mew-refile.el を元に戻して頂き、
さらに、このパッチを当てるとどうでしょう？

うまく行くなら、白井さんの要望も同時に満たせることになると思います。

--かず

Index: mew-refile.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-refile.el,v
retrieving revision 1.137
diff -c -r1.137 mew-refile.el
*** mew-refile.el	30 Nov 2006 09:18:51 -0000	1.137
--- mew-refile.el	20 Dec 2006 07:19:29 -0000
***************
*** 68,74 ****
  ;;
  
  (defun mew-refile-guess (&optional auto show-all)
!   (let ((funcs mew-refile-guess-control) ret guess info stop)
      (catch 'last
        (while funcs
  	(if (string-match "ctrl" (symbol-name (car funcs)))
--- 68,75 ----
  ;;
  
  (defun mew-refile-guess (&optional auto show-all)
!   (let ((case-fold-search t)
! 	(funcs mew-refile-guess-control) ret guess info stop)
      (catch 'last
        (while funcs
  	(if (string-match "ctrl" (symbol-name (car funcs)))