Rename `mime-view-quitting-method-for-mime-show-message-mode' ->

`mime-preview-quitting-method-for-mime-show-message-mode'.

diff --git a/mime-play.el b/mime-play.el
index b2eaab5..f394087 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -289,7 +289,7 @@ window.")
 ;;; @ mail/news message
 ;;;
 
-(defun mime-view-quitting-method-for-mime-show-message-mode ()
+(defun mime-preview-quitting-method-for-mime-show-message-mode ()
   "Quitting method for mime-view.
 It is registered to variable `mime-preview-quitting-method-alist'."
   (let ((mother mime-mother-buffer)

diff --git a/mime-view.el b/mime-view.el
index b9959cc..436178d 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -350,7 +350,7 @@ message/partial, it is called `mother-buffer'.")
 
 (defvar mime-preview-quitting-method-alist
   '((mime-show-message-mode
-     . mime-view-quitting-method-for-mime-show-message-mode))
+     . mime-preview-quitting-method-for-mime-show-message-mode))
   "Alist of major-mode vs. quitting-method of mime-view.")
 
 (defvar mime-view-over-to-previous-method-alist nil)