(nnimap-transform-headers): Don't bug out on bodiless articles.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0404a06..c6d07ec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * nnimap.el (nnimap-request-head): New function.
        (nnimap-request-move-article): Try to be slighly faster by not
        requesting the entire message when moving.
+       (nnimap-transform-headers): Don't bug out on bodiless articles.
 
 2010-10-24  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index d7dc1fb..9013206 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -203,7 +203,8 @@ textual parts.")
          (insert (format "Chars: %s\n" size)))
        (when lines
          (insert (format "Lines: %s\n" lines)))
-       (re-search-forward "^\r$")
+       (unless (re-search-forward "^\r$" nil t)
+         (goto-char (point-max)))
        (delete-region (line-beginning-position) (line-end-position))
        (insert ".")
        (forward-line 1)))))