procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 2009-01-10 23:18:08 +00:00
parent 841a91fe0d
commit 367aa646a5
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/mail/mail-utils.el
View file

@ -77,6 +77,26 @@ we add the wrapper characters =?ISO-8859-1?Q?....?=."
"?=")
(concat result (substring string i))))))
;;;###autoload
(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")
(save-match-data
(save-excursion
(goto-char beg)
(save-restriction
(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)
(setq char (upcase char))
(if (>= char ?A)