From da7cfd57039f14102f7ae30939a446f1c17c2320 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 25 May 1999 10:28:25 +0000 Subject: [PATCH] (mime-entity-body-end-point): New method. (mime-goto-header-start-point): New method. (mime-goto-body-start-point): New method. (mime-goto-body-end-point): New method. --- mmbuffer.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/mmbuffer.el b/mmbuffer.el index d5868dc..5a203f0 100644 --- a/mmbuffer.el +++ b/mmbuffer.el @@ -359,6 +359,10 @@ (mime-buffer-entity-buffer-internal entity) ) +(luna-define-method mime-entity-body-end-point ((entity mime-buffer-entity)) + (mime-buffer-entity-body-end-internal entity) + ) + (luna-define-method mime-entity-point-min ((entity mime-buffer-entity)) (mime-buffer-entity-header-start-internal entity) ) @@ -367,6 +371,21 @@ (mime-buffer-entity-body-end-internal entity) ) +(luna-define-method mime-goto-header-start-point ((entity mime-buffer-entity)) + (set-buffer (mime-buffer-entity-buffer-internal entity)) + (goto-char (mime-buffer-entity-header-start-internal entity)) + ) + +(luna-define-method mime-goto-body-start-point ((entity mime-buffer-entity)) + (set-buffer (mime-buffer-entity-buffer-internal entity)) + (goto-char (mime-buffer-entity-body-start-internal entity)) + ) + +(luna-define-method mime-goto-body-end-point ((entity mime-buffer-entity)) + (set-buffer (mime-buffer-entity-buffer-internal entity)) + (goto-char (mime-buffer-entity-body-end-internal entity)) + ) + ;;; @ utility ;;; -- 1.7.10.4