X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=mime-def.el;h=d5e5525d2495078744c0ec713ad95d2c1ee1eaf1;hb=9299e013588829c333b3f91bc749afa9f534a866;hp=0e6fe72f95f01d00b3a7d35b4ab825f2feac53f4;hpb=9cf6838bc986b73bc83955794f7424e9d3e1539d;p=elisp%2Fflim.git

diff --git a/mime-def.el b/mime-def.el
index 0e6fe72..d5e5525 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -24,7 +24,15 @@
 
 ;;; Code:
 
-(defconst mime-library-version-string "FLIM 1.8.2 - \"Kutsukawa\"")
+(defconst mime-library-version
+  '("FLIM" "Tonosh.DNr" 1 9 1)
+  "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