[elpa] externals/rt-liberation 5f63428 61/72: * rt-liberation.el: Look for the next ticket.

[Stefan Monnier]

branch: externals/rt-liberation
commit 5f6342892f7e9c5dceb36c3e3869e0debadc847b
Author: Yoni Rabkin <yrk@gnu.org>
Commit: Yoni Rabkin <yrk@gnu.org>

    * rt-liberation.el: Look for the next ticket.
    
    Don't hang around in the loop unless there is a next ticket, identified
    by an "id:" field.
    
    This bug was found by Martin Jesper Low Madsen <martin@martinjlowm.dk>.
---
 rt-liberation.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rt-liberation.el b/rt-liberation.el
index 90b7929..2dbc0f8 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -396,7 +396,7 @@ AFTER  date after predicate."
   "Parser function for ticket list."
   (let (ticketbase-list ticketbase (continue t))
     (while (save-excursion
-            (re-search-forward "[A-Za-z]" (point-max) t)) ; really?
+            (re-search-forward "^id:" (point-max) t))
       (while (and continue
                  (re-search-forward
                   "^\\(\\([\.{} #[:alpha:]]+\\): \\(.*\\)\\)$\\|^--$"