Mercurial > emacs

comparison lisp/gnus/utf7.el @ 59996:aac0a33f5772

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
author Kim F. Storm <storm@cua.dk>
date Wed, 09 Feb 2005 15:50:47 +0000
parents 55fd4f77387a
children 18a818a2ee7c 3ebd9bdb4fe5
comparison
equal deleted inserted replaced
59995:8f4938738427 59996:aac0a33f5772
57 ;; => "a+ACsAow-" 57 ;; => "a+ACsAow-"
58 ;; 58 ;;
59 ;; $ echo "a+£"|iconv -f iso-8859-1 -t utf-7 59 ;; $ echo "a+£"|iconv -f iso-8859-1 -t utf-7
60 ;; a+-+AKM 60 ;; a+-+AKM
61 ;; 61 ;;
62 ;; -- fx 62 ;; -- fx
63 63
64 64
65 ;;; Code: 65 ;;; Code:
66 66
67 (require 'base64) 67 (require 'base64)
76 "Character ranges which do not need escaping in the IMAP variant of UTF-7.") 76 "Character ranges which do not need escaping in the IMAP variant of UTF-7.")
77 77
78 (defconst utf7-utf-16-coding-system 78 (defconst utf7-utf-16-coding-system
79 (cond ((mm-coding-system-p 'utf-16-be-no-signature) ; Mule-UCS 79 (cond ((mm-coding-system-p 'utf-16-be-no-signature) ; Mule-UCS
80 'utf-16-be-no-signature) 80 'utf-16-be-no-signature)
81 ((and (mm-coding-system-p 'utf-16-be) ; Emacs 21.4 (?), Emacs 22 81 ((and (mm-coding-system-p 'utf-16-be) ; Emacs 22.1
82 ;; Avoid versions with BOM. 82 ;; Avoid versions with BOM.
83 (= 2 (length (encode-coding-string "a" 'utf-16-be)))) 83 (= 2 (length (encode-coding-string "a" 'utf-16-be))))
84 'utf-16-be) 84 'utf-16-be)
85 ((mm-coding-system-p 'utf-16-be-nosig) ; ? 85 ((mm-coding-system-p 'utf-16-be-nosig) ; ?
86 'utf-16-be-nosig)) 86 'utf-16-be-nosig))