;;;
;;; 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).
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)
))