summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorpsg <>2005-09-19 00:42:19 +0000
committerpsg <>2005-09-19 00:42:19 +0000
commit8f2757d4d4a24b6724c587d9301ad4a7db73591c (patch)
tree007e94dae74063eb88e1c38c7e17302ec397f4a5
parent895a7897f2c62cc79c43088e71599dcc7b4f739a (diff)
debian-el: debian-bug-build-bug-menu was broken from BTS HTML format
changes (Closes: #329034).
-rw-r--r--debian-bug.el7
1 files 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