From: morioka <morioka>
Date: Sun, 19 Apr 1998 06:54:31 +0000 (+0000)
Subject: Abolish variable
X-Git-Tag: semi-1_2_4~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0b48775f2ef2b9bd390345453990e22cf21fbefb;p=elisp%2Fsemi.git

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
--- 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