[Mew-Win32 00639] Re: b37

[Shun-ichi GOTO]

後藤です

>>>>> From: Shuichi Kitaguchi <shuuic-k at example.com>
> あと Windows 環境では便利だと思うので、後藤さんの mew-fake-cdp.el
> を Win32\ 下に入れさせていただきました([Mew-Win32 00633] のパッチ
> を適用済み)。問題があればやめますので、言って下さい  ＞  後藤さん

まったく問題なしです。

ただし、添付に反対という意味ではないのですが、
コイツは「Mew開発者の本来のポリシーから外れたことをしてる」もの
なので、「それでも使いたい」という個人の意思をもって使っていただく
ほうがいいかなぁということ。あと、いっしょにインストールされると、
Mewのオリジナルパッケージの一部と思われかねないので、どこかで明示
したいな。ってなくらいですかね。

まぁ、そのへんはテキトーに (^^;


あと、シツコイようですが、こないだのパッチのほかにコレも
あててください。＞つかっているかた  (._.)>

＃"[Q]=?iso-2022-jp?B?GyRCO2QkT0MvISkbKEI=?=(?_?)" が
＃"[Q]私は誰？(?_?)" にならずに "私は誰？" になってしまふの
＃アホなミスです


--- mew-fake-cdp.el	1998/05/28 13:52:01	1.5
+++ mew-fake-cdp.el	1998/06/01 01:02:24
@@ -5,7 +5,7 @@
 ;; Create: 98/3/13
 ;; Author: Shun-ichi GOTO <gotoh at example.com>
 ;;
-;; $Revision: 1.5 $
+;; $Revision: 1.6 $
 
 ;; *********************************************************
 ;; ******* NOTE: THESE ARE OUT OF RFC SPECIFICATION. *******
@@ -80,12 +80,14 @@
       ;; raw JIS conversion
       (setq filename (mew-cs-decode-string filename mew-cs-7bit))
       ;; MIME decode
-      (save-match-data
-	(while (string-match mew-header-decode-regex filename)
-	  (setq filename (mew-header-decode 
-			  (mew-match 1 filename)
-			  (mew-match 2 filename)
-			  (mew-match 3 filename)))))
+      (while (string-match mew-header-decode-regex filename)
+	(setq filename (concat (substring filename 0 (match-beginning 0))
+			       (save-match-data
+				 (mew-header-decode 
+				  (mew-match 1 filename)
+				  (mew-match 2 filename)
+				  (mew-match 3 filename)))
+			       (substring filename (match-end 0)))))
       ;; remove spaces
       (if  mew-fake-cdp-remove-space
 	  (save-match-data



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