(mime-edit-mime-version-field-for-message/partial): New constant.

(mime-edit-insert-partial-header): Use it.

diff --git a/mime-edit.el b/mime-edit.el
index 90dcc5a..8c3b053 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -7,7 +7,7 @@
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/08/21 renamed from mime.el
 ;;     Renamed: 1997/2/21 from tm-edit.el
-;; Version: $Revision: 0.88 $
+;; Version: $Revision: 0.89 $
 ;; Keywords: MIME, multimedia, multilingual, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -122,13 +122,13 @@
 ;;;
 
 (defconst mime-edit-RCS-ID
-  "$Id: mime-edit.el,v 0.88 1997-09-05 07:10:59 morioka Exp $")
+  "$Id: mime-edit.el,v 0.89 1997-09-15 09:10:52 morioka Exp $")
 
 (defconst mime-edit-version `,(get-version-string mime-edit-RCS-ID))
 
 (defconst mime-edit-version-name
   `,(concat "SEMI MIME-Edit " mime-edit-version
-           " \"" semi-version-name "\""))
+           " - \"" semi-version-name "\""))
 
 
 ;;; @ variables
@@ -543,6 +543,10 @@ Tspecials means any character that matches with it in header must be quoted.")
   (concat "1.0 (generated by " mime-edit-version-name ")")
   "MIME version number.")
 
+(defconst mime-edit-mime-version-field-for-message/partial
+  (concat "MIME-Version: 1.0 (split by " mime-edit-version-name ")\n")
+  "MIME version field for message/partial.")
+
 
 ;;; @ keymap and menu
 ;;;
@@ -1809,7 +1813,7 @@ Content-Transfer-Encoding: 7bit
                 (insert mime-edit-x-emacs-value)
                 ))
        ;; Make primary MIME headers.
-       (or (mail-position-on-field "Mime-Version")
+       (or (mail-position-on-field "MIME-Version")
            (insert mime-edit-mime-version-value))
        ;; Remove old Content-Type and other fields.
        (save-restriction
@@ -2278,12 +2282,11 @@ Optional TRANSFER-LEVEL is a number of transfer-level, 7 or 8."
 ;;; @ split
 ;;;
 
-(defun mime-edit-insert-partial-header
-  (fields subject id number total separator)
+(defun mime-edit-insert-partial-header (fields subject
+                                              id number total separator)
   (insert fields)
   (insert (format "Subject: %s (%d/%d)\n" subject number total))
-  (insert (format "Mime-Version: 1.0 (split by %s)\n"
-                 mime-edit-version-name))
+  (insert mime-edit-mime-version-field-for-message/partial)
   (insert (format "\
 Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
                  id number total separator))