[Mew-dist 2526] Re: mew.dot.emacs

[Hajimu UMEMOTO]

  皆さんはじめまして。今日から ML に参加させて頂きました、梅本＠日立と申
します。

>>>>> On Thu, 16 Oct 1997 15:28:00 +0900 (JST),
	Masahiro MURATA <mmurata at example.com> said:

mmurata> > また、emacs-20.2、im-74、mew-1.92b3においてgのフォルダー移動で
mmurata> > +trashが補完できなくなりました。
mmurata> > mule-2.3(emacs-19.34ベース)、XEmacs-20.3-b28では大丈夫です。
mmurata> 
mmurata>   これですが，mew-1.92b3 で関数 mew-folder-make-list が変更されて，
mmurata> impath で出て来る一番最後のフォルダーが mew-folder-a?list に追加されない
mmurata> 問題ではないでしょうか。
mmurata>   以下にパッチを付けますが，続けて forward-line が並ぶのは美しくないな...

  早速試させて頂きました。ありがとうございます。
  当方、XEmacs 20.4 beta1 で 1.92b3 を使用しておりますが、20.3 beta24 あ
たりから、フォルダの補完自体ができないため、mew-folder-make-list を一部
修正して使用しております。以下にパッチを添付します。
-------------- next part --------------
--- mew.el-	Thu Oct 16 17:44:11 1997
+++ mew.el	Thu Oct 16 17:49:10 1997
@@ -789,10 +789,10 @@
 	  (forward-line)
 	  (setq folder (mew-buffer-substring start (1- (point))))
 	  (if (and (car folders)
-		   (string-match (concat "^" (file-name-as-directory 
-					      (car folders)))
+		   (string-match (concat "^" (regexp-quote
+					      (file-name-as-directory
+					       (car folders))))
 				 folder))
-	      ;; regexp-quote is not necessary since not "+".
 	      (setq folders 
 		    (cons folder 
 			  (cons (file-name-as-directory (car folders))
-------------- next part --------------
梅本 肇＠（株）日立製作所 ビジネスシステム開発センタ
E-Mail: ume at example.com ume at example.com
URL: http://www.imasy.or.jp/~ume/