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 aaca2d6..0595c38 100644 (file)
--- 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 (file)
--- 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