(autoload 'mime-uri-parse-cid "mime-parse"
"Parse STRING as cid URI.")
-(autoload 'mime-parse-buffer "mmbuffer"
+(autoload 'mime-parse-buffer "mime-parse"
"Parse BUFFER as a MIME message.")
)
(null (mime-entity-parent entity message)))
-;;; @ Entity Buffer
+;;; @ Header buffer
;;;
-(luna-define-generic mime-entity-buffer (entity))
+(luna-define-generic mime-entity-header-buffer (entity))
-(make-obsolete
- 'mime-entity-buffer
- "use mime-entity-header-buffer or mime-entity-body-buffer instead.")
+(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.")
-(luna-define-generic mime-entity-header-buffer (entity))
+
+;;; @ Body buffer
+;;;
(luna-define-generic mime-entity-body-buffer (entity))
-(luna-define-generic mime-entity-point-min (entity))
+(luna-define-generic mime-goto-body-start-point (entity)
+ "Set buffer and point to body-start-position of ENTITY.")
-(luna-define-generic mime-entity-point-max (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-start-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-header-start-point (entity)
- "Set buffer and point to header-start-position of ENTITY.")
-(luna-define-generic mime-goto-body-start-point (entity)
- "Set buffer and point to body-start-position of ENTITY.")
+;;; @ Entity buffer (obsolete)
+;;;
+
+(luna-define-generic mime-entity-buffer (entity))
+(make-obsolete 'mime-entity-buffer
+ "use mime-entity-header-buffer or mime-entity-body-buffer instead.")
+
+(luna-define-generic mime-entity-point-min (entity))
+(make-obsolete 'mime-entity-point-min 'mime-entity-header-start-point)
+
+(luna-define-generic mime-entity-point-max (entity))
+(make-obsolete 'mime-entity-point-max 'mime-entity-body-end-point)
;;; @ Entity Header