Mercurial > emacs
comparison lisp/gnus/mm-bodies.el @ 92153:37d6263f580b
Revert removal of `mm-hack-charsets' in Gnus
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1076
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 24 Feb 2008 15:23:45 +0000 |
| parents | 606f2d163a64 |
| children | f154591879d5 |
comparison
equal
deleted
inserted
replaced
| 92152:2c181d4110e5 | 92153:37d6263f580b |
|---|---|
| 102 (progn | 102 (progn |
| 103 (mm-encode-coding-region (point-min) (point-max) | 103 (mm-encode-coding-region (point-min) (point-max) |
| 104 (mm-charset-to-coding-system charset)) | 104 (mm-charset-to-coding-system charset)) |
| 105 charset) | 105 charset) |
| 106 (goto-char (point-min)) | 106 (goto-char (point-min)) |
| 107 (let ((charsets (mm-find-mime-charset-region (point-min) (point-max)))) | 107 (let ((charsets (mm-find-mime-charset-region (point-min) (point-max) |
| 108 mm-hack-charsets))) | |
| 108 (cond | 109 (cond |
| 109 ;; No encoding. | 110 ;; No encoding. |
| 110 ((null charsets) | 111 ((null charsets) |
| 111 nil) | 112 nil) |
| 112 ;; Too many charsets. | 113 ;; Too many charsets. |