From: yamaoka <yamaoka>
Date: Fri, 10 Nov 2000 06:52:30 +0000 (+0000)
Subject: Synch with Gnus.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=acfb594d4f9da6d57f4e1024bf02911acf3f2259;p=elisp%2Fgnus.git-

Synch with Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e063ecc..8b48900 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 734b2a0..38986c4 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