branch: elpa/vm commit cd57406c174bb0bb3ac42e45a5a449fa0dc763bd Merge: 33337f6626 937851945d Author: Göran Uddeborg <goe...@uddeborg.se> Commit: Göran Uddeborg <goe...@uddeborg.se>
Merge branch '489-forwarding-encoding' into 'main' Encode to bytes before transfer encoding in encode-layout. Closes #489 See merge request emacs-vm/vm!48 --- lisp/vm-mime.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/vm-mime.el b/lisp/vm-mime.el index 343c3b03f8..a8066d4b46 100644 --- a/lisp/vm-mime.el +++ b/lisp/vm-mime.el @@ -6250,6 +6250,17 @@ 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)) + ;; Convert from sequence of characters to sequence of bytes + ;; before encoding the region. + (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)