(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 (file)
--- 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)
 ;;;