2010-09-23 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * nnimap.el (nnimap-transform-headers): Don't bug out on invalid
+ BODYSTRUCTUREs.
+
* gnus-start.el (gnus-get-unread-articles): Allow backends to update
the info.
(gnus-get-unread-articles): Only call updatep on backends that support
(match-string 1)))
(beginning-of-line)
(when (search-forward "BODYSTRUCTURE" (line-end-position) t)
- (let ((structure (ignore-errors (read (current-buffer)))))
+ (let ((structure (ignore-errors
+ (save-restriction
+ (narrow-to-region
+ (point) (line-end-position))
+ (read (current-buffer))))))
(while (and (consp structure)
(not (stringp (car structure))))
(setq structure (car structure)))