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

fetch Content-Description header in order to exclude newlines.

2 files changed, 9 insertions, 1 deletions

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  <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 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")))