From: morioka <morioka>
Date: Wed, 22 Apr 1998 12:36:46 +0000 (+0000)
Subject: (mime-preview-follow-current-entity): Abolish unused local variable
X-Git-Tag: semi-1_3_1~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b61fa2bbc686ece7ec2bbae12c67b8984df384ec;p=elisp%2Fsemi.git

(mime-preview-follow-current-entity): Abolish unused local variable
'message-info.
---

diff --git a/mime-view.el b/mime-view.el
index 16c4a1d..0bd8f84 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1112,8 +1112,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 +1175,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