branch: elpa/vm
commit 7eeef9706369dc9c72a250144e570414c7545aea
Author: Göran Uddeborg <goe...@uddeborg.se>
Commit: Göran Uddeborg <goe...@uddeborg.se>
Encode to bytes before transfer encoding in encode-layout.
---
lisp/vm-mime.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/lisp/vm-mime.el b/lisp/vm-mime.el
index 343c3b03f8..4572bbd67f 100644
--- a/lisp/vm-mime.el
+++ b/lisp/vm-mime.el
@@ -6250,6 +6250,15 @@ quoted-printable or binary).
USR, 2011-03-27"
(not (memq vm-mime-8bit-text-transfer-encoding
'(quoted-printable base64))))
(setq vm-mime-8bit-text-transfer-encoding 'quoted-printable))
+ (let ((coding-system
+ (vm-mime-charset-to-coding
+ (vm-mime-get-parameter layout "charset"))))
+ (unless coding-system
+ (error "Can't find a coding system for charset %s" charset))
+ (encode-coding-region
+ (vm-mm-layout-body-start layout)
+ (vm-mm-layout-body-end layout)
+ coding-system))
(setq encoding
(vm-mime-transfer-encode-region (vm-mm-layout-encoding layout)
(vm-mm-layout-body-start layout)
