From: morioka <morioka>
Date: Fri, 13 Mar 1998 19:00:15 +0000 (+0000)
Subject: Rename `mime-view-quitting-method-alist' ->
X-Git-Tag: semi-1_1_0~69
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7625ec225500779e466b1b7f8022141927748788;p=elisp%2Fsemi.git

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
--- 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
--- 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
--- 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))
       )))