From: morioka <morioka>
Date: Fri, 13 Mar 1998 15:35:57 +0000 (+0000)
Subject: Rename `mime-view-follow-current-entity' ->
X-Git-Tag: semi-1_1_0~100
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c91635b1d0661374e94353975ab31fba24cc8fce;p=elisp%2Fsemi.git

Rename `mime-view-follow-current-entity' ->
`mime-preview-follow-current-entity'.
---

diff --git a/mime-view.el b/mime-view.el
index 49752b9..b00bf55 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -729,7 +729,7 @@ The compressed face will be piped to this command.")
     (define-key mime-view-mode-map
       "\C-c\C-p" (function mime-preview-print-current-entity))
     (define-key mime-view-mode-map
-      "a"        (function mime-view-follow-current-entity))
+      "a"        (function mime-preview-follow-current-entity))
     (define-key mime-view-mode-map
       "q"        (function mime-view-quit))
     (define-key mime-view-mode-map
@@ -883,7 +883,7 @@ of the mother-buffer."
 	)
     mime-view-original-major-mode))
 
-(defun mime-view-follow-current-entity ()
+(defun mime-preview-follow-current-entity ()
   "Write follow message to current entity.
 It calls following-method selected from variable
 `mime-view-following-method-alist'."