(setq start end))
(setq start (point))
(goto-char end))
- (while (re-search-forward "\n* [0-9]+ FETCH " start t)
+ (while (re-search-forward "^\\* [0-9]+ FETCH " start t)
(setq elems (read (current-buffer)))
(push (cons (cadr (memq 'UID elems))
(cadr (memq 'FLAGS elems)))