Mercurial > emacs

comparison lisp/gnus/rfc2047.el @ 69944:a87e26272828

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-210 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 81-82) - Update from CVS
author Miles Bader <miles@gnu.org>
date Tue, 11 Apr 2006 23:22:06 +0000
parents d037a8cb1b92
children de654a6735da c156f6a9e7b5
comparison
equal deleted inserted replaced
69943:7d69833e0c1a 69944:a87e26272828
849 Each element of WORDS looks like (CHARSET ENCODING ENCODED-TEXT 849 Each element of WORDS looks like (CHARSET ENCODING ENCODED-TEXT
850 ENCODED-WORD)." 850 ENCODED-WORD)."
851 (let (word charset cs encoding text rest) 851 (let (word charset cs encoding text rest)
852 (while words 852 (while words
853 (setq word (pop words)) 853 (setq word (pop words))
854 (if (and (or (setq cs (rfc2047-charset-to-coding-system 854 (if (and (setq cs (rfc2047-charset-to-coding-system
855 (setq charset (car word)))) 855 (setq charset (car word))))
856 (progn
857 (message "Unknown charset: %s" charset)
858 nil))
859 (condition-case code 856 (condition-case code
860 (cond ((char-equal ?B (nth 1 word)) 857 (cond ((char-equal ?B (nth 1 word))
861 (setq text (base64-decode-string 858 (setq text (base64-decode-string
862 (rfc2047-pad-base64 (nth 2 word))))) 859 (rfc2047-pad-base64 (nth 2 word)))))
863 ((char-equal ?Q (nth 1 word)) 860 ((char-equal ?Q (nth 1 word))