[mew-dist 24797] ^M in message-id

[Ryota Hirose]

ヤマハの広瀬です。

今朝、Message-Id: に^Mを含むメールを受信してしまいました。そこでscanが
エラーで止まってしまうので苦しみましたが、とりあえず以下の修正で逃げま
した。しかし、とんでもなくいい加減な修正で悲しいです。他のヘッダに^Mが
あったらどうしよう。

Index: mew-scan.el
===================================================================
RCS file: /cvsmew/mew/mew-scan.el,v
retrieving revision 1.203
diff -u -r1.203 mew-scan.el
--- mew-scan.el	29 Dec 2003 02:44:22 -0000	1.203
+++ mew-scan.el	29 Mar 2004 00:16:38 -0000
@@ -300,6 +300,7 @@
 	 (line (mapconcat 'mew-scan-get-piece (mew-sinfo-get-summary-form) ""))
 	 par-id my-id msg ld uid siz irt-list)
     (setq my-id (or (mew-idstr-get-first-id (MEW-ID)) ""))
+    (setq my-id (replace-regexp-in-string "
" "" my-id))
     ;; RFC 2822 says: the "In-Reply-To:" field may be used to identify
     ;; the message (or messages) to which the new message is a reply,
     ;; while the "References:" field may be used to identify a