From 73efc2fafab0132d9fa632727777abe9837f39e4 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 30 Nov 1998 15:22:53 +0000 Subject: [PATCH] (eliminate-top-spaces): New function (moved from mime-def.el of FLIM). --- mime-edit.el | 6 ++++++ 1 file changed, 6 insertions(+) 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")) -- 1.7.10.4