Mercurial > emacs
changeset 32210:88dc0e5a0061
(article-de-quoted-unreadable)
(article-de-base64-unreadable): Fold search case
rather than downcasing string. Apply mm-charset-to-coding-system
to arg of quoted-printable-decode-region.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 06 Oct 2000 13:33:37 +0000 |
| parents | cbbde5b20af5 |
| children | 5b42e5f7e809 |
| files | lisp/gnus/gnus-art.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el Fri Oct 06 13:31:27 2000 +0000 +++ b/lisp/gnus/gnus-art.el Fri Oct 06 13:33:37 2000 +0000 @@ -1529,9 +1529,11 @@ (unless charset (setq charset gnus-newsgroup-charset)) (when (or force - (and type (string-match "quoted-printable" (downcase type)))) + (and type (let ((case-fold-search t)) + (string-match "quoted-printable" type)))) (article-goto-body) - (quoted-printable-decode-region (point) (point-max) charset))))) + (quoted-printable-decode-region + (point) (point-max) (mm-charset-to-coding-system charset)))))) (defun article-de-base64-unreadable (&optional force) "Translate a base64 article. @@ -1554,13 +1556,14 @@ (unless charset (setq charset gnus-newsgroup-charset)) (when (or force - (and type (string-match "base64" (downcase type)))) + (and type (let ((case-fold-search t)) + (string-match "base64" type)))) (article-goto-body) (save-restriction (narrow-to-region (point) (point-max)) (base64-decode-region (point-min) (point-max)) - (if (mm-coding-system-p charset) - (mm-decode-coding-region (point-min) (point-max) charset))))))) + (mm-decode-coding-region + (point-min) (point-max) (mm-charset-to-coding-system charset))))))) (eval-when-compile (require 'rfc1843))