projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(Installation): Modify for APEL 9.22; modify location of APEL.
[elisp/flim.git]
/
mime.el
diff --git
a/mime.el
b/mime.el
index
0f06476
..
57d816c
100644
(file)
--- a/
mime.el
+++ b/
mime.el
@@
-60,7
+60,7
@@
current-buffer, and return it.")
(autoload 'mime-uri-parse-cid "mime-parse"
"Parse STRING as cid URI.")
(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.")
)
"Parse BUFFER as a MIME message.")
)
@@
-69,7
+69,8
@@
current-buffer, and return it.")
;;;
(defmacro mime-entity-send (entity message &rest args)
;;;
(defmacro mime-entity-send (entity message &rest args)
- `(luna-send ,entity ',(intern (format "mime-%s" (eval message))) ,@args))
+ (` (luna-send (, entity)
+ '(, (intern (format "mime-%s" (eval message)))) (,@ args))))
(defun mime-open-entity (type location)
"Open an entity and return it.
(defun mime-open-entity (type location)
"Open an entity and return it.
@@
-151,43
+152,49
@@
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-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))
;;; @ 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.")
"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)
(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)
(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)
;;;
(luna-define-generic mime-entity-buffer (entity))
;;; @ Entity buffer (obsolete)
;;;
(luna-define-generic mime-entity-buffer (entity))
-
-(make-obsolete
- 'mime-entity-buffer
+(make-obsolete 'mime-entity-buffer
"use mime-entity-header-buffer or mime-entity-body-buffer instead.")
(luna-define-generic mime-entity-point-min (entity))
"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))
(luna-define-generic mime-entity-point-max (entity))
+(make-obsolete 'mime-entity-point-max 'mime-entity-body-end-point)
;;; @ Entity Header
;;; @ Entity Header