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

[Shun-ichi GOTO]

後藤＠太陽計測です

>>>>> From: Hideyuki SHIRAI <Shirai at example.com>
> 新岡> マルチパートメッセージも解析してくれません。
> 
> はずしているかもしれませんが……
> 
> わたしは、後藤さんの "mew-fake-cdp.el" をロードしていたらマルチ
> パートの解析をしてくれませんでした。外せばOKでした。

あうあう、ありがとうございます

私も「あれ？ なんでだろう？」と思っていたところでした。(^^;
パッチをつけときます。


--- mew-fake-cdp.el	1998/03/13 10:44:59	1.3
+++ mew-fake-cdp.el	1998/05/28 02:29:13
@@ -77,23 +77,20 @@
     (if (null filename)
 	()				;nothing to do
       ;; Kanji conversion from B/Q-Enc. and raw-JIS
-      (save-excursion
-	(let ((buf (get-buffer-create " *mew-fake-cdp*")))
-	  ;; in work-buffer...
-	  (set-buffer buf)
-	  (erase-buffer)
-	  (insert filename)
-	  ;; raw JIS conversion
-	  (mew-cs-decode-region (point-min) (point-max) mew-cs-7bit)
-	  ;; MIME decode
-	  (mew-header-decode-address)
-	  ;; remove spaces
-	  (goto-char 1)
-	  (if  mew-fake-cdp-remove-space
-	      (while (re-search-forward "[ \t]+" nil t) (replace-match "")))
-	  ;; get kanji filename from work-buffer
-	  (setq filename (buffer-substring (point-min) (point-max)))
-	  (kill-buffer buf)))
+      ;; 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)))))
+      ;; remove spaces
+      (if  mew-fake-cdp-remove-space
+	  (save-match-data
+	    (while (string-match "[ \t]+" filename)
+	      (setq filename (replace-match "" nil nil filename)))))
       ;; Fake CDP: entry
       (if (null cdpl)
 	  ;; newly make
@@ -114,7 +111,7 @@
       (mew-syntax-set-cdp syntax cdpl)
       )
     ;; return
-    syntax)) 
+    syntax))
 
 (provide 'mew-fake-cdp)
 



> # 本体の体質が変わると、寄生虫は生きていけないので悲しいです。;_;

そうですね。
でも、まぁ、チャンと実装してればこんな目にはあわなかったかも、
てな感じでして。(^^;;


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