Abolish variable

'mime-view-childrens-header-showing-Content-Type-list.
Abolish function 'mime-view-header-visible-p.
(mime-preview-follow-current-entity): Don't use
'mime-view-header-visible-p.

diff --git a/mime-view.el b/mime-view.el
index 8a529d1..fad02fd 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -264,17 +264,17 @@ Please redefine this function if you want to change default setting."
 ;;; @@@ predicate function
 ;;;
 
-(defvar mime-view-childrens-header-showing-Content-Type-list
-  '("message/rfc822" "message/news"))
-
-(defun mime-view-header-visible-p (entity message-info)
-  "Return non-nil if header of ENTITY is visible."
-  (let ((entity-node-id (mime-entity-node-id entity)))
-    (member (mime-entity-type/subtype
-            (mime-raw-find-entity-from-node-id
-             (cdr entity-node-id) message-info))
-           mime-view-childrens-header-showing-Content-Type-list)
-    ))
+;; (defvar mime-view-childrens-header-showing-Content-Type-list
+;;   '("message/rfc822" "message/news"))
+
+;; (defun mime-view-header-visible-p (entity message-info)
+;;   "Return non-nil if header of ENTITY is visible."
+;;   (let ((entity-node-id (mime-entity-node-id entity)))
+;;     (member (mime-entity-type/subtype
+;;              (mime-raw-find-entity-from-node-id
+;;               (cdr entity-node-id) message-info))
+;;             mime-view-childrens-header-showing-Content-Type-list)
+;;     ))
 
 ;;; @@@ entity header filter
 ;;;
@@ -1138,14 +1138,14 @@ 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")
+          ;; (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)
            (while (progn