projects
/
elisp
/
semi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2bdf893
)
Rename `mime-raw-content-info' -> `mime-raw-entity-info'.
author
morioka
<morioka>
Fri, 13 Mar 1998 14:45:14 +0000
(14:45 +0000)
committer
morioka
<morioka>
Fri, 13 Mar 1998 14:45:14 +0000
(14:45 +0000)
mime-pgp.el
patch
|
blob
|
history
mime-view.el
patch
|
blob
|
history
diff --git
a/mime-pgp.el
b/mime-pgp.el
index
ab1e668
..
b5d301c
100644
(file)
--- a/
mime-pgp.el
+++ b/
mime-pgp.el
@@
-120,7
+120,7
@@
"Internal method to check multipart/signed."
(let* ((rcnum (reverse (mime-article/point-content-number beg)))
(oinfo (mime-article/rcnum-to-cinfo (cons '1 rcnum)
"Internal method to check multipart/signed."
(let* ((rcnum (reverse (mime-article/point-content-number beg)))
(oinfo (mime-article/rcnum-to-cinfo (cons '1 rcnum)
- mime-raw-content-info))
+ mime-raw-entity-info))
)
(mime-playback-entity oinfo (cdr (assq 'mode cal)))
))
)
(mime-playback-entity oinfo (cdr (assq 'mode cal)))
))
@@
-184,7
+184,7
@@
It should be ISO 639 2 letter language code such as en, ja, ...")
(1+ knum)))
(raw-buf (current-buffer))
(oinfo (mime-article/rcnum-to-cinfo (cons onum rmcnum)
(1+ knum)))
(raw-buf (current-buffer))
(oinfo (mime-article/rcnum-to-cinfo (cons onum rmcnum)
- mime-raw-content-info))
+ mime-raw-entity-info))
kbuf
(basename (expand-file-name "tm" mime-temp-directory))
(orig-file (make-temp-name basename))
kbuf
(basename (expand-file-name "tm" mime-temp-directory))
(orig-file (make-temp-name basename))
@@
-269,7
+269,7
@@
It should be ISO 639 2 letter language code such as en, ja, ...")
(1- knum)
(1+ knum)))
(oinfo (mime-article/rcnum-to-cinfo (cons onum rmcnum)
(1- knum)
(1+ knum)))
(oinfo (mime-article/rcnum-to-cinfo (cons onum rmcnum)
- mime-raw-content-info))
+ mime-raw-entity-info))
(obeg (mime-entity-info-point-min oinfo))
(oend (mime-entity-info-point-max oinfo))
)
(obeg (mime-entity-info-point-min oinfo))
(oend (mime-entity-info-point-max oinfo))
)
diff --git
a/mime-view.el
b/mime-view.el
index
b9cccc5
..
56f3193
100644
(file)
--- a/
mime-view.el
+++ b/
mime-view.el
@@
-297,7
+297,7
@@
Please redefine this function if you want to change default setting."
;;; @@@ in raw buffer
;;;
;;; @@@ in raw buffer
;;;
-(defvar mime-raw-content-info
+(defvar mime-raw-entity-info
"Information about structure of message.
Please use reference function `mime-entity-info-SLOT' to get value of
SLOT.
"Information about structure of message.
Please use reference function `mime-entity-info-SLOT' to get value of
SLOT.
@@
-317,7
+317,7
@@
children entities included in this entity (list of content-infos)
If an entity includes other entities in its body, such as multipart or
message/rfc822, entity-infos of other entities are included in
`children', so entity-info become a tree.")
If an entity includes other entities in its body, such as multipart or
message/rfc822, entity-infos of other entities are included in
`children', so entity-info become a tree.")
-(make-variable-buffer-local 'mime-raw-content-info)
+(make-variable-buffer-local 'mime-raw-entity-info)
(defvar mime-view-buffer nil
"MIME View buffer corresponding with the (raw) buffer.")
(defvar mime-view-buffer nil
"MIME View buffer corresponding with the (raw) buffer.")
@@
-411,9
+411,9
@@
The compressed face will be piped to this command.")
(set-buffer ibuf)
))
(or mime-view-redisplay
(set-buffer ibuf)
))
(or mime-view-redisplay
- (setq mime-raw-content-info (mime-parse-message ctl encoding))
+ (setq mime-raw-entity-info (mime-parse-message ctl encoding))
)
)
- (let* ((cinfo mime-raw-content-info)
+ (let* ((cinfo mime-raw-entity-info)
(pcl (mime/flatten-content-info cinfo))
(the-buf (current-buffer))
(mode major-mode)
(pcl (mime/flatten-content-info cinfo))
(the-buf (current-buffer))
(mode major-mode)
@@
-579,7
+579,7
@@
The compressed face will be piped to this command.")
(defun mime-article/point-content-number (p &optional cinfo)
(or cinfo
(defun mime-article/point-content-number (p &optional cinfo)
(or cinfo
- (setq cinfo mime-raw-content-info)
+ (setq cinfo mime-raw-entity-info)
)
(let ((b (mime-entity-info-point-min cinfo))
(e (mime-entity-info-point-max cinfo))
)
(let ((b (mime-entity-info-point-min cinfo))
(e (mime-entity-info-point-max cinfo))
@@
-605,7
+605,7
@@
The compressed face will be piped to this command.")
(defun mime-article/cnum-to-cinfo (cn &optional cinfo)
(or cinfo
(defun mime-article/cnum-to-cinfo (cn &optional cinfo)
(or cinfo
- (setq cinfo mime-raw-content-info)
+ (setq cinfo mime-raw-entity-info)
)
(if (eq cn t)
cinfo
)
(if (eq cn t)
cinfo
@@
-620,7
+620,7
@@
The compressed face will be piped to this command.")
(defun mime/flatten-content-info (&optional cinfo)
(or cinfo
(defun mime/flatten-content-info (&optional cinfo)
(or cinfo
- (setq cinfo mime-raw-content-info)
+ (setq cinfo mime-raw-entity-info)
)
(let ((dest (list cinfo))
(rcl (mime-entity-info-children cinfo))
)
(let ((dest (list cinfo))
(rcl (mime-entity-info-children cinfo))