From: morioka <morioka>
Date: Mon, 15 Sep 1997 09:10:52 +0000 (+0000)
Subject: (mime-edit-mime-version-field-for-message/partial): New constant.
X-Git-Tag: semi-0_115~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=25b571822181ccce8e04d84c2ff01f29eef1e44a;p=elisp%2Fsemi.git

(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
--- 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))