[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

MIME boundaries



Shimbun が作る multipart/related の記事に含まれているパートとパー
トの境界に、空行が足りないのではないでしょうか?

--境界線
ヘッダ

ボディ
★
--境界線
ヘッダ

ボディ
★
--境界線--

★で示した空行がありません。

もっとも shimbun が作る記事は第一パートが text/html で、他は
base64 のデータですから、ボディの最後の改行コードが無くなってし
まってもまったく問題無いのですが。:-p

--- shimbun.el~	2003-11-04 12:12:15 +0000
+++ shimbun.el	2003-11-14 09:57:25 +0000
@@ -402,13 +402,16 @@
 						   shimbun-multipart-entity))
   (let ((boundary (shimbun-multipart-entity-boundary-internal entity)))
     (dolist (child (shimbun-entity-data-internal entity))
-      (unless (eq (char-before) ?\n)
-	(insert "\n"))
+      (if (eq (char-before) ?\n)
+	  (unless (eq (char-before (1- (point))) ?\n)
+	    (insert "\n"))
+	(insert "\n\n"))
       (insert "--" boundary "\n")
       (shimbun-entity-insert child))
-    (unless (eq (char-before) ?\n)
-      (insert "\n"))
-    (insert "--" boundary "--\n")))
+    (insert (if (eq (char-before) ?\n)
+		"\n"
+	      "\n\n")
+	    "--" boundary "--\n")))
 
 (defun shimbun-entity-add-child (entity &rest children)
   (shimbun-entity-set-data-internal entity