Not all articles have bodies. Protect against this.

Reported by Michael Welsh Duggan.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8aeff44..f798f08 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-10-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

+       * nnimap.el (nnimap-transform-split-mail): Not all articles have
+       bodies.  Protect against this.  Reported by Michael Welsh Duggan.
+

        * shr.el (shr-current-column): New function.
        (shr-find-fill-point): New function.
 
        * shr.el (shr-current-column): New function.
        (shr-find-fill-point): New function.
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 73b7fbd..68bd630 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1627,8 +1627,10 @@ textual parts.")
        (forward-char (1+ bytes))
        (setq bytes (nnimap-get-length))
        (delete-region (line-beginning-position) (line-end-position))
        (forward-char (1+ bytes))
        (setq bytes (nnimap-get-length))
        (delete-region (line-beginning-position) (line-end-position))

-       (forward-char (1+ bytes))
-       (delete-region (line-beginning-position) (line-end-position))))))
+       ;; There's a body; skip past that.
+       (when bytes
+         (forward-char (1+ bytes))
+         (delete-region (line-beginning-position) (line-end-position)))))))

 
 (defun nnimap-dummy-active-number (group &optional server)
   1)
 
 (defun nnimap-dummy-active-number (group &optional server)
   1)