(last*): New alias for old emacsen.

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

diff --git a/mime-def.el b/mime-def.el
index 0ec8938..745a0cb 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-def.el,v 0.53 1997-07-02 16:28:48 morioka Exp $
+;; Version: $Id: mime-def.el,v 0.60 1997-08-25 17:13:05 morioka Exp $
 ;; Keywords: definition, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -28,9 +28,15 @@
 (require 'cl)
 (require 'emu)
 
+(defconst semi-version-name "Tsurugi")
+
 (autoload 'mule-caesar-region "mule-caesar"
   "Caesar rotation of current region." t)
 
+(or (fboundp 'last*)
+    (defalias 'last* 'last)
+    )
+
 
 ;;; @ variables
 ;;;
@@ -57,14 +63,12 @@
 ;;; @ definitions about MIME
 ;;;
 
-(defconst mime/tspecials "][\000-\040()<>@,\;:\\\"/?.=")
-(defconst mime/token-regexp (concat "[^" mime/tspecials "]+"))
-(defconst mime-charset-regexp mime/token-regexp)
-
-(defconst mime/content-type-subtype-regexp
-  (concat mime/token-regexp "/" mime/token-regexp))
+(defconst mime-tspecials "][\000-\040()<>@,\;:\\\"/?.=")
+(defconst mime-token-regexp (concat "[^" mime-tspecials "]+"))
+(defconst mime-charset-regexp mime-token-regexp)
 
-(defconst mime/disposition-type-regexp mime/token-regexp)
+(defconst mime-media-type/subtype-regexp
+  (concat mime-token-regexp "/" mime-token-regexp))
 
 
 ;;; @ button