/[emacs]/emacs/lisp/gnus/utf7.el
ViewVC logotype

Diff of /emacs/lisp/gnus/utf7.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by miles, Sat Sep 4 13:13:44 2004 UTC revision 1.5 by kfstorm, Wed Feb 9 15:50:37 2005 UTC
# Line 59  Line 59 
59  ;; $ echo "a+£"|iconv -f iso-8859-1 -t utf-7  ;; $ echo "a+£"|iconv -f iso-8859-1 -t utf-7
60  ;; a+-+AKM  ;; a+-+AKM
61  ;;  ;;
62  ;;  -- fx  ;;  -- fx
63    
64    
65  ;;; Code:  ;;; Code:
# Line 78  Line 78 
78  (defconst utf7-utf-16-coding-system  (defconst utf7-utf-16-coding-system
79    (cond ((mm-coding-system-p 'utf-16-be-no-signature) ; Mule-UCS    (cond ((mm-coding-system-p 'utf-16-be-no-signature) ; Mule-UCS
80           'utf-16-be-no-signature)           'utf-16-be-no-signature)
81          ((and (mm-coding-system-p 'utf-16-be) ; Emacs 21.4 (?), Emacs 22          ((and (mm-coding-system-p 'utf-16-be) ; Emacs 22.1
82                ;; Avoid versions with BOM.                ;; Avoid versions with BOM.
83                (= 2 (length (encode-coding-string "a" 'utf-16-be))))                (= 2 (length (encode-coding-string "a" 'utf-16-be))))
84           'utf-16-be)           'utf-16-be)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26