[Mew-Win32 00639] Re: b37
Shun-ichi GOTO
gotoh at example.com
1998年 6月 1日 (月) 19:19:48 JST
後藤です
>>>>> 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
Mew-win32 メーリングリストの案内