(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.

diff --git a/mmbuffer.el b/mmbuffer.el
index d5868dc..5a203f0 100644 (file)
--- 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
 ;;;