(emh-summary-before-quit): `mime::article/preview-buffer' ->

`mime-view-buffer'.

diff --git a/emh.el b/emh.el
index 12000a5..c05ab29 100644 (file)
--- a/emh.el
+++ b/emh.el
@@ -8,7 +8,7 @@
 ;; Created: 1993/11/21
 ;;     Renamed: 1993/11/27 from mh-e-mime.el
 ;;     Renamed: 1997/02/21 from tm-mh-e.el
-;; Version: $Revision: 0.15 $
+;; Version: $Revision: 0.16 $
 ;; Keywords: MH, MIME, multimedia, encoded-word, multilingual, mail
 
 ;; This file is part of emh.
@@ -38,7 +38,7 @@
 ;;;
 
 (defconst emh-RCS-ID
-  "$Id: emh.el,v 0.15 1997-03-18 13:47:26 morioka Exp $")
+  "$Id: emh.el,v 0.16 1997-03-18 14:41:56 morioka Exp $")
 
 (defconst emh-version (get-version-string emh-RCS-ID))
 
@@ -345,8 +345,8 @@ It is registered to variable `mime-view-content-header-filter-alist'."
     (if buf
        (let ((the-buf (current-buffer)))
          (switch-to-buffer buf)
-         (if (and mime::article/preview-buffer
-                  (setq buf (get-buffer mime::article/preview-buffer))
+         (if (and mime-view-buffer
+                  (setq buf (get-buffer mime-view-buffer))
                   )
              (progn
                (switch-to-buffer the-buf)
@@ -357,7 +357,7 @@ It is registered to variable `mime-view-content-header-filter-alist'."
          ))))
 
 (add-hook 'mh-before-quit-hook (function emh-summary-before-quit))
-            
+
 
 ;;; @@ for emh-comp.el
 ;;;