/[emacs]/emacs/lisp/international/utf-7.el
ViewVC logotype

Diff of /emacs/lisp/international/utf-7.el

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

revision 1.1 by fx, Thu May 8 17:51:55 2003 UTC revision 1.2 by handa, Sat Jun 21 02:25:00 2003 UTC
# Line 40  Line 40 
40   'utf-7 0 ?U   'utf-7 0 ?U
41   "UTF-7 encoding of Unicode (RFC 2152)"   "UTF-7 encoding of Unicode (RFC 2152)"
42   nil   nil
43   `((safe-chars . ,(coding-system-get 'utf-16-be 'safe-chars))   `((safe-chars . ,(coding-system-get 'utf-16be 'safe-chars))
44     (mime-charset . utf-7)     (mime-charset . utf-7)
45     (pre-write-conversion . utf-7-pre-write-conversion)     (pre-write-conversion . utf-7-pre-write-conversion)
46     (post-read-conversion . utf-7-post-read-conversion)))     (post-read-conversion . utf-7-post-read-conversion)))
# Line 49  Line 49 
49  ;;  'utf-7-imap 0 ?u  ;;  'utf-7-imap 0 ?u
50  ;;  "UTF-7 encoding of Unicode, IMAP version (RFC 2060)"  ;;  "UTF-7 encoding of Unicode, IMAP version (RFC 2060)"
51  ;;  nil  ;;  nil
52  ;;  `((safe-chars . ,(coding-system-get 'utf-16-be 'safe-chars))  ;;  `((safe-chars . ,(coding-system-get 'utf-16be 'safe-chars))
53  ;;    (pre-write-conversion . utf-7-imap-pre-write-conversion)  ;;    (pre-write-conversion . utf-7-imap-pre-write-conversion)
54  ;;    (post-read-conversion . utf-7-imap-post-read-conversion)))  ;;    (post-read-conversion . utf-7-imap-post-read-conversion)))
55    
# Line 75  IMAP non-nil means use the IMAP version. Line 75  IMAP non-nil means use the IMAP version.
75                    (if imap                    (if imap
76                        (subst-char-in-region p (point) ?, ?/))                        (subst-char-in-region p (point) ?, ?/))
77                    (base64-decode-region p (point)))                    (base64-decode-region p (point)))
78                  (decode-coding-region p (point) 'utf-16-be)                  (decode-coding-region p (point) 'utf-16be)
79                  (save-excursion                  (save-excursion
80                    (goto-char p)                    (goto-char p)
81                    (delete-backward-char 1)))))))                    (delete-backward-char 1)))))))
# Line 116  ESC and SKIP-CHARS are adjusted for the Line 116  ESC and SKIP-CHARS are adjusted for the
116              (save-restriction              (save-restriction
117                ;; encode-coding-region doesn't preserve point                ;; encode-coding-region doesn't preserve point
118                (narrow-to-region p (point))                (narrow-to-region p (point))
119                (encode-coding-region p (point-max) 'utf-16-be)                (encode-coding-region p (point-max) 'utf-16be)
120                (base64-encode-region p (point-max))                (base64-encode-region p (point-max))
121                (if imap                (if imap
122                    (subst-char-in-region p (point-max) ?/ ?,))                    (subst-char-in-region p (point-max) ?/ ?,))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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