(nnimap-parse-line): Don't bug out oddly formed replies (bug #7311).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b96531..86eab42 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-11-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-parse-line): Don't bug out oddly formed replies
+       (bug #7311).
+
 2010-11-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * shr.el: No need to declare `declare-function' since shr.el is for

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index ea8a0fc..3710d01 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1555,12 +1555,16 @@ textual parts.")
             (split-string
              (buffer-substring
               (1+ (point))
-              (1- (search-forward "]" (line-end-position) 'move)))))
+              (if (search-forward "]" (line-end-position) 'move)
+                  (1- (point))
+                (point)))))
            ((eql char ?\()
             (split-string
              (buffer-substring
               (1+ (point))
-              (1- (search-forward ")" (line-end-position) 'move)))))
+              (if (search-forward ")" (line-end-position) 'move)
+                  (1- (point))
+                (point)))))
            ((eql char ?\")
             (forward-char 1)
             (buffer-substring