[Mew-Win32 00633] Re: (b35) Not decode header on meadow-1.00

[Shun-ichi GOTO]

後藤@太陽計測です

>>>>> From: Hideyuki SHIRAI <Shirai at example.com>
> 後藤> パッチをつけときます。
> 
> ありがとうございます。m(__)m
> 
> もうMSのメールのファイル名が読めないなぁ、と半分あきらめていたと
> ころでした。UNIX と Win95の Emacs19.28 と Emacs20.2 (計4通り)で
> 動作確認しました。
> 
> しかし、なぜか、(Mule for Win32も含む)Emacs19.28.1で

くぅ (;_;)、先のパッチでen-bugしてました
＃replace-match の使い方の問題
＃便利なもので、つい当たり前のように使ってしまう。。。


--- mew-fake-cdp.el	1998/05/28 13:42:01	1.4
+++ mew-fake-cdp.el	1998/05/28 04:52:01
@@ -5,7 +5,7 @@
 ;; Create: 98/3/13
 ;; Author: Shun-ichi GOTO <gotoh at example.com>
 ;;
-;; $Revision: 1.4 $
+;; $Revision: 1.5 $
 
 ;; *********************************************************
 ;; ******* NOTE: THESE ARE OUT OF RFC SPECIFICATION. *******
@@ -90,7 +90,10 @@
       (if  mew-fake-cdp-remove-space
 	  (save-match-data
 	    (while (string-match "[ \t]+" filename)
-	      (setq filename (replace-match "" nil nil filename)))))
+	      (setq filename (concat (substring filename
+						0 (match-beginning 0))
+				     (substring filename
+						(match-end 0)))))))
       ;; Fake CDP: entry
       (if (null cdpl)
 	  ;; newly make



＃mew-bq.elにも同じ問題を引き起こすコードを発見
＃これってまだ未報告だっけかなぁ。。。

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN