Commit 7d06be9c authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

(utf-7-imap-pre-write-conversion): New functions.
parent ff410014
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment