From: Kenichi Handa <handa@m17n.org>
Date: Mon, 19 Nov 2007 06:28:45 +0000 (+0000)
Subject: (utf-7-imap-post-read-conversion)
X-Git-Tag: emacs-pretest-23.0.90~8295^2~248
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d06be9c3cb75977e8638a411c3a33fbab8d0ebe;p=emacs.git

(utf-7-imap-post-read-conversion)
(utf-7-imap-pre-write-conversion): New functions.
---

diff --git a/lisp/international/utf-7.el b/lisp/international/utf-7.el
index dc66c79c686..251c4b01c30 100644
--- a/lisp/international/utf-7.el
+++ b/lisp/international/utf-7.el
@@ -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 @@ IMAP non-nil means use the IMAP version."
 (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 @@ ESC and SKIP-CHARS are adjusted for the normal and IMAP versions."
 (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)