From fc979cf71fdbe794f20cc7ea9152a57b79f91a76 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Aug 1999 03:28:08 +0000 Subject: [PATCH] (mime-entity-header-start-point): New generic function. (mime-entity-header-end-point): New generic function. --- mime.el | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) 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) ;;; -- 1.7.10.4