tm 7.72.

[elisp/tm.git] / tm-parse.el

diff --git a/tm-parse.el b/tm-parse.el
index d6fe8ca..0598d57 100644 (file)
--- a/tm-parse.el
+++ b/tm-parse.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-parse.el,v 7.8 1996/04/20 12:17:27 morioka Exp $
+;;;    $Id: tm-parse.el,v 7.9 1996/06/06 07:24:30 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -102,7 +102,12 @@ current-buffer, and return it.
 If is is not found, return DEFAULT-ENCODING. [tm-parse.el]"
   (let ((str (rfc822/get-field-body "Content-Transfer-Encoding")))
     (if str
-       (downcase str)
+       (progn
+         (if (string-match "[ \t\n\r]+$" str)
+             (setq str (substring str 0 (match-beginning 0)))
+           )
+         (downcase str)
+         )
       default-encoding)
     ))