From 444dd0b5b63711793072216328ecc1d62b52696f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 18 Apr 1997 02:54:33 +0000 Subject: [PATCH] Fix previous change. --- lisp/mail/mail-utils.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 95450544248..286c86ea4dd 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -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) -- 2.39.2