Mercurial > emacs
changeset 95395:a374273bf2a5
(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 | 119c6508d4f8 |
| children | 7223da1c87c2 |
| files | lisp/ChangeLog lisp/international/utf-7.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu May 29 20:46:35 2008 +0000 +++ b/lisp/ChangeLog Thu May 29 21:57:32 2008 +0000 @@ -1,3 +1,8 @@ +2008-05-29 Espen Wiborg <espen.wiborg@telio.no> (tiny change) + + * international/utf-7.el (utf-7-encode): Use the right escape char + depending on imap/nonimap encoding. + 2008-05-29 Stefan Monnier <monnier@iro.umontreal.ca> * minibuffer.el (completion-pcm-all-completions): Add the base-size.
--- 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)