(utf-7-imap-post-read-conversion)

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

1 files changed, 6 insertions, 12 deletions

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)