projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(mime-edit-translate-header): Use `mime-encode-header-in-buffer'
[elisp/semi.git]
/
mime-edit.el
diff --git
a/mime-edit.el
b/mime-edit.el
index
d6899a3
..
70b7078
100644
(file)
--- a/
mime-edit.el
+++ b/
mime-edit.el
@@
-1648,9
+1648,8
@@
Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
(defun mime-edit-translate-header ()
"Encode the message header into network representation."
(defun mime-edit-translate-header ()
"Encode the message header into network representation."
- (eword-encode-header 'code-conversion)
- (run-hooks 'mime-edit-translate-header-hook)
- )
+ (mime-encode-header-in-buffer 'code-conversion)
+ (run-hooks 'mime-edit-translate-header-hook))
(defun mime-edit-translate-buffer ()
"Encode the tagged MIME message in current buffer in MIME compliant message."
(defun mime-edit-translate-buffer ()
"Encode the tagged MIME message in current buffer in MIME compliant message."
@@
-1874,7
+1873,7
@@
Content-Transfer-Encoding: 7bit
(insert (format "Content-Transfer-Encoding: %s\n" encoding))
)
(insert "\n")
(insert (format "Content-Transfer-Encoding: %s\n" encoding))
)
(insert "\n")
- (eword-encode-header)
+ (mime-encode-header-in-buffer)
(or (let ((pgg-default-user-id
(or mime-edit-pgp-user-id
(if from
(or (let ((pgg-default-user-id
(or mime-edit-pgp-user-id
(if from
@@
-2122,8
+2121,7
@@
Content-Description: S/MIME Encrypted Message][base64]]\n")
(insert "Content-Type: " contype "\n")
(if encoding
(insert "Content-Transfer-Encoding: " encoding "\n"))
(insert "Content-Type: " contype "\n")
(if encoding
(insert "Content-Transfer-Encoding: " encoding "\n"))
- (eword-encode-header)
- )
+ (mime-encode-header-in-buffer))
(cons (and contype
(downcase contype))
(and encoding
(cons (and contype
(downcase contype))
(and encoding