[Mew-dist 04903] Re: 1.93b35

[Mito]

※ "山" こと kazu at example.com さんの
   『[Mew-dist 04899] Re: 1.93b35』より

山> P.S.

山> mew-header-decode に、

山>       (while (string-match "[\000-\010\012-\037\177]+" ret)
山>         (setq ret (replace-match "" nil nil ret)))

山> というコードを入れました。

encoded-word の場合は OK でしょうが、

Content-Description: first line
        second line

↑のように encoded-word でないものが2行になっている場合など
は、mew-header-decode を通らないので、

|   498 M05/27 [->mit at example.com] ABC
|      2  Text/Plain(us-ascii)         first line
|         second line
| 

とか、

| ------------------------------ attachments ------------------------------
|       Multipart/Mixed                                           1/
|      1  Text/Plain(guess)                                         CoverPage*
|      2  Text/Plain(guess)            first line
|  second line       w.txt*
|      3                                                            .
| --------0-1-2-3-4-5-6-7-8-9----------------------------------------------

になってしまいますが、やはりまずいですよね？
＃ やっぱり、ここで直すのかなぁ...。

--- mew-syntax.el	1998/05/27 04:13:32	1.1
+++ mew-syntax.el	1998/05/27 08:59:01
@@ -695,6 +695,8 @@
 	    (if asterisk
 		(setq file (concat (mew-substring file lfc*) AR cnt))
 	      (setq file (concat (mew-substring file lfc) cnt)))))
+    (while (string-match "[\000-\010\012-\037\177]+" cd-or-dec)
+      (setq cd-or-dec (replace-match "" nil nil cd-or-dec)))
     (insert
      (concat
       marks

ついでで申し訳ないですが。"X" が直ってませんが
[Mew-dist 04685] の修正では問題ありでしたか？
-- 
5/27 18:46頃
NECソフトウェア新潟 水戸
mailto:mit at example.com \n