Mercurial > emacs
comparison lisp/international/utf-7.el @ 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 | bfec2b1b2136 |
children | c3309dba6542 |
comparison
equal
deleted
inserted
replaced
95394:119c6508d4f8 | 95395:a374273bf2a5 |
---|---|
90 (insert from) | 90 (insert from) |
91 (insert-buffer-substring old-buf from to)) | 91 (insert-buffer-substring old-buf from to)) |
92 (goto-char (point-min)) | 92 (goto-char (point-min)) |
93 (while (not (eobp)) | 93 (while (not (eobp)) |
94 (skip-chars-forward skip-chars) | 94 (skip-chars-forward skip-chars) |
95 (if (eq ?+ (char-after)) | 95 (if (eq esc (char-after)) |
96 (progn (forward-char) | 96 (progn (forward-char) |
97 (insert ?-)) | 97 (insert ?-)) |
98 (unless (eobp) | 98 (unless (eobp) |
99 (insert esc) | 99 (insert esc) |
100 (let ((p (point))) | 100 (let ((p (point))) |