procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
fetch Content-Description header in order to exclude newlines.
This commit is contained in:
Katsumi Yamaoka 2009-06-23 22:38:22 +00:00
parent 632c203070
commit aa227ba554
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -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> 2009-06-01 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-mime-delete-part): Specify gnus-decoded as charset * gnus-art.el (gnus-mime-delete-part): Specify gnus-decoded as charset

4
lisp/gnus/mm-decode.el
View file

@ -563,7 +563,9 @@ Postpone undisplaying of viewers for types in
ctl (and ct (mail-header-parse-content-type ct)) ctl (and ct (mail-header-parse-content-type ct))
cte (mail-fetch-field "content-transfer-encoding") cte (mail-fetch-field "content-transfer-encoding")
cd (mail-fetch-field "content-disposition") 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")) id (mail-fetch-field "content-id"))
(unless from (unless from
(setq from (mail-fetch-field "from"))) (setq from (mail-fetch-field "from")))