Mercurial > emacs
changeset 103570:21ddc18f8c1b
(mm-dissect-buffer): Use message-fetch-field instead of mail-fetch-field to
fetch Content-Description header in order to exclude newlines.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Tue, 23 Jun 2009 22:38:22 +0000 |
| parents | 94291b33e4a6 |
| children | a4c64847c698 |
| files | lisp/gnus/ChangeLog lisp/gnus/mm-decode.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Jun 23 14:14:13 2009 +0000 +++ b/lisp/gnus/ChangeLog Tue Jun 23 22:38:22 2009 +0000 @@ -1,3 +1,9 @@ +2009-06-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * mm-decode.el (mm-dissect-buffer): Use message-fetch-field instead of + mail-fetch-field to fetch Content-Description header in order to + exclude newlines. + 2009-06-01 Katsumi Yamaoka <yamaoka@jpl.org> * gnus-art.el (gnus-mime-delete-part): Specify gnus-decoded as charset
--- a/lisp/gnus/mm-decode.el Tue Jun 23 14:14:13 2009 +0000 +++ b/lisp/gnus/mm-decode.el Tue Jun 23 22:38:22 2009 +0000 @@ -563,7 +563,9 @@ ctl (and ct (mail-header-parse-content-type ct)) cte (mail-fetch-field "content-transfer-encoding") cd (mail-fetch-field "content-disposition") - description (mail-fetch-field "content-description") + ;; Newlines in description should be stripped so as + ;; not to break the MIME tag into two or more lines. + description (message-fetch-field "content-description") id (mail-fetch-field "content-id")) (unless from (setq from (mail-fetch-field "from")))