Sync up with SEMI 1.4.5.

diff --git a/ChangeLog b/ChangeLog
index ca0115f..e3928eb 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,22 @@
+1998-05-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * README.en (Mailing lists): Add notice about direct-mail for
+       authors.
+
 1998-05-20  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * VERSION: Add new codenames for WEMI.
 
+1998-05-19  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * mime-play.el (mime-raw-dired-function): Don't refer
+       'mime/use-multi-frame.
+
+       * semi-def.el: Abolish variable 'mime/use-multi-frame.
+
+       * Abolish function 'get-version-string because it is
+       not used.
+
 \f
 1998-05-19  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 

diff --git a/README.en b/README.en
index e4c8993..5ee3aa7 100644 (file)
--- a/README.en
+++ b/README.en
@@ -156,6 +156,13 @@ Mailing lists
        tm-en-help@chamonix.jaist.ac.jp (English)
        tm-ja-help@chamonix.jaist.ac.jp (Japanese)
 
+  Notice that you should not send mail to author(s), such as
+  morioka@jaist.ac.jp, directly.  Because your problem may occur in
+  other environments (if not, it might be your problem, not bug of
+  SEMI).  We should discuss in the tm mailing lists.  Anyway
+  direct-mail for authors might be ignored.  Please send mail to the
+  tm mailing lists.
+
 
 CVS based development
 =====================

diff --git a/mime-play.el b/mime-play.el
index 7e50479..943519c 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -582,7 +582,7 @@ to write."
 ;;;
 
 (defvar mime-raw-dired-function
-  (if mime/use-multi-frame
+  (if (and (>= emacs-major-version 19) window-system)
       (function dired-other-frame)
     (function mime-raw-dired-function-for-one-frame)
     ))

diff --git a/semi-def.el b/semi-def.el
index 728bab0..b1b63bd 100644 (file)
--- a/semi-def.el
+++ b/semi-def.el
@@ -36,13 +36,6 @@
   "Caesar rotation of current region." t)
 
 
-;;; @ variables
-;;;
-
-(defvar mime/use-multi-frame
-  (and (>= emacs-major-version 19) window-system))
-
-
 ;;; @ constants
 ;;;
 
@@ -262,16 +255,6 @@ FUNCTION.")
     ))
 
 
-;;; @ RCS version
-;;;
-
-(defsubst get-version-string (id)
-  "Return a version-string from RCS ID."
-  (and (string-match ",v \\([0-9][0-9.][0-9.]+\\)" id)
-       (substring id (match-beginning 1)(match-end 1))
-       ))
-
-
 ;;; @ Other Utility
 ;;;