diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-04-18 02:54:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-04-18 02:54:33 +0000 |
| commit | 444dd0b5b63711793072216328ecc1d62b52696f (patch) | |
| tree | 0df8a67da066833da350bfd260f8cd7dc929f345 | |
| parent | 9086c73099dc628b81ce321411b03a9a9341fee1 (diff) | |
| download | emacs-444dd0b5b63711793072216328ecc1d62b52696f.tar.gz | |
Fix previous change.
| -rw-r--r-- | lisp/mail/mail-utils.el | 10 |
1 files 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) |