Mercurial > emacs

diff lisp/international/utf-7.el @ 95395:a374273bf2a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(utf-7-encode): Use the right escape char depending on imap/nonimap encoding.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 29 May 2008 21:57:32 +0000
parents bfec2b1b2136
children c3309dba6542
line wrap: on
line diff
--- a/lisp/international/utf-7.el	Thu May 29 20:46:35 2008 +0000
+++ b/lisp/international/utf-7.el	Thu May 29 21:57:32 2008 +0000
@@ -92,7 +92,7 @@
     (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)