[Mew-dist 04933] Re: b36

[Shun-ichi GOTO]

後藤＠太陽計測です

>>>>> From: Kazu Yamamoto (山本和彦) <kazu at example.com>
> すみません。まだ見落しがあるような気もしますが、一応対処しました。

元スレッドとは別件なのですが、mew-bq.elのreplace-matchの部分が
mule 2.3 とかだとマズそうなので、パッチです。


--- mew-bq.el.orig	Wed May 27 08:42:12 1998
+++ mew-bq.el	Thu May 28 14:06:41 1998
@@ -52,7 +52,8 @@
      (cs
       (setq ret (mew-cs-decode-string (funcall fun str) cs))
       (while (string-match "[\000-\010\012-\037\177]+" ret)
-	(setq ret (replace-match "" nil nil ret)))
+	(setq ret (concat (substring ret 0 (match-beginning 0))
+			  (substring ret (match-end 0)))))
       ret)
      (t
       str)


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