From: morioka <morioka>
Date: Fri, 15 Jan 1999 11:52:43 +0000 (+0000)
Subject: (mime-parse-Content-Transfer-Encoding): New implementation.
X-Git-Tag: flim-1_12-199901151900~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=197177dee4f151b59f61163a1b78c8f2c1256797;p=elisp%2Fflim.git

(mime-parse-Content-Transfer-Encoding): New implementation.
---

diff --git a/mime-parse.el b/mime-parse.el
index 8951509..70ec263 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -131,10 +131,16 @@ and return parsed it."
 ;;;###autoload
 (defun mime-parse-Content-Transfer-Encoding (string)
   "Parse STRING as field-body of Content-Transfer-Encoding field."
-  (if (string-match "[ \t\n\r]+$" string)
-      (setq string (match-string 0 string))
-    )
-  (downcase string))
+  (let ((tokens (std11-lexical-analyze string))
+	token)
+    (while (and tokens
+		(setq token (car tokens))
+		(std11-ignored-token-p token))
+      (setq tokens (cdr tokens)))
+    (if token
+	(if (eq (car token) 'atom)
+	    (downcase (cdr token))
+	  ))))
 
 ;;;###autoload
 (defun mime-read-Content-Transfer-Encoding (&optional default-encoding)