From: morioka <morioka>
Date: Mon, 9 Aug 1999 03:28:08 +0000 (+0000)
Subject: (mime-entity-header-start-point): New generic function.
X-Git-Tag: flim-1_13_2~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fc979cf71fdbe794f20cc7ea9152a57b79f91a76;p=elisp%2Fflim.git

(mime-entity-header-start-point): New generic function.
(mime-entity-header-end-point): New generic function.
---

diff --git a/mime.el b/mime.el
index 6c6e8ba..63af880 100644
--- a/mime.el
+++ b/mime.el
@@ -151,30 +151,36 @@ If MESSAGE is specified, it is regarded as root entity."
 (luna-define-generic mime-goto-header-start-point (entity)
   "Set buffer and point to header-start-position of ENTITY.")
 
+(luna-define-generic mime-entity-header-start-point (entity)
+  "Return header-start-position of ENTITY.")
+
+(luna-define-generic mime-entity-header-end-point (entity)
+  "Return header-end-position of ENTITY.")
+
 
 ;;; @ Body buffer
 ;;;
 
 (luna-define-generic mime-entity-body-buffer (entity))
 
-(luna-define-generic mime-entity-body-start-point (entity)
+(luna-define-generic mime-goto-body-start-point (entity)
   "Set buffer and point to body-start-position of ENTITY.")
 
+(luna-define-generic mime-goto-body-end-point (entity)
+  "Set buffer and point to body-end-position of ENTITY.")
+
+(luna-define-generic mime-entity-body-start-point (entity)
+  "Return body-start-position of ENTITY.")
+
 (define-obsolete-function-alias
   'mime-entity-body-start 'mime-entity-body-start-point)
 
 (luna-define-generic mime-entity-body-end-point (entity)
-  "Set buffer and point to body-end-position of ENTITY.")
+  "Return body-end-position of ENTITY.")
 
 (define-obsolete-function-alias
   'mime-entity-body-end 'mime-entity-body-end-point)
 
-(luna-define-generic mime-goto-body-start-point (entity)
-  "Set buffer and point to body-start-position of ENTITY.")
-
-(luna-define-generic mime-goto-body-end-point (entity)
-  "Set buffer and point to body-end-position of ENTITY.")
-
 
 ;;; @ Entity buffer (obsolete)
 ;;;