Mercurial > emacs
comparison lisp/gnus/rfc2047.el @ 69944:a87e26272828
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)) |