From 27331890d745467f718794073f5b1af244dfbc10 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 23 Jun 2009 22:38:12 +0000 Subject: [PATCH] (mm-dissect-buffer): Use message-fetch-field instead of mail-fetch-field to fetch Content-Description header in order to exclude newlines. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/mm-decode.el | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f473f23d9bc..514648aa153 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2009-06-22 Katsumi Yamaoka + + * 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 * gnus-art.el (gnus-mime-delete-part): Specify gnus-decoded as charset diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index ead419e25ec..098f091cba7 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -563,7 +563,9 @@ Postpone undisplaying of viewers for types in 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"))) -- 2.39.2