From 197177dee4f151b59f61163a1b78c8f2c1256797 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 15 Jan 1999 11:52:43 +0000 Subject: [PATCH] (mime-parse-Content-Transfer-Encoding): New implementation. --- mime-parse.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) 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) -- 1.7.10.4