From e1e104fbce7ec6dcd9a9bfb7b228c5780c1caeac Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 17 Jun 1998 13:07:02 +0000 Subject: [PATCH] Rename `mime-view-following-method-alist' to `mime-preview-following-method-alist'. --- mime-view.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mime-view.el b/mime-view.el index c87bb3e..c57122d 100644 --- a/mime-view.el +++ b/mime-view.el @@ -723,7 +723,7 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t. t means default." ;;; @ following method ;;; -(defvar mime-view-following-method-alist nil +(defvar mime-preview-following-method-alist nil "Alist of major-mode vs. following-method of mime-view.") (defvar mime-view-following-required-fields-list @@ -1105,7 +1105,7 @@ It decodes current entity to call internal or external method as (defun mime-preview-follow-current-entity () "Write follow message to current entity. It calls following-method selected from variable -`mime-view-following-method-alist'." +`mime-preview-following-method-alist'." (interactive) (let (entity) (while (null (setq entity @@ -1220,7 +1220,7 @@ It calls following-method selected from variable )) (eword-decode-header) ) - (let ((f (cdr (assq mode mime-view-following-method-alist)))) + (let ((f (cdr (assq mode mime-preview-following-method-alist)))) (if (functionp f) (funcall f new-buf) (message -- 1.7.10.4