changeset 85926:025d69230a9b

(utf-7-imap): New coding system. (utf-7-imap-post-read-conversion): New function. (utf-7-imap-pre-write-conversion): New function.
author Kenichi Handa <handa@m17n.org>
date Mon, 05 Nov 2007 06:44:32 +0000
parents a1a283c3bfd3
children a049b211cf27
files lisp/international/utf-7.el
diffstat 1 files changed, 12 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/utf-7.el	Mon Nov 05 04:28:32 2007 +0000
+++ b/lisp/international/utf-7.el	Mon Nov 05 06:44:32 2007 +0000
@@ -46,13 +46,14 @@
    (pre-write-conversion . utf-7-pre-write-conversion)
    (post-read-conversion . utf-7-post-read-conversion)))
 
-;; (make-coding-system
-;;  'utf-7-imap 0 ?u
-;;  "UTF-7 encoding of Unicode, IMAP version (RFC 2060)"
-;;  nil
-;;  `((safe-chars . ,(coding-system-get 'utf-16be 'safe-chars))
-;;    (pre-write-conversion . utf-7-imap-pre-write-conversion)
-;;    (post-read-conversion . utf-7-imap-post-read-conversion)))
+;;;###autoload(autoload-coding-system 'utf-7-imap '(require 'utf-7))
+(make-coding-system
+ 'utf-7-imap 0 ?u
+ "UTF-7 encoding of Unicode, IMAP version (RFC 2060)"
+ nil
+ `((safe-chars . ,(coding-system-get 'utf-16be 'safe-chars))
+   (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.
@@ -85,8 +86,8 @@
 (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))
+(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.
@@ -133,8 +134,8 @@
 (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))
+(defun utf-7-imap-pre-write-conversion (from to)
+  (utf-7-encode from to t))
 
 (provide 'utf-7)