branch: elpa/vm
commit faf8bb3f5bcd2f42c092455e998d888609e0abfd
Merge: d35ab3889e 98be272a1c
Author: Mark Diekhans <ma...@ucsc.edu>
Commit: Mark Diekhans <ma...@ucsc.edu>
Merge branch 'main' into 'main'
fix #491 QP-encoded bug, possible working around bug in
quoted-printable-en/decode-region
Closes #491
See merge request emacs-vm/vm!31
---
lisp/vm-mime.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/vm-mime.el b/lisp/vm-mime.el
index 9204693303..1eae230c74 100644
--- a/lisp/vm-mime.el
+++ b/lisp/vm-mime.el
@@ -696,7 +696,7 @@ out includes base-64, quoted-printable, uuencode and CRLF
conversion."
need-conversion nil
encoding (buffer-substring (match-beginning 4) (match-end 4))
start (match-beginning 5)
- end (vm-marker (match-end 5)))
+ end (copy-marker (match-end 5) t))
;; don't change anything if we can't display the
;; character set properly.
(if (and (not (vm-mime-charset-internally-displayable-p charset))
@@ -6448,7 +6448,7 @@ If none is specified, quoted-printable is used."
start end charset coding)
(while (re-search-forward vm-mime-encode-headers-words-regexp (point-max)
t)
(setq start (match-beginning 1)
- end (vm-marker (match-end 0))
+ end (copy-marker (match-end 0) t)
charset (or (vm-determine-proper-charset start end)
vm-mime-8bit-composition-charset)
coding (vm-mime-charset-to-coding charset))
