mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(utf7-encode, utf7-decode): Use coding system

Browse source 
`utf-7'/`utf-7-imap' from utf-7.el' if available.
This commit is contained in:
Reiner Steib 2007-11-20 21:06:35 +00:00
parent 2ea6167b2d
commit f21470efb6
2 changed files with 20 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lisp/gnus/utf7.el
View file

@ -209,20 +209,26 @@ Characters are in raw byte pairs in narrowed buffer."
(defun utf7-encode (string &optional for-imap)
"Encode UTF-7 STRING. Use IMAP modification if FOR-IMAP is non-nil."
(let ((default-enable-multibyte-characters t))
(with-temp-buffer
(insert string)
(utf7-encode-internal for-imap)
(buffer-string))))
(if (and (coding-system-p 'utf-7) (coding-system-p 'utf-7-imap))
;; Emacs 23 with proper support for IMAP
(encode-coding-string string (if for-imap 'utf-7-imap 'utf-7))
(let ((default-enable-multibyte-characters t))
(with-temp-buffer
(insert string)
(utf7-encode-internal for-imap)
(buffer-string)))))
(defun utf7-decode (string &optional for-imap)
"Decode UTF-7 STRING. Use IMAP modification if FOR-IMAP is non-nil."
(let ((default-enable-multibyte-characters nil))
(with-temp-buffer
(insert string)
(utf7-decode-internal for-imap)
(mm-enable-multibyte)
(buffer-string))))
(if (and (coding-system-p 'utf-7) (coding-system-p 'utf-7-imap))
;; Emacs 23 with proper support for IMAP
(decode-coding-string string (if for-imap 'utf-7-imap 'utf-7))
(let ((default-enable-multibyte-characters nil))
(with-temp-buffer
(insert string)
(utf7-decode-internal for-imap)
(mm-enable-multibyte)
(buffer-string)))))
(provide 'utf7)