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

[elisp/semi.git] / mime-view.el

diff --git a/mime-view.el b/mime-view.el
index 23bc3dc..bf363dc 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -205,7 +205,7 @@ Each elements are regexp of field-name.")
                     "\n\t")
                 rest)))
            )))
-   (function mime-view-play-current-entity))
+   (function mime-preview-play-current-entity))
   )
 
 (defun mime-view-entity-button-function (rcnum cinfo
@@ -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
@@ -337,11 +337,11 @@ message/partial, it is called `mother-buffer'.")
   "Raw buffer corresponding with the (MIME-View) buffer.")
 (make-variable-buffer-local 'mime-raw-buffer)
 
-(defvar mime-view-original-major-mode nil
-  "Major-mode in mime-raw-buffer.")
-(make-variable-buffer-local 'mime-view-original-major-mode)
+(defvar mime-preview-original-major-mode nil
+  "Major-mode of mime-raw-buffer.")
+(make-variable-buffer-local 'mime-preview-original-major-mode)
 
-(make-variable-buffer-local 'mime::preview/original-window-configuration)
+(make-variable-buffer-local 'mime-preview-original-window-configuration)
 
 
 ;;; @@ quitting method
@@ -426,7 +426,7 @@ The compressed face will be piped to this command.")
       (widen)
       (erase-buffer)
       (setq mime-raw-buffer the-buf)
-      (setq mime-view-original-major-mode mode)
+      (setq mime-preview-original-major-mode mode)
       (setq major-mode 'mime-view-mode)
       (setq mode-name "MIME-View")
       (while pcl
@@ -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)
@@ -513,7 +513,7 @@ The compressed face will be piped to this command.")
   (save-restriction
     (narrow-to-region (point)(point))
     (insert-buffer-substring mime-raw-buffer beg end)
-    (let ((f (cdr (assq mime-view-original-major-mode
+    (let ((f (cdr (assq mime-preview-original-major-mode
                        mime-view-content-header-filter-alist))))
       (if (functionp f)
          (funcall f)
@@ -543,7 +543,7 @@ The compressed face will be piped to this command.")
     (narrow-to-region (point-max)(point-max))
     (insert mime-view-announcement-for-message/partial)
     (mime-add-button (point-min)(point-max)
-                    (function mime-view-play-current-entity))
+                    (function mime-preview-play-current-entity))
     ))
 
 (defun mime-article/get-uu-filename (param &optional encoding)
@@ -665,15 +665,15 @@ The compressed face will be piped to this command.")
 
 (defconst mime-view-menu-title "MIME-View")
 (defconst mime-view-menu-list
-  '((up                 "Move to upper content"      mime-preview-move-to-upper)
-    (previous   "Move to previous content"   mime-preview-move-to-previous)
-    (next       "Move to next content"       mime-preview-move-to-next)
-    (scroll-down "Scroll to previous content" mime-preview-scroll-down-entity)
-    (scroll-up  "Scroll to next content"     mime-preview-scroll-up-entity)
-    (play       "Play Content"               mime-view-play-current-entity)
-    (extract    "Extract Content"            mime-view-extract-current-entity)
-    (print      "Print"                      mime-view-print-current-entity)
-    (x-face     "Show X Face"                mime-view-display-x-face)
+  '((up                 "Move to upper entity"    mime-preview-move-to-upper)
+    (previous   "Move to previous entity" mime-preview-move-to-previous)
+    (next       "Move to next entity"     mime-preview-move-to-next)
+    (scroll-down "Scroll-down"             mime-preview-scroll-down-entity)
+    (scroll-up  "Scroll-up"               mime-preview-scroll-up-entity)
+    (play       "Play current entity"     mime-preview-play-current-entity)
+    (extract    "Extract current entity"  mime-preview-extract-current-entity)
+    (print      "Print current entity"    mime-preview-print-current-entity)
+    (x-face     "Show X Face"             mime-view-display-x-face)
     )
   "Menu for MIME Viewer")
 
@@ -719,23 +719,23 @@ The compressed face will be piped to this command.")
     (define-key mime-view-mode-map
       "\177"     (function mime-preview-scroll-down-entity))
     (define-key mime-view-mode-map
-      "\C-m"     (function mime-view-next-line-content))
+      "\C-m"     (function mime-preview-next-line-entity))
     (define-key mime-view-mode-map
-      "\C-\M-m"  (function mime-view-previous-line-content))
+      "\C-\M-m"  (function mime-preview-previous-line-entity))
     (define-key mime-view-mode-map
-      "v"        (function mime-view-play-current-entity))
+      "v"        (function mime-preview-play-current-entity))
     (define-key mime-view-mode-map
-      "e"        (function mime-view-extract-current-entity))
+      "e"        (function mime-preview-extract-current-entity))
     (define-key mime-view-mode-map
-      "\C-c\C-p" (function mime-view-print-current-entity))
+      "\C-c\C-p" (function mime-preview-print-current-entity))
     (define-key mime-view-mode-map
-      "a"        (function mime-view-follow-current-entity))
+      "a"        (function mime-preview-follow-current-entity))
     (define-key mime-view-mode-map
-      "q"        (function mime-view-quit))
+      "q"        (function mime-preview-quit))
     (define-key mime-view-mode-map
-      "h"        (function mime-view-show-summary))
+      "h"        (function mime-preview-show-summary))
     (define-key mime-view-mode-map
-      "\C-c\C-x" (function mime-view-kill-buffer))
+      "\C-c\C-x" (function mime-preview-kill-buffer))
     ;; (define-key mime-view-mode-map
     ;;   "<"        (function beginning-of-buffer))
     ;; (define-key mime-view-mode-map
@@ -828,7 +828,7 @@ button-2    Move to point under the mouse cursor
        )
     (prog1
        (switch-to-buffer ret)
-      (setq mime::preview/original-window-configuration win-conf)
+      (setq mime-preview-original-window-configuration win-conf)
       (if mother
          (progn
            (setq mime-mother-buffer mother)
@@ -847,24 +847,25 @@ button-2  Move to point under the mouse cursor
 ;;; @@ playing
 ;;;
 
-(autoload 'mime-view-play-current-entity "mime-play" "Play current entity." t)
+(autoload 'mime-preview-play-current-entity "mime-play"
+  "Play current entity." t)
 
-(defun mime-view-extract-current-entity ()
+(defun mime-preview-extract-current-entity ()
   "Extract current entity into file (maybe).
 It decodes current entity to call internal or external method as
 \"extract\" mode.  The method is selected from variable
 `mime-acting-condition'."
   (interactive)
-  (mime-view-play-current-entity "extract")
+  (mime-preview-play-current-entity "extract")
   )
 
-(defun mime-view-print-current-entity ()
+(defun mime-preview-print-current-entity ()
   "Print current entity (maybe).
 It decodes current entity to call internal or external method as
 \"print\" mode.  The method is selected from variable
 `mime-acting-condition'."
   (interactive)
-  (mime-view-play-current-entity "print")
+  (mime-preview-play-current-entity "print")
   )
 
 
@@ -880,9 +881,9 @@ of the mother-buffer."
        (set-buffer mime-mother-buffer)
        (mime-view-get-original-major-mode)
        )
-    mime-view-original-major-mode))
+    mime-preview-original-major-mode))
 
-(defun mime-view-follow-current-entity ()
+(defun mime-preview-follow-current-entity ()
   "Write follow message to current entity.
 It calls following-method selected from variable
 `mime-view-following-method-alist'."
@@ -1030,7 +1031,7 @@ It calls following-method selected from variable
 
 (defun mime-preview-move-to-upper ()
   "Move to upper entity.
-If there is no upper entity, call function `mime-view-quit'."
+If there is no upper entity, call function `mime-preview-quit'."
   (interactive)
   (let (cinfo)
     (while (null (setq cinfo (get-text-property (point) 'mime-view-cinfo)))
@@ -1048,7 +1049,7 @@ If there is no upper entity, call function `mime-view-quit'."
              (throw 'tag t)
            )
          )
-       (mime-view-quit)
+       (mime-preview-quit)
        ))))
 
 (defun mime-preview-move-to-previous ()
@@ -1062,7 +1063,7 @@ variable `mime-view-over-to-previous-method-alist'."
   (let ((point (previous-single-property-change (point) 'mime-view-cinfo)))
     (if point
        (goto-char point)
-      (let ((f (assq mime-view-original-major-mode
+      (let ((f (assq mime-preview-original-major-mode
                     mime-view-over-to-previous-method-alist)))
        (if f
            (funcall (cdr f))
@@ -1077,7 +1078,7 @@ variable `mime-view-over-to-next-method-alist'."
   (let ((point (next-single-property-change (point) 'mime-view-cinfo)))
     (if point
        (goto-char point)
-      (let ((f (assq mime-view-original-major-mode
+      (let ((f (assq mime-preview-original-major-mode
                     mime-view-over-to-next-method-alist)))
        (if f
            (funcall (cdr f))
@@ -1093,7 +1094,7 @@ If reached to (point-max), it calls function registered in variable
       (setq h (1- (window-height)))
       )
   (if (= (point) (point-max))
-      (let ((f (assq mime-view-original-major-mode
+      (let ((f (assq mime-preview-original-major-mode
                      mime-view-over-to-next-method-alist)))
         (if f
             (funcall (cdr f))
@@ -1116,7 +1117,7 @@ If reached to (point-min), it calls function registered in variable
       (setq h (1- (window-height)))
       )
   (if (= (point) (point-min))
-      (let ((f (assq mime-view-original-major-mode
+      (let ((f (assq mime-preview-original-major-mode
                      mime-view-over-to-previous-method-alist)))
         (if f
             (funcall (cdr f))
@@ -1139,12 +1140,12 @@ If reached to (point-min), it calls function registered in variable
           (goto-char point)
         ))))
 
-(defun mime-view-next-line-content ()
+(defun mime-preview-next-line-entity ()
   (interactive)
   (mime-preview-scroll-up-entity 1)
   )
 
-(defun mime-view-previous-line-content ()
+(defun mime-preview-previous-line-entity ()
   (interactive)
   (mime-preview-scroll-down-entity 1)
   )
@@ -1153,29 +1154,29 @@ If reached to (point-min), it calls function registered in variable
 ;;; @@ quitting
 ;;;
 
-(defun mime-view-quit ()
+(defun mime-preview-quit ()
   "Quit from MIME-View buffer.
 It calls function registered in variable
 `mime-view-quitting-method-alist'."
   (interactive)
-  (let ((r (assq mime-view-original-major-mode
+  (let ((r (assq mime-preview-original-major-mode
                 mime-view-quitting-method-alist)))
     (if r
        (funcall (cdr r))
       )))
 
-(defun mime-view-show-summary ()
+(defun mime-preview-show-summary ()
   "Show summary.
 It calls function registered in variable
 `mime-view-show-summary-method'."
   (interactive)
-  (let ((r (assq mime-view-original-major-mode
+  (let ((r (assq mime-preview-original-major-mode
                 mime-view-show-summary-method)))
     (if r
        (funcall (cdr r))
       )))
 
-(defun mime-view-kill-buffer ()
+(defun mime-preview-kill-buffer ()
   (interactive)
   (kill-buffer (current-buffer))
   )