From: Andrew Cohen Date: Thu, 11 Aug 2011 22:36:54 +0000 (+0000) Subject: nnimap.el (nnimap-transform-headers): BODYSTRUCTURE for messages of type MESSAGE... X-Git-Tag: emacs-pretest-24.0.90~104^2~124^2~62^2~11 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb568e63275f2dc92de1eb506a6f12838757b2bd;p=emacs.git nnimap.el (nnimap-transform-headers): BODYSTRUCTURE for messages of type MESSAGE and subtype RFC822 is slightly different from those of type TEXT. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index e13d2d594ca..7f4116d6636 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2011-08-11 Andrew Cohen + + * nnimap.el (nnimap-transform-headers): BODYSTRUCTURE for messages of + type MESSAGE and subtype RFC822 is slightly different from those of + type TEXT. + 2011-08-05 Andrew Cohen * gnus-sum.el (gnus-summary-refer-article): Warp to article. This diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index f41f4af71b4..c940e06fbb6 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -218,7 +218,11 @@ textual parts.") (while (and (consp structure) (not (stringp (car structure)))) (setq structure (car structure))) - (setq lines (nth 7 structure)))) + (setq lines (if (and + (equal (upcase (nth 0 structure)) "MESSAGE") + (equal (upcase (nth 1 structure)) "RFC822")) + (nth 9 structure) + (nth 7 structure))))) (delete-region (line-beginning-position) (line-end-position)) (insert (format "211 %s Article retrieved." article)) (forward-line 1)