(eliminate-top-spaces): Moved from semi-def.el.

diff --git a/mime-def.el b/mime-def.el
index 3dc6d92..dfbeece 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -50,6 +50,12 @@
             x))))
   )
 
+(defsubst eliminate-top-spaces (string)
+  "Eliminate top sequence of space or tab in STRING."
+  (if (string-match "^[ \t]+" string)
+      (substring string (match-end 0))
+    string))
+
 
 ;;; @ definitions about MIME
 ;;;