update.

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

diff --git a/mime-view.el b/mime-view.el
index 16c4a1d..1b6b183 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -44,6 +44,24 @@
            " (" (cadr mime-module-version) ")"))
 
 
+;;; @ variables
+;;;
+
+(defgroup mime-view nil
+  "MIME view mode"
+  :group 'mime)
+
+(defcustom mime-view-find-every-acting-situation t
+  "*Find every available acting-situation if non-nil."
+  :group 'mime-view
+  :type 'boolean)
+
+(defcustom mime-acting-situation-examples-file "~/.mime-example"
+  "*File name of example about acting-situation demonstrated by user."
+  :group 'mime-view
+  :type 'file)
+
+
 ;;; @ buffer local variables
 ;;;
 
@@ -491,9 +509,13 @@ if it is not nil.")
 
 (ctree-set-calist-strictly
  'mime-acting-condition
- '((type . text)(subtype . t)(mode . "play")
+ '((type . t)(subtype . t)(mode . "play")
    (method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
    ))
+(ctree-set-calist-strictly
+ 'mime-acting-condition
+ '((type . t)(subtype . t)(mode . "extract")
+   (method . mime-method-to-save)))
 
 (ctree-set-calist-strictly
  'mime-acting-condition
@@ -568,11 +590,6 @@ if it is not nil.")
 
 (ctree-set-calist-strictly
  'mime-acting-condition
- '((mode . "extract")
-   (method . mime-method-to-save)))
-
-(ctree-set-calist-strictly
- 'mime-acting-condition
  '((type . message)(subtype . external-body)
    ("access-type" . "anon-ftp")
    (method . mime-method-to-display-message/external-ftp)
@@ -1112,8 +1129,7 @@ of the mother-buffer."
 It calls following-method selected from variable
 `mime-view-following-method-alist'."
   (interactive)
-  (let ((message-info (get-text-property (point-min) 'mime-view-entity))
-       entity)
+  (let (entity)
     (while (null (setq entity
                       (get-text-property (point) 'mime-view-entity)))
       (backward-char)
@@ -1176,16 +1192,7 @@ It calls following-method selected from variable
          (erase-buffer)
          (insert-buffer-substring the-buf p-beg p-end)
          (goto-char (point-min))
-          ;; (if (mime-view-header-visible-p entity message-info)
-          ;;     (delete-region (goto-char (point-min))
-          ;;                    (if (re-search-forward "^$" nil t)
-          ;;                        (match-end 0)
-          ;;                      (point-min)))
-          ;;   )
-         ;;(goto-char (point-min))
-         ;;(insert "\n")
-         (goto-char (point-min))
-         (let ((entity-node-id (mime-entity-node-id entity)) ci str)
+          (let ((entity-node-id (mime-entity-node-id entity)) ci str)
            (while (progn
                     (setq
                      str