diff options
| author | Andrew Cohen <cohen@andy.bu.edu> | 2011-08-11 22:36:54 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-08-11 22:36:54 +0000 |
| commit | fb568e63275f2dc92de1eb506a6f12838757b2bd (patch) | |
| tree | fe24d8913de8ed3ac4fbe1d394d7aa4ba75109a7 /lisp/gnus/nnimap.el | |
| parent | 3e26a4a28c6ad382f3bea07a1a6e0175ed8acdc6 (diff) | |
| download | emacs-fb568e63275f2dc92de1eb506a6f12838757b2bd.tar.gz | |
nnimap.el (nnimap-transform-headers): BODYSTRUCTURE for messages of type MESSAGE and subtype RFC822 is slightly different from those of type TEXT.
Diffstat (limited to 'lisp/gnus/nnimap.el')
| -rw-r--r-- | lisp/gnus/nnimap.el | 6 |
1 files changed, 5 insertions, 1 deletions
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) |