From: morioka <morioka>
Date: Tue, 25 May 1999 10:28:25 +0000 (+0000)
Subject: (mime-entity-body-end-point): New method.
X-Git-Tag: chao-1_13_0~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=da7cfd57039f14102f7ae30939a446f1c17c2320;p=elisp%2Fflim.git

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