`mime::preview/article-buffer' -> `mime-raw-buffer'.

diff --git a/emh-comp.el b/emh-comp.el
index 547faed..8cb9498 100644 (file)
--- a/emh-comp.el
+++ b/emh-comp.el
@@ -7,7 +7,7 @@
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1996/2/29 (separated from tm-mh-e.el)
 ;;     Renamed: 1997/2/21 from tmh-comp.el
-;; Version: $Id: emh-comp.el,v 0.2 1997-03-07 14:25:21 morioka Exp $
+;; Version: $Id: emh-comp.el,v 0.3 1997-03-18 14:57:53 morioka Exp $
 ;; Keywords: mail composing, MH, MIME, mail
 
 ;; This file is part of emh.
@@ -150,7 +150,7 @@ system MH lib directory.")
                    (save-excursion
                      (set-buffer gnus-article-buffer)
                      (if (eq major-mode 'mime-view-mode)
-                         mime::preview/article-buffer
+                         mime-raw-buffer
                        (current-buffer)
                        )))
                   ))))
@@ -458,11 +458,11 @@ yanked message will be deleted."
            (delete-windows-on mh-show-buffer))
        (set-buffer mh-show-buffer)     ; Find displayed message
        (let ((mh-ins-str
-              (if mime::preview/article-buffer
+              (if mime-raw-buffer
                   (let (mime-view-plain-text-preview-hook buf)
                     (prog1
                         (save-window-excursion
-                          (set-buffer mime::preview/article-buffer)
+                          (set-buffer mime-raw-buffer)
                           (setq buf (mime-view-mode))
                           (buffer-string)
                           )

diff --git a/emh.el b/emh.el
index c05ab29..9bd59c9 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.16 $
+;; Version: $Revision: 0.17 $
 ;; 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.16 1997-03-18 14:41:56 morioka Exp $")
+  "$Id: emh.el,v 0.17 1997-03-18 14:57:06 morioka Exp $")
 
 (defconst emh-version (get-version-string emh-RCS-ID))
 
@@ -177,9 +177,9 @@ With arg, turn MIME processing on if arg is positive."
   (save-excursion
     (set-buffer mh-show-buffer)
     (if (null emh-automatic-mime-preview)
-       (if (and mime::preview/article-buffer
-                (get-buffer mime::preview/article-buffer))
-           (kill-buffer mime::preview/article-buffer)
+       (if (and mime-raw-buffer
+                (get-buffer mime-raw-buffer))
+           (kill-buffer mime-raw-buffer)
          )))
   (mh-invalidate-show-buffer)
   (mh-show (mh-get-msg-num t))