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

diff --git a/mime-bbdb.el b/mime-bbdb.el
index 46b9b19..b6695b0 100644 (file)
--- a/mime-bbdb.el
+++ b/mime-bbdb.el
@@ -7,7 +7,7 @@
 ;; Author: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
 ;;         Artur Pioro <artur@flugor.if.uj.edu.pl>
 ;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Version: $Id: mime-bbdb.el,v 0.2 1997-03-03 19:02:54 morioka Exp $
+;; Version: $Id: mime-bbdb.el,v 0.3 1997-03-18 14:44:39 morioka Exp $
 ;; Keywords: BBDB, MIME, multimedia, multilingual, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -158,9 +158,9 @@ Creating or modifying it as necessary. A record will be created if
 mime-bbdb/auto-create-p is non-nil, or if OFFER-TO-CREATE is non-nil and
 the user confirms the creation."
   (save-excursion
-    (if (and mime::article/preview-buffer
-             (get-buffer mime::article/preview-buffer))
-        (set-buffer mime::article/preview-buffer))
+    (if (and mime-view-buffer
+             (get-buffer mime-view-buffer))
+        (set-buffer mime-view-buffer))
     (if bbdb-use-pop-up
         (mime-bbdb/pop-up-bbdb-buffer offer-to-create)
       (let* ((from (std11-field-body "From"))

diff --git a/mime-pgp.el b/mime-pgp.el
index e82214a..56d799f 100644 (file)
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/12/7
 ;;     Renamed: 1997/2/27 from tm-pgp.el
-;; Version: $Id: mime-pgp.el,v 0.14 1997-03-18 09:47:36 morioka Exp $
+;; Version: $Id: mime-pgp.el,v 0.15 1997-03-18 14:45:47 morioka Exp $
 ;; Keywords: PGP, security, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -50,11 +50,11 @@
 
 (defun mime-article/view-application/pgp (beg end cal)
   (let* ((cnum (mime-article/point-content-number beg))
-        (p-win (or (get-buffer-window mime::article/preview-buffer)
+        (p-win (or (get-buffer-window mime-view-buffer)
                    (get-largest-window)))
         (new-name (format "%s-%s" (buffer-name) cnum))
         (the-buf (current-buffer))
-        (mother mime::article/preview-buffer)
+        (mother mime-view-buffer)
         (mode major-mode)
         text-decoder)
     (set-buffer (get-buffer-create new-name))
@@ -100,7 +100,7 @@
     (setq major-mode 'mime-show-message-mode)
     (setq mime-text-decoder text-decoder)
     (save-window-excursion (mime-view-mode mother))
-    (set-window-buffer p-win mime::article/preview-buffer)
+    (set-window-buffer p-win mime-view-buffer)
     ))
 
 (set-atype 'mime/content-decoding-condition

diff --git a/mime-play.el b/mime-play.el
index 0e93b3b..7c4042b 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
 ;;     Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.26 1997-03-18 09:50:47 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.27 1997-03-18 14:46:40 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -177,7 +177,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
                 (setq win (get-buffer-window bbdb-buffer-name))
                 )
            (set-window-buffer win mime/output-buffer-name)
-         (select-window (get-buffer-window mime::article/preview-buffer))
+         (select-window (get-buffer-window mime-view-buffer))
          (setq win (split-window-vertically (/ (* (window-height) 3) 4)))
          (set-window-buffer win mime/output-buffer-name)
          ))
@@ -247,7 +247,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
 (defun mime-article/view-message/rfc822 (beg end cal)
   (let* ((cnum (mime-article/point-content-number beg))
         (new-name (format "%s-%s" (buffer-name) cnum))
-        (mother mime::article/preview-buffer)
+        (mother mime-view-buffer)
         (text-decoder
          (cdr (or (assq major-mode mime-text-decoder-alist)
                   (assq t mime-text-decoder-alist))))
@@ -292,7 +292,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
         (number (cdr (assoc "number" cal)))
         (total (cdr (assoc "total" cal)))
         file
-        (mother mime::article/preview-buffer)
+        (mother mime-view-buffer)
          )
     (or (file-exists-p root-dir)
        (make-directory root-dir)
@@ -318,7 +318,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
          (set-window-buffer pwin
                             (save-excursion
                               (set-buffer full-buf)
-                              mime::article/preview-buffer))
+                              mime-view-buffer))
          (select-window pwin)
          )
       (re-search-forward "^$")
@@ -390,7 +390,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
                                ))
                      (pbuf (save-excursion
                              (set-buffer full-buf)
-                             mime::article/preview-buffer)))
+                             mime-view-buffer)))
                  (set-window-buffer pwin pbuf)
                  (select-window pwin)
                  )))))
@@ -407,7 +407,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
     ))
 
 (defun mime-article/dired-function-for-one-frame (dir)
-  (let ((win (or (get-buffer-window mime::article/preview-buffer)
+  (let ((win (or (get-buffer-window mime-view-buffer)
                 (get-largest-window))))
     (select-window win)
     (dired dir)
@@ -452,7 +452,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
 (defun mime-article/decode-caesar (beg end cal)
   (let* ((cnum (mime-article/point-content-number beg))
         (new-name (format "%s-%s" (buffer-name) cnum))
-        (mother mime::article/preview-buffer)
+        (mother mime-view-buffer)
         (charset (cdr (assoc "charset" cal)))
         (encoding (cdr (assq 'encoding cal)))
         (mode major-mode)

diff --git a/mime-tar.el b/mime-tar.el
index 1daf4a3..683f1f3 100644 (file)
--- a/mime-tar.el
+++ b/mime-tar.el
@@ -5,7 +5,7 @@
 ;; Author: Hiroshi Ueno <zodiac@ibm.net>
 ;;     modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Renamed: 1997/2/26 from tm-tar.el
-;; Version: $Id: mime-tar.el,v 0.4 1997-03-15 20:33:06 morioka Exp $
+;; Version: $Id: mime-tar.el,v 0.5 1997-03-18 14:47:23 morioka Exp $
 ;; Keywords: tar, tar+gzip, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -307,7 +307,7 @@
              (setq mime-button-mother-dispatcher 'mime-tar-mouse-button-2)
              ))
        (mime-tar-set-properties)
-       (mime-tar-mode mime::article/preview-buffer)
+       (mime-tar-mode mime-view-buffer)
        (kill-buffer mime-tar-view-buffer)
        (kill-buffer mime-tar-list-buffer)
        (delete-file mime-tar-file-name)

diff --git a/mime-view.el b/mime-view.el
index 651354d..57f070c 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;     Renamed: 1994/8/31 from tm-body.el
 ;;     Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.71 $
+;; Version: $Revision: 0.72 $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -40,7 +40,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.71 1997-03-18 14:32:53 morioka Exp $")
+  "$Id: mime-view.el,v 0.72 1997-03-18 14:40:11 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -359,8 +359,9 @@ message/rfc822, content-infos of other entities are included in
 `children', so content-info become a tree.")
 (make-variable-buffer-local 'mime::article/content-info)
 
-(defvar mime::article/preview-buffer nil)
-(make-variable-buffer-local 'mime::article/preview-buffer)
+(defvar mime-view-buffer nil
+  "MIME View buffer corresponding with the buffer.")
+(make-variable-buffer-local 'mime-view-buffer)
 
 
 ;;; @@@ in view buffer
@@ -456,7 +457,7 @@ The compressed face will be piped to this command.")
   (or mime-view-redisplay
       (setq mime::article/content-info (mime-parse-message ctl encoding))
       )
-  (setq mime::article/preview-buffer (mime-view-make-preview-buffer obuf))
+  (setq mime-view-buffer (mime-view-make-preview-buffer obuf))
   )
 
 (defun mime-view-make-preview-buffer (&optional obuf)