From 95ed637823942efce972395a133ed77ab16e2a09 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 10 Feb 2000 10:57:39 +0000 Subject: [PATCH] Delete comment of `mime-raw-find-entity-from-point'. --- mime-view.el | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/mime-view.el b/mime-view.el index 005dfde..4e05729 100644 --- a/mime-view.el +++ b/mime-view.el @@ -90,27 +90,6 @@ major-mode or t. t means default. REPRESENTATION-TYPE must be `binary' or `cooked'.") -;; (defun mime-raw-find-entity-from-point (point &optional message-info) -;; "Return entity from POINT in mime-raw-buffer. -;; If optional argument MESSAGE-INFO is not specified, -;; `mime-message-structure' is used." -;; (or message-info -;; (setq message-info mime-message-structure)) -;; (if (and (<= (mime-entity-point-min message-info) point) -;; (<= point (mime-entity-point-max message-info))) -;; (let ((children (mime-entity-children message-info))) -;; (catch 'tag -;; (while children -;; (let ((ret -;; (mime-raw-find-entity-from-point point (car children)))) -;; (if ret -;; (throw 'tag ret) -;; )) -;; (setq children (cdr children))) -;; message-info)))) -;; (make-obsolete 'mime-raw-find-entity-from-point "don't use it.") - - ;;; @ in preview-buffer (presentation space) ;;; -- 1.7.10.4