X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-def.el;h=2e308c759d4500549993d9c34a2f830453ed199c;hb=bbc2a98316ff09d2e758d6c34eb58dfcd9105087;hp=8fb1adb910d1c8f6f4b0fa356720182a72be98ff;hpb=2f5586dbd276d316c4984d9cfa4a6a660b99df25;p=elisp%2Fflim.git

diff --git a/mime-def.el b/mime-def.el
index 8fb1adb..2e308c7 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -24,7 +24,15 @@
 
 ;;; Code:
 
-(defconst mime-library-version-string "FLIM 1.9.0 - \"Terada\"")
+(defconst mime-library-version
+  '("FLIM" "Shin-Tanabe" 1 9 2)
+  "Implementation name, version name and numbers of MIME-library package.")
+
+(defconst mime-library-version-string
+  `,(concat (car mime-library-version) " "
+	    (mapconcat #'number-to-string
+		       (cddr mime-library-version) ".")
+	    " - \"" (cadr mime-library-version) "\""))
 
 
 ;;; @ variables
@@ -61,22 +69,6 @@
 ;;; @ required functions
 ;;;
 
-(unless (fboundp 'butlast)
-  (defun butlast (x &optional n)
-    "Returns a copy of LIST with the last N elements removed."
-    (if (and n (<= n 0)) x
-      (nbutlast (copy-sequence x) n)))
-  
-  (defun nbutlast (x &optional n)
-    "Modifies LIST to remove the last N elements."
-    (let ((m (length x)))
-      (or n (setq n 1))
-      (and (< n m)
-	   (progn
-	     (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil))
-	     x))))
-  )
-
 (defsubst eliminate-top-spaces (string)
   "Eliminate top sequence of space or tab in STRING."
   (if (string-match "^[ \t]+" string)
@@ -315,6 +307,8 @@ message/rfc822, `mime-entity' structures of them are included in
 	 ))))
 
 (put 'mm-define-method 'lisp-indent-function 'defun)
+(put 'mm-define-method 'edebug-form-spec
+     '(&define name ((arg symbolp) &rest arg) def-body))
 
 
 ;;; @ end