/[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.2.1 by fx, Thu May 8 17:55:30 2003 UTC revision 1.1.2.2 by handa, Sun Jun 22 23:27:26 2003 UTC
# Line 78  IMAP non-nil means use the IMAP version. Line 78  IMAP non-nil means use the IMAP version.
78                    (if imap                    (if imap
79                        (subst-char-in-region p (point) ?, ?/))                        (subst-char-in-region p (point) ?, ?/))
80                    (base64-decode-region p (point)))                    (base64-decode-region p (point)))
81                  (decode-coding-region p (point) 'utf-16-be)                  (decode-coding-region p (point) 'utf-16be)
82                  (save-excursion                  (save-excursion
83                    (goto-char p)                    (goto-char p)
84                    (delete-backward-char 1)))))))                    (delete-backward-char 1)))))))
# Line 120  ESC and SKIP-CHARS are adjusted for the Line 120  ESC and SKIP-CHARS are adjusted for the
120              (save-restriction              (save-restriction
121                ;; encode-coding-region doesn't preserve point                ;; encode-coding-region doesn't preserve point
122                (narrow-to-region p (point))                (narrow-to-region p (point))
123                (encode-coding-region p (point-max) 'utf-16-be)                (encode-coding-region p (point-max) 'utf-16be)
124                (base64-encode-region p (point-max))                (base64-encode-region p (point-max))
125                (if imap                (if imap
126                    (subst-char-in-region p (point-max) ?/ ?,))                    (subst-char-in-region p (point-max) ?/ ?,))

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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