[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
MIME boundaries
- From: Katsumi Yamaoka <yamaoka@xxxxxxx>
- Date: Fri, 14 Nov 2003 18:58:21 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 06061
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