From 45548eb7b8db10d8c8cd8420cbb3b12c1a4c5b29 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 11 May 1998 23:45:31 +0000 Subject: [PATCH] Rename 'mime/Content-Transfer-Encoding -> 'mime-read-Content-Transfer-Encoding. --- mime-parse.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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))) -- 1.7.10.4