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

[elisp/emh.git] / emh.el

diff --git a/emh.el b/emh.el
index ba23340..1b5a511 100644 (file)
--- a/emh.el
+++ b/emh.el
@@ -39,7 +39,7 @@
 ;;;
 
 (defconst emh-RCS-ID
-  "$Id: emh.el,v 1.5 1998-03-13 16:19:40 morioka Exp $")
+  "$Id: emh.el,v 1.6 1998-03-13 19:01:20 morioka Exp $")
 
 (defconst emh-version (get-version-string emh-RCS-ID))
 
@@ -272,9 +272,8 @@ It is registered to variable `mime-view-content-header-filter-alist'."
     (mh-show (mh-get-msg-num t))
     ))
 
-(set-alist 'mime-view-quitting-method-alist
-          'mh-show-mode
-          (function emh-quitting-method))
+(set-alist 'mime-preview-quitting-method-alist
+          'mh-show-mode #'emh-quitting-method)
 (set-alist 'mime-view-show-summary-method
           'mh-show-mode
           (function emh-quitting-method))