From: morioka <morioka>
Date: Mon, 11 May 1998 23:45:31 +0000 (+0000)
Subject: Rename 'mime/Content-Transfer-Encoding ->
X-Git-Tag: remi-1_4_0-pre2~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=45548eb7b8db10d8c8cd8420cbb3b12c1a4c5b29;p=elisp%2Fsemi.git

Rename 'mime/Content-Transfer-Encoding ->
'mime-read-Content-Transfer-Encoding.
---

diff --git a/mime-parse.el b/mime-parse.el
index 87ed707..4d6a057 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -158,10 +158,10 @@ and return parsed it."
 ;;; @ Content-Transfer-Encoding
 ;;;
 
-(defun mime/Content-Transfer-Encoding (&optional default-encoding)
+(defun mime-read-Content-Transfer-Encoding (&optional default-encoding)
   "Read field-body of Content-Transfer-Encoding field from
 current-buffer, and return it.
-If is is not found, return DEFAULT-ENCODING. [mime-parse.el]"
+If is is not found, return DEFAULT-ENCODING."
   (let ((str (std11-field-body "Content-Transfer-Encoding")))
     (if str
 	(progn
@@ -170,8 +170,7 @@ If is is not found, return DEFAULT-ENCODING. [mime-parse.el]"
 	    )
 	  (downcase str)
 	  )
-      default-encoding)
-    ))
+      default-encoding)))
 
 
 ;;; @ message parser
@@ -254,7 +253,7 @@ mime-{parse|read}-Content-Type."
   (let ((primtype (mime-content-type-primary-type default-ctl))
 	(subtype (mime-content-type-subtype default-ctl))
 	(params (mime-content-type-parameters default-ctl))
-	(encoding (or (mime/Content-Transfer-Encoding) default-encoding)))
+	(encoding (mime-read-Content-Transfer-Encoding default-encoding)))
     (let ((boundary (assoc "boundary" params)))
       (cond (boundary
 	     (setq boundary (std11-strip-quoted-string (cdr boundary)))