From: morioka <morioka>
Date: Mon, 30 Nov 1998 15:22:53 +0000 (+0000)
Subject: (eliminate-top-spaces): New function (moved from mime-def.el of FLIM).
X-Git-Tag: semi-1_12-199811302358~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=73efc2fafab0132d9fa632727777abe9837f39e4;p=elisp%2Fsemi.git

(eliminate-top-spaces): New function (moved from mime-def.el of FLIM).
---

diff --git a/mime-edit.el b/mime-edit.el
index 873c5bf..56ee40b 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2589,6 +2589,12 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 	  "\\):")
   "Regexp for deleted header fields when `mime-edit-again' is called.")
 
+(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))
+
 (defun mime-edit-decode-multipart-in-buffer (content-type not-decode-text)
   (let* ((subtype (mime-content-type-subtype content-type))
 	 (boundary (mime-content-type-parameter content-type "boundary"))