[mew-dist 25739] Re: mew-convert-to-home-dirがまずい

[Kazu Yamamoto ( 山本和彦 )]

> なってしまうので不便だったのですが、
> どうもローカルとリモートとでホームディレクトリのパスが同じだと
> mew-convert-to-home-dir()が誤動作するようです。

このパッチで直りますか？

--かず

Index: mew-minibuf.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-minibuf.el,v
retrieving revision 1.115
diff -c -r1.115 mew-minibuf.el
*** mew-minibuf.el	8 Nov 2004 13:15:33 -0000	1.115
--- mew-minibuf.el	13 Dec 2004 05:10:39 -0000
***************
*** 842,850 ****
  
  (defun mew-convert-to-home-dir (dir)
    (let* ((chome (file-name-as-directory mew-home))
! 	 (ehome (expand-file-name chome)))
      (if (string-match ehome dir)
! 	(concat chome (substring dir (match-end 0) nil))
        dir)))
  
  (defvar mew-summary-previous-directory nil)
--- 842,850 ----
  
  (defun mew-convert-to-home-dir (dir)
    (let* ((chome (file-name-as-directory mew-home))
! 	 (ehome (concat "^" (regexp-quote (expand-file-name chome)))))
      (if (string-match ehome dir)
! 	(concat chome (substring dir (match-end 0)))
        dir)))
  
  (defvar mew-summary-previous-directory nil)