From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Fri, 10 Nov 2000 05:25:59 +0000 (+0000)
Subject: 2000-11-10 01:23:20  ShengHuo ZHU  <zsh@cs.rochester.edu>
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=e68197f962f8e021b992f0c3e89406669b3850ed;p=gnus

2000-11-10 01:23:20  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* mm-partial.el (mm-inline-partial): Insert MIME-Version.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aaca2d602..0595c3879 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-10 01:23:20  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* mm-partial.el (mm-inline-partial): Insert MIME-Version.
+
 2000-11-09 17:02:50  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* nnheader.el (nnheader-directory-files-is-safe): New variable.
diff --git a/lisp/mm-partial.el b/lisp/mm-partial.el
index 734b2a0b9..38986c489 100644
--- a/lisp/mm-partial.el
+++ b/lisp/mm-partial.el
@@ -117,6 +117,13 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
 	(if (<= n total)
 	    (error "Missing part %d" n))
 	(kill-buffer (mm-handle-buffer handle))
+	(goto-char (point-min))
+	(let ((point (if (search-forward "\n\n" nil t) 
+			 (1- (point))
+		       (point-max))))
+	  (goto-char (point-min))
+	  (unless (re-search-forward "^mime-version:" point t)
+	    (insert "MIME-Version: 1.0\n")))
 	(setcar handle (current-buffer))
 	(mm-handle-set-cache handle t)))
     (unless no-display