From fb568e63275f2dc92de1eb506a6f12838757b2bd Mon Sep 17 00:00:00 2001 From: Andrew Cohen Date: Thu, 11 Aug 2011 22:36:54 +0000 Subject: [PATCH] nnimap.el (nnimap-transform-headers): BODYSTRUCTURE for messages of type MESSAGE and subtype RFC822 is slightly different from those of type TEXT. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/nnimap.el | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) 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) -- 2.39.2