diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2017-01-12 23:32:41 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2017-01-12 23:32:41 +0000 |
| commit | 55b52658470322a701000e88728d096a03b7c8ca (patch) | |
| tree | ece903912da12ea8a4e66ebdb58baf173e9c3b63 /lisp/gnus/gnus-art.el | |
| parent | 70d6f2d14f87ab8fe164e1d461b7a55ed1ca3c62 (diff) | |
| download | emacs-55b52658470322a701000e88728d096a03b7c8ca.tar.gz emacs-55b52658470322a701000e88728d096a03b7c8ca.tar.bz2 emacs-55b52658470322a701000e88728d096a03b7c8ca.zip | |
Remove garbage from Content-Transfer-Encoding value (bug#25420)
* lisp/mail/ietf-drums.el (ietf-drums-strip-cte): New function.
(ietf-drums-remove-garbage): New function.
(ietf-drums-remove-whitespace): Remove CR as well.
* lisp/mail/mail-parse.el (mail-header-strip-cte):
Alias to ietf-drums-strip-cte.
* lisp/gnus/gnus-art.el (article-decode-charset):
* lisp/gnus/gnus-sum.el (gnus-summary-enter-digest-group):
* lisp/gnus/mm-decode.el (mm-dissect-buffer):
* lisp/gnus/nndoc.el (nndoc-decode-content-transfer-encoding)
(nndoc-rfc822-forward-generate-article):
* lisp/mh-e/mh-mime.el (mh-decode-message-body):
Replace mail-header-strip with mail-header-strip-cte.
Diffstat (limited to 'lisp/gnus/gnus-art.el')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 920ef1e2494..e1af859516c 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -2508,7 +2508,7 @@ If PROMPT (the prefix), prompt for a coding system to use." (mail-content-type-get ctl 'charset))) format (and ctl (mail-content-type-get ctl 'format))) (when cte - (setq cte (mail-header-strip cte))) + (setq cte (mail-header-strip-cte cte))) (if (and ctl (not (string-match "/" (car ctl)))) (setq ctl nil)) (goto-char (point-max))) @@ -2523,8 +2523,7 @@ If PROMPT (the prefix), prompt for a coding system to use." (equal (car ctl) "text/plain")) (not format)) ;; article with format will decode later. (mm-decode-body - charset (and cte (intern (downcase - (gnus-strip-whitespace cte)))) + charset (and cte (intern (downcase cte))) (car ctl))))))) (defun article-decode-encoded-words () |