[Emacs-diffs] /srv/bzr/emacs/trunk r105430: nnimap.el (nnimap-transform-headers): BODYSTRUCTURE for messages of type MESSAGE and subtype RFC822 is slightly different from those of type TEXT.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 105430
author: Andrew Cohen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2011-08-11 22:36:54 +0000
message:
  nnimap.el (nnimap-transform-headers): BODYSTRUCTURE for messages of type 
MESSAGE and subtype RFC822 is slightly different from those of type TEXT.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-08-05 23:29:17 +0000
+++ b/lisp/gnus/ChangeLog       2011-08-11 22:36:54 +0000
@@ -1,3 +1,9 @@
+2011-08-11  Andrew Cohen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-sum.el (gnus-summary-refer-article): Warp to article. This

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2011-08-02 22:16:33 +0000
+++ b/lisp/gnus/nnimap.el       2011-08-11 22:36:54 +0000
@@ -218,7 +218,11 @@
            (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)