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

Fix previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1997-04-18 02:54:33 +00:00
parent 9086c73099
commit 444dd0b5b6
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -60,7 +60,7 @@ from START (inclusive) to END (exclusive)."
(defun mail-quote-printable (string &optional wrapper)
"Convert a string to the \"quoted printable\" Q encoding.
If the optional argument WRAPPER is non-nil,
we add the wrapper characters =3D?ISO-8859-1?Q?....?=3D."
we add the wrapper characters =?ISO-8859-1?Q?....?=."
(let ((i 0) (result ""))
(save-match-data
(while (string-match "[?=\"\200-\377]" string i)
@ -70,9 +70,9 @@ we add the wrapper characters =3D?ISO-8859-1?Q?....?=3D."
(aref string (match-beginning 0))))))
(setq i (match-end 0)))
(if wrapper
(concat "=3D?ISO-8859-1?Q?"
(concat "=?ISO-8859-1?Q?"
result (substring string i)
"?=3D")
"?=")
(concat result (substring string i))))))
(defun mail-unquote-printable-hexdigit (char)
@ -83,10 +83,10 @@ we add the wrapper characters =3D?ISO-8859-1?Q?....?=3D."
(defun mail-unquote-printable (string &optional wrapper)
"Undo the \"quoted printable\" encoding.
If the optional argument WRAPPER is non-nil,
we expect to find and remove the wrapper characters =3D?ISO-8859-1?Q?....?=3D."
we expect to find and remove the wrapper characters =?ISO-8859-1?Q?....?=."
(save-match-data
(and wrapper
(string-match "\\`=3D\\?ISO-8859-1\\?Q\\?\\([^?]*\\)\\?" string)
(string-match "\\`=\\?ISO-8859-1\\?Q\\?\\([^?]*\\)\\?" string)
(setq string (match-string 1 string)))
(let ((i 0) (result ""))
(while (string-match "=\\(..\\)" string i)