Mercurial > emacs

comparison lisp/gnus/utf7.el @ 90317:34c8b755296d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-23 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 113-118) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 38-39) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 24 Feb 2006 08:08:56 +0000
parents c5406394f567 12d289b6e5de
children 6588c6259dfb
comparison
equal deleted inserted replaced
90316:458ed0c8c4c3 90317:34c8b755296d
78 "Character ranges which do not need escaping in the IMAP variant of UTF-7.") 78 "Character ranges which do not need escaping in the IMAP variant of UTF-7.")
79 79
80 (defconst utf7-utf-16-coding-system 80 (defconst utf7-utf-16-coding-system
81 (cond ((mm-coding-system-p 'utf-16-be-no-signature) ; Mule-UCS 81 (cond ((mm-coding-system-p 'utf-16-be-no-signature) ; Mule-UCS
82 'utf-16-be-no-signature) 82 'utf-16-be-no-signature)
83 ((and (mm-coding-system-p 'utf-16-be) ; Emacs 23.1 83 ((and (mm-coding-system-p 'utf-16-be) ; Emacs 21.3, Emacs 22
84 ;; Avoid versions with BOM. 84 ;; Avoid versions with BOM.
85 (= 2 (length (encode-coding-string "a" 'utf-16-be)))) 85 (= 2 (length (encode-coding-string "a" 'utf-16-be))))
86 'utf-16-be) 86 'utf-16-be)
87 ((mm-coding-system-p 'utf-16-be-nosig) ; ? 87 ((mm-coding-system-p 'utf-16-be-nosig) ; ?
88 'utf-16-be-nosig)) 88 'utf-16-be-nosig))