[mhc:00967] Re: BASE64 の文字列が残る？

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx> 曰く
Subject: [mhc:00966] Re: BASE64 の文字列が残る？
Message-ID: <20000808.101153.58000499.shirai@xxxxxxxxxxxxxxxxxxx>
Date: Tue, 08 Aug 2000 10:11:53 +0900 (JST)

西山> |08/17 Thu             テスト [場所GyRCPmw9ahsoQg==?=]

西山> のようにゴミが表示されます。

白井> う〜〜ん、再現出来ません。もう少し教えてください。

再現は出来なかったのですが、これでなおると思います。

# 完全にチョンボ(しかもちょっと恥ずかしい内容) (_ _)

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)

--- mhc-mew.el.orig	Thu Aug  3 22:23:03 2000
+++ mhc-mew.el	Tue Aug  8 11:10:06 2000
@@ -333,7 +333,7 @@
 (defconst mhc-mew-header-decode-regex "\\(=\\?[^? \t]+\\?.\\?[^? \t]+\\?=\\)")
 
 (defun mhc-mew-eword-decode-string (string)
-  (let ((ret ""))
+  (let ((ret "") tmpstr)
     (while (string-match "\n" string)
       (setq string (replace-match "" nil nil string)))
     (while (string-match (concat mhc-mew-header-decode-regex
@@ -346,12 +346,13 @@
     (while (not (string= string ""))
       (if (not (string-match mew-header-decode-regex string))
 	  (setq ret (concat ret string) string "")
+	(setq tmpstr (substring string (match-end 0)))
 	(setq ret (concat ret
 			  (substring string 0 (match-beginning 0))
 			  (mew-header-decode (mew-match 1 string)
 					     (mew-match 2 string)
 					     (mew-match 3 string))))
-	(setq string (substring string (match-end 0)))))
+	(setq string tmpstr)))
     ret))
 
 (provide 'mhc-mew)