(mm-dissect-buffer): Use message-fetch-field instead of mail-fetch-field to

fetch Content-Description header in order to exclude newlines.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f473f23d9bccf455ad223d1bc85a188d0f535648..514648aa153c48d67a2faea8e50527fcfad43d92 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index ead419e25ec4e7d212ac6eb34e64e19cf4ccddd1..098f091cba74bf0b4dcfb775394d7c7a8328c79c 100644 (file)
--- 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")))