projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was manufactured by cvs2svn to create branch 'doodle'.
[elisp/flim.git]
/
mime.el
diff --git
a/mime.el
b/mime.el
index
338aa9c
..
908923f
100644
(file)
--- a/
mime.el
+++ b/
mime.el
@@
-73,22
+73,13
@@
current-buffer, and return it.")
(mime-find-function service
(mime-entity-representation-type-internal entity)))
(mime-find-function service
(mime-entity-representation-type-internal entity)))
-(defsubst mime-entity-send (entity service &rest args)
+(defsubst mime-entity-send (entity message &rest args)
+ "Send MESSAGE to ENTITY with ARGS, and return the result."
(apply (mime-find-function
(apply (mime-find-function
- service (mime-entity-representation-type-internal entity))
+ message (mime-entity-representation-type-internal entity))
entity
args))
entity
args))
-(defsubst mm-arglist-to-arguments (arglist)
- (let (dest)
- (while arglist
- (let ((arg (car arglist)))
- (or (memq arg '(&optional &rest))
- (setq dest (cons arg dest)))
- )
- (setq arglist (cdr arglist)))
- (nreverse dest)))
-
(defmacro mm-define-generic (name args &optional doc)
(if doc
`(defun ,(intern (format "mime-%s" name)) ,args
(defmacro mm-define-generic (name args &optional doc)
(if doc
`(defun ,(intern (format "mime-%s" name)) ,args
@@
-271,8
+262,8
@@
If MESSAGE is specified, it is regarded as root entity."
(setq field (eword-decode-structured-field-body
field-body)))
(t
(setq field (eword-decode-structured-field-body
field-body)))
(t
- (setq field (eword-decode-unstructured-field-body
- field-body))
+ (setq field (ew-decode-field (symbol-name field-name)
+ field-body))
))
(mime-entity-set-parsed-header-internal
entity (put-alist field-name field header))
))
(mime-entity-set-parsed-header-internal
entity (put-alist field-name field header))