Mercurial > emacs
changeset 91117:57ad20761f87
(utf-7-imap-post-read-conversion)
(utf-7-imap-pre-write-conversion): New functions.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 19 Nov 2007 06:28:45 +0000 |
| parents | ec7b5eef2638 |
| children | 38234868c87a |
| files | lisp/international/utf-7.el |
| diffstat | 1 files changed, 6 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/utf-7.el Mon Nov 19 06:27:49 2007 +0000 +++ b/lisp/international/utf-7.el Mon Nov 19 06:28:45 2007 +0000 @@ -36,14 +36,6 @@ ;;; Code: -;; (define-coding-system 'utf-7-imap -;; "UTF-7 encoding of Unicode, IMAP version (RFC 2060)" -;; :coding-type 'utf-8 -;; :mnemonic ?u -;; :charset-list '(unicode) -;; :pre-write-conversion 'utf-7-imap-pre-write-conversion -;; :post-read-conversion 'utf-7-imap-post-read-conversion) - (defun utf-7-decode (len imap) "Decode LEN bytes of UTF-7 at point. IMAP non-nil means use the IMAP version." @@ -76,8 +68,9 @@ (defun utf-7-post-read-conversion (len) (utf-7-decode len nil)) -;; (defun utf-7-imap-post-read-conversion (len) -;; (utf-7-decode len t)) +;;;###autoload +(defun utf-7-imap-post-read-conversion (len) + (utf-7-decode len t)) (defun utf-7-encode (from to imap) "Encode bytes between FROM and TO to UTF-7. @@ -125,8 +118,9 @@ (defun utf-7-pre-write-conversion (from to) (utf-7-encode from to nil)) -;; (defun utf-7-imap-pre-write-conversion (from to) -;; (utf-7-encode from to t)) +;;;###autoload +(defun utf-7-imap-pre-write-conversion (from to) + (utf-7-encode from to t)) (provide 'utf-7)