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)

Reply via email to