From: yamaoka <yamaoka>
Date: Thu, 21 May 1998 10:33:41 +0000 (+0000)
Subject: Sync up with SEMI 1.4.5.
X-Git-Tag: wemi-1_4_5~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=52db84b2ab1c19f84f60f6b4006193ce2b4c0488;p=elisp%2Fsemi.git

Sync up with SEMI 1.4.5.
---

diff --git a/ChangeLog b/ChangeLog
index ca0115f..e3928eb 100644
--- 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.
+
 
 1998-05-19  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
diff --git a/README.en b/README.en
index e4c8993..5ee3aa7 100644
--- 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
--- 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
--- 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
 ;;;