(mime-editor/version-name): New constant.

[elisp/semi.git] / mime-edit.el

diff --git a/mime-edit.el b/mime-edit.el
index 5cbf901..3be3dd0 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -7,9 +7,9 @@
 ;;; Author: UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
 ;;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1994/08/21 (renamed from mime.el;
-;;;                      1996/05/24 renamed from tm-edit.el)
-;;; Version: $Revision: 0.3 $
+;;; Created: 1994/08/21 renamed from mime.el by UMEDA Masanobu;
+;;;          1996/05/24 renamed from tm-edit.el
+;;; Version: $Revision: 0.4 $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual
 ;;;
 ;;; This file is part of SEMI (September, Emacs MIME Interface)
@@ -50,7 +50,7 @@
 ;; News mode.  First of all, you need the following autoload
 ;; definition to load mime/editor-mode automatically:
 ;;
-;; (autoload 'mime/editor-mode "tm-edit"
+;; (autoload 'mime/editor-mode "mime-edit"
 ;;           "Minor mode for editing MIME message." t)
 ;;
 ;; In case of Mail mode (includes VM mode), you need the following
@@ -123,10 +123,13 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: mime-edit.el,v 0.3 1996-05-24 15:16:37 morioka Exp $")
+  "$Id: mime-edit.el,v 0.4 1996-05-25 14:42:47 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
+(defconst mime-editor/version-name
+  (concat "SEMI mime-edit " mime-editor/version))
+
 
 ;;; @ variables
 ;;;
@@ -369,7 +372,7 @@ If encoding is nil, it is determined from its contents.")
   '("Received" "Approved" "Path" "Replied" "Status" "X-VM-.*" "X-UIDL")
   "Delete these fields from original message when it is inserted
 as message/rfc822 part.
-Each elements are regexp of field-name. [tm-edit.el]")
+Each elements are regexp of field-name. [mime-edit.el]")
 
 (defvar mime-editor/yank-ignored-field-regexp
   (concat "^"
@@ -383,10 +386,10 @@ Each elements are regexp of field-name. [tm-edit.el]")
 ;;;
 
 (defvar mime-editor/split-message t
-  "*Split large message if it is non-nil. [tm-edit.el]")
+  "*Split large message if it is non-nil. [mime-edit.el]")
 
 (defvar mime-editor/message-default-max-length 1000
-  "*Default maximum size of a message. [tm-edit.el]")
+  "*Default maximum size of a message. [mime-edit.el]")
 
 (defvar mime-editor/message-max-length-alist
   '((news-reply-mode . 500)))
@@ -455,10 +458,10 @@ Each elements are regexp of field-name. [tm-edit.el]")
 ;;;
 
 (defvar mime-editor/signing-type nil
-  "*PGP signing type (pgp-elkins, pgp-kazu or nil). [tm-edit.el]")
+  "*PGP signing type (pgp-elkins, pgp-kazu or nil). [mime-edit.el]")
 
 (defvar mime-editor/encrypting-type nil
-  "*PGP encrypting type (pgp-elkins, pgp-kazu or nil). [tm-edit.el]")
+  "*PGP encrypting type (pgp-elkins, pgp-kazu or nil). [mime-edit.el]")
 
 (if (or mime-editor/signing-type mime-editor/encrypting-type)
     (require 'mailcrypt)
@@ -521,7 +524,7 @@ Each elements are regexp of field-name. [tm-edit.el]")
 Tspecials means any character that matches with it in header must be quoted.")
 
 (defconst mime-editor/mime-version-value
-  (format "1.0 (generated by SEMI composer %s)" mime-editor/version)
+  (concat "1.0 (" mime-editor/version-name ")")
   "MIME version number.")
 
 (defconst mime-editor/mime-map (make-sparse-keymap)
@@ -2332,8 +2335,7 @@ Optional TRANSFER-LEVEL is a number of transfer-level, 7 or 8."
   (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 tm-edit %s)\n"
-                 mime-editor/version))
+  (insert (format "Mime-Version: 1.0 (%s)\n" mime-editor/version-name))
   (insert (format "\
 Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
                  id number total separator))
@@ -2490,7 +2492,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 ;;;
 
 (defun mime-editor/preview-message ()
-  "preview editing MIME message. [tm-edit.el]"
+  "preview editing MIME message. [mime-edit.el]"
   (interactive)
   (let* ((str (buffer-string))
         (separator mail-header-separator)