Mercurial > emacs

changeset 17506:3c0b3d55c1bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Fri, 18 Apr 1997 02:54:33 +0000
parents c2640d101ca9
children fd87760f20cd
files lisp/mail/mail-utils.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mail-utils.el	Fri Apr 18 02:53:46 1997 +0000
+++ b/lisp/mail/mail-utils.el	Fri Apr 18 02:54:33 1997 +0000
@@ -60,7 +60,7 @@
 (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 @@
 				      (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 @@
 (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)