* mel-ccl.el:

[elisp/flim.git] / mime-def.el

diff --git a/mime-def.el b/mime-def.el
index a337853..d879bcd 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -24,8 +24,15 @@
 
 ;;; Code:
 
+(defconst mime-library-version
+  '("FLAM-DOODLE" "\e$B?<;Y;R\e(B 10YR7.5/8.0" 1 9 5)
+  "Implementation name, version name and numbers of MIME-library package.")
+
 (defconst mime-library-version-string
-  "FLIM-FLAM 1.9.0 - \"\e$B6d<k\e(B\" 5.0R4.5/13.0")
+  `,(concat (car mime-library-version) " "
+           (mapconcat #'number-to-string
+                      (cddr mime-library-version) ".")
+           " - \"" (cadr mime-library-version) "\""))
 
 
 ;;; @ variables
@@ -62,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)
@@ -316,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