Rename `mime-view-quitting-method-alist' ->

`mime-preview-quitting-method-alist'.

diff --git a/mime-edit.el b/mime-edit.el
index 9584fc2..96b24f4 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2540,10 +2540,9 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
     (switch-to-buffer buf)
     ))
 
-(set-alist 'mime-view-quitting-method-alist
+(set-alist 'mime-preview-quitting-method-alist
           'mime-temp-message-mode
-          (function mime-edit-quitting-method)
-          )
+          #'mime-edit-quitting-method)
 
 
 ;;; @ edit again

diff --git a/mime-play.el b/mime-play.el
index 333a16f..b2eaab5 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -291,7 +291,7 @@ window.")
 
 (defun mime-view-quitting-method-for-mime-show-message-mode ()
   "Quitting method for mime-view.
-It is registered to variable `mime-view-quitting-method-alist'."
+It is registered to variable `mime-preview-quitting-method-alist'."
   (let ((mother mime-mother-buffer)
        (win-conf mime-preview-original-window-configuration)
        )

diff --git a/mime-view.el b/mime-view.el
index 6326acb..b9959cc 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -348,7 +348,7 @@ message/partial, it is called `mother-buffer'.")
 ;;; @@ quitting method
 ;;;
 
-(defvar mime-view-quitting-method-alist
+(defvar mime-preview-quitting-method-alist
   '((mime-show-message-mode
      . mime-view-quitting-method-for-mime-show-message-mode))
   "Alist of major-mode vs. quitting-method of mime-view.")
@@ -1173,10 +1173,10 @@ If reached to (point-min), it calls function registered in variable
 (defun mime-preview-quit ()
   "Quit from MIME-preview buffer.
 It calls function registered in variable
-`mime-view-quitting-method-alist'."
+`mime-preview-quitting-method-alist'."
   (interactive)
   (let ((r (assq mime-preview-original-major-mode
-                mime-view-quitting-method-alist)))
+                mime-preview-quitting-method-alist)))
     (if r
        (funcall (cdr r))
       )))