X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=semi-def.el;h=bc294ea2271eb9fb233b3dcb108cdacf909101e1;hb=bf765ed3ff2c3d2546f0687131812b307f9bd041;hp=728bab03d90279a4c91cc888ce7e9b67e9e3be27;hpb=0e802edc408a5237afe1d2e68e817e23696fb9ff;p=elisp%2Fsemi.git

diff --git a/semi-def.el b/semi-def.el
index 728bab0..bc294ea 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -29,20 +29,13 @@
 (eval-when-compile (require 'cl))
 
 
-(defconst mime-module-version '("[REMI 1.4.0.9 based] WEMI" ",DR(Biso" 1 4 4)
+(defconst mime-module-version '("WEMI" "K-Dòzu-A" 1 4 6)
   "Implementation name, version name and numbers of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"
   "Caesar rotation of current region." t)
 
 
-;;; @ variables
-;;;
-
-(defvar mime/use-multi-frame
-  (and (>= emacs-major-version 19) window-system))
-
-
 ;;; @ constants
 ;;;
 
@@ -105,8 +98,7 @@
 	    point (point)
 	    func (get-text-property (point) 'mime-button-callback)
 	    data (get-text-property (point) 'mime-button-data)
-	    )
-      )
+	    ))
     (save-excursion
       (set-buffer buf)
       (goto-char point)
@@ -185,8 +177,7 @@ FUNCTION.")
 
 (defmacro pgp-function (method)
   "Return function to do service METHOD."
-  `(cadr (assq ,method (symbol-value 'pgp-function-alist)))
-  )
+  `(cadr (assq ,method (symbol-value 'pgp-function-alist))))
 
 (mapcar (function
 	 (lambda (method)
@@ -262,16 +253,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
 ;;;