From: morioka <morioka>
Date: Wed, 25 Mar 1998 08:29:16 +0000 (+0000)
Subject: Rename 'mime-decode-text-body -> 'mime-text-decode-body.
X-Git-Tag: akemi-1_2_0~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e31f5213308fa82ca6280dc5a7a2b888fd918c7;p=elisp%2Fsemi.git

Rename 'mime-decode-text-body -> 'mime-text-decode-body.
---

diff --git a/mime-text.el b/mime-text.el
index 4eccab3..748ab19 100644
--- a/mime-text.el
+++ b/mime-text.el
@@ -64,7 +64,7 @@ See also variable `mime-charset-coding-system-alist'."
       (mime-text-decode-buffer charset)
       ))
 
-(defun mime-decode-text-body (situation)
+(defun mime-text-decode-body (situation)
   "Decode current buffer as text body.
 It decodes MIME-encoding then code-converts as MIME-charset.
 MIME-encoding is value of field 'encoding of SITUATION.  It must be
@@ -117,7 +117,7 @@ local variable `mime-text-decoder' and variable
 ;;;
 
 (defun mime-view-filter-for-text/plain (situation)
-  (mime-decode-text-body situation)
+  (mime-text-decode-body situation)
   (goto-char (point-max))
   (if (not (eq (char-after (1- (point))) ?\n))
       (insert "\n")
@@ -138,14 +138,14 @@ local variable `mime-text-decoder' and variable
 (defun mime-view-filter-for-text/richtext (situation)
   (let ((beg (point-min)))
     (remove-text-properties beg (point-max) '(face nil))
-    (mime-decode-text-body situation)
+    (mime-text-decode-body situation)
     (richtext-decode beg (point-max))
     ))
 
 (defun mime-view-filter-for-text/enriched (situation)
   (let ((beg (point-min)))
     (remove-text-properties beg (point-max) '(face nil))
-    (mime-decode-text-body situation)
+    (mime-text-decode-body situation)
     (enriched-decode beg (point-max))
     ))