From e925563701b1557eee26b94cedb5ff610dc46c51 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 29 May 2008 21:57:32 +0000 Subject: [PATCH] (utf-7-encode): Use the right escape char depending on imap/nonimap encoding. --- lisp/ChangeLog | 5 +++++ lisp/international/utf-7.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fda00d685d4..8339022aac4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-05-29 Espen Wiborg (tiny change) + + * international/utf-7.el (utf-7-encode): Use the right escape char + depending on imap/nonimap encoding. + 2008-05-29 Stefan Monnier * minibuffer.el (completion-pcm-all-completions): Add the base-size. diff --git a/lisp/international/utf-7.el b/lisp/international/utf-7.el index 9bc58b121ec..e6f9d4f4c05 100644 --- a/lisp/international/utf-7.el +++ b/lisp/international/utf-7.el @@ -92,7 +92,7 @@ ESC and SKIP-CHARS are adjusted for the normal and IMAP versions." (goto-char (point-min)) (while (not (eobp)) (skip-chars-forward skip-chars) - (if (eq ?+ (char-after)) + (if (eq esc (char-after)) (progn (forward-char) (insert ?-)) (unless (eobp) -- 2.39.2