Rename `mime-view-buffer' -> `mime-preview-buffer'.

diff --git a/mime-bbdb.el b/mime-bbdb.el
index 6ee0feb..002942a 100644 (file)
--- a/mime-bbdb.el
+++ b/mime-bbdb.el
@@ -155,9 +155,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-view-buffer
-             (get-buffer mime-view-buffer))
-        (set-buffer mime-view-buffer))
+    (if (and mime-preview-buffer
+             (get-buffer mime-preview-buffer))
+        (set-buffer mime-preview-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 b5d301c..3fe6f0d 100644 (file)
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -49,11 +49,11 @@
 
 (defun mime-method-for-application/pgp (beg end cal)
   (let* ((cnum (mime-article/point-content-number beg))
-        (p-win (or (get-buffer-window mime-view-buffer)
+        (p-win (or (get-buffer-window mime-preview-buffer)
                    (get-largest-window)))
         (new-name (format "%s-%s" (buffer-name) cnum))
         (the-buf (current-buffer))
-        (mother mime-view-buffer)
+        (mother mime-preview-buffer)
         (mode major-mode)
         text-decoder)
     (set-buffer (get-buffer-create new-name))
@@ -99,7 +99,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-view-buffer)
+    (set-window-buffer p-win mime-preview-buffer)
     ))
 
 (set-atype 'mime-acting-condition

diff --git a/mime-play.el b/mime-play.el
index c9faecb..92344b9 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -196,7 +196,7 @@ window.")
                 (setq win (get-buffer-window bbdb-buffer-name))
                 )
            (set-window-buffer win mime-echo-buffer-name)
-         (select-window (get-buffer-window mime-view-buffer))
+         (select-window (get-buffer-window mime-preview-buffer))
          (setq win (split-window-vertically
                     (- (window-height)
                        (if (functionp mime-echo-window-height)
@@ -304,7 +304,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
 (defun mime-method-to-display-message/rfc822 (beg end cal)
   (let* ((cnum (mime-article/point-content-number beg))
         (new-name (format "%s-%s" (buffer-name) cnum))
-        (mother mime-view-buffer)
+        (mother mime-preview-buffer)
         (text-decoder
          (cdr (or (assq major-mode mime-text-decoder-alist)
                   (assq t mime-text-decoder-alist))))
@@ -349,7 +349,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
         (number (cdr (assoc "number" cal)))
         (total (cdr (assoc "total" cal)))
         file
-        (mother mime-view-buffer)
+        (mother mime-preview-buffer)
          )
     (or (file-exists-p root-dir)
        (make-directory root-dir)
@@ -375,7 +375,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
          (set-window-buffer pwin
                             (save-excursion
                               (set-buffer full-buf)
-                              mime-view-buffer))
+                              mime-preview-buffer))
          (select-window pwin)
          )
       (re-search-forward "^$")
@@ -449,7 +449,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
                                ))
                      (pbuf (save-excursion
                              (set-buffer full-buf)
-                             mime-view-buffer)))
+                             mime-preview-buffer)))
                  (set-window-buffer pwin pbuf)
                  (select-window pwin)
                  )))))
@@ -466,7 +466,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-view-buffer)
+  (let ((win (or (get-buffer-window mime-preview-buffer)
                 (get-largest-window))))
     (select-window win)
     (dired dir)
@@ -494,7 +494,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
   (let* ((cnum (mime-article/point-content-number start))
         (new-name (format "%s-%s" (buffer-name) cnum))
         (the-buf (current-buffer))
-        (mother mime-view-buffer)
+        (mother mime-preview-buffer)
         (charset (cdr (assoc "charset" cal)))
         (encoding (cdr (assq 'encoding cal)))
         (mode major-mode)

diff --git a/mime-view.el b/mime-view.el
index 70a2898..bf363dc 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -319,9 +319,9 @@ message/rfc822, entity-infos of other entities are included in
 `children', so entity-info become a tree.")
 (make-variable-buffer-local 'mime-raw-entity-info)
 
-(defvar mime-view-buffer nil
-  "MIME View buffer corresponding with the (raw) buffer.")
-(make-variable-buffer-local 'mime-view-buffer)
+(defvar mime-preview-buffer nil
+  "MIME preview buffer corresponding with the (raw) buffer.")
+(make-variable-buffer-local 'mime-preview-buffer)
 
 
 ;;; @@@ in view buffer
@@ -438,7 +438,7 @@ The compressed face will be piped to this command.")
     (setq buffer-read-only t)
     (set-buffer the-buf)
     )
-  (setq mime-view-buffer obuf)
+  (setq mime-preview-buffer obuf)
   )
 
 (defun mime-view-display-entity (content cinfo ibuf obuf)