From 8f2757d4d4a24b6724c587d9301ad4a7db73591c Mon Sep 17 00:00:00 2001
From: psg <>
Date: Mon, 19 Sep 2005 00:42:19 +0000
Subject: debian-el: debian-bug-build-bug-menu was broken from BTS HTML format
 changes (Closes: #329034).

---
 debian-bug.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/debian-bug.el b/debian-bug.el
index c88ebee..e3b227f 100644
--- a/debian-bug.el
+++ b/debian-bug.el
@@ -1714,7 +1714,7 @@ Only decodes if `rfc2047-decode-string' is available."
 	(goto-char (point-min))
         (while
             (re-search-forward
-             "\\(<H2><a name.*</a>\\(.+\\)</H2>\\)\\|\\(<li><a href=\"\\(bugreport.cgi\\?bug=\\([0-9]+\\)\\)\">\\(#[0-9]+: \\(.+\\)\\)</a>\\)"
+             "\\(<H2.*</a>\\(.+\\)</H2>\\)\\|\\(<li><a href=\"\\(bugreport.cgi\\?bug=\\([0-9]+\\)\\)\">\\(#[0-9]+: \\(.+\\)\\)</a>\\)"
              nil t)
           (let ((type (match-string 2))
               ;;(URL (match-string 4))
@@ -1730,8 +1730,9 @@ Only decodes if `rfc2047-decode-string' is available."
              (t
               (setq bug-alist (cons (list bugnumber description) bug-alist))
               (when bugs-are-open-flag
-                (when (and (re-search-forward "Reported by: <a href=[^>]+>"
-                                              nil t)
+                (when (and (re-search-forward
+                            "Reported by: <a class=\"submitter\" href=\"pkgreport.cgi\\?submitter=[^;]+;arch=source\">"
+                            nil t)
                            (or (looking-at "&quot;\\(.*\\)&quot; &lt;")
                                (looking-at "\\(.*\\) &lt;")))
                   (setq shortdescription
-- 
cgit v1.2.3