tm 7.32.

[elisp/tm.git] / tm-def.el

diff --git a/tm-def.el b/tm-def.el
index adda95a..2aba73c 100644 (file)
--- a/tm-def.el
+++ b/tm-def.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-def.el,v 7.2 1995/11/14 04:56:15 morioka Exp $
+;;;    $Id: tm-def.el,v 7.5 1995/12/09 04:11:11 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, definition
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -35,7 +35,7 @@
 ;;;
 
 (defconst mime/output-buffer-name "*MIME-out*")
-(defconst mime/decoding-buffer-name "*MIME-decoding*")
+(defconst mime/temp-buffer-name " *MIME-temp*")
 
 
 ;;; @ for various Emacs variants
@@ -227,7 +227,8 @@ ROT47 will be performed for Japanese text in any case."
               ))
            (reverse field-list)
            )
-    (set regexp-sym (apply (function regexp-or) fields))
+    (set regexp-sym
+        (concat "^" (apply (function regexp-or) fields) ":"))
     (set sym fields)
     ))
 
@@ -248,7 +249,8 @@ ROT47 will be performed for Japanese text in any case."
               (setq fields (delete field fields))
               ))
            field-list)
-    (set regexp-sym (apply (function regexp-or) fields))
+    (set regexp-sym
+        (concat "^" (apply (function regexp-or) fields) ":"))
     (set sym fields)
     ))