(nnimap-convert-partial-article): Protect against zero-length body parts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 668350a..af97fb7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-01-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnimap.el (nnimap-convert-partial-article): Protect against
+       zero-length body parts.
+
        * mm-decode.el (mm-preferred-alternative-precedence): Discourage
        showing empty parts.
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 51fa532..0c71170 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -582,7 +582,7 @@ textual parts.")
     ;; Collect all the body parts.
     (while (looking-at ".*BODY\\[\\([.0-9]+\\)\\]")
       (setq id (match-string 1)
-           bytes (nnimap-get-length))
+           bytes (or (nnimap-get-length) 0))
       (beginning-of-line)
       (delete-region (point) (progn (forward-line 1) (point)))
       (push (list id (buffer-substring (point) (+ (point) bytes)))