Commit 367aa646 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-quote-printable-region): New function.

parent 841a91fe
...@@ -77,6 +77,26 @@ we add the wrapper characters =?ISO-8859-1?Q?....?=." ...@@ -77,6 +77,26 @@ we add the wrapper characters =?ISO-8859-1?Q?....?=."
"?=") "?=")
(concat result (substring string i)))))) (concat result (substring string i))))))
(defun mail-quote-printable-region (beg end &optional wrapper)
"Convert the region to the \"quoted printable\" Q encoding.
If the optional argument WRAPPER is non-nil,
we add the wrapper characters =?ISO-8859-1?Q?....?=."
(interactive "r\nP")
(goto-char beg)
(narrow-to-region beg end)
(while (re-search-forward "[?=\"\200-\377]" nil t)
(replace-match (upcase (format "=%02x" (preceding-char)))
t t))
(when wrapper
(goto-char beg)
(insert "=?ISO-8859-1?Q?")
(goto-char end)
(insert "?="))))))
(defun mail-unquote-printable-hexdigit (char) (defun mail-unquote-printable-hexdigit (char)
(setq char (upcase char)) (setq char (upcase char))
(if (>= char ?A) (if (>= char ?A)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment