From f4af2745d8a2fc1d34f08bee2867ff4cdd9c074f Mon Sep 17 00:00:00 2001
From: psg <>
Date: Wed, 3 Sep 2003 02:32:39 +0000
Subject: Bug fix: debian-changelog mode to support inserting bug title in
 changlog entry, such as this entry right here. Thanks to Junichi Uekawa
 (Closes: #207852).  Updated dpkg-dev-el's debian-changelog-mode.el and
 debbugs-el's debian-bug.el.

---
 debian-bug.el | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

(limited to 'debian-bug.el')

diff --git a/debian-bug.el b/debian-bug.el
index deb3a3c..e41c804 100644
--- a/debian-bug.el
+++ b/debian-bug.el
@@ -198,6 +198,9 @@
 ;;    template.
 ;; V1.42 31May2003 Peter S Galbraith <psg@debian.org>
 ;;    Add `d-i', `ipv6' and `lfs' tags.
+;; V1.43 01Sep2003 Peter S Galbraith <psg@debian.org>
+;;    debian-bug-build-bug-menu: Create closing changlog entries in
+;;    debian-bug-open-alist cdr's.
 ;; ----------------------------------------------------------------------------
 
 ;;; Todo (Peter's list):
@@ -1573,12 +1576,13 @@ If SUBMENU is t, then check for current sexp submenu only."
 	(goto-char (point-min))
         (while
             (re-search-forward
-             "\\(<H2>\\(.+\\)</H2>\\)\\|\\(<li><a href=\"\\(bugreport.cgi\\?bug=\\([0-9]+\\)\\)\">#\\(.+\\)</a>\\)"
+             "\\(<H2>\\(.+\\)</H2>\\)\\|\\(<li><a href=\"\\(bugreport.cgi\\?bug=\\([0-9]+\\)\\)\">\\(#[0-9]+: \\(.+\\)\\)</a>\\)"
              nil t)
           (let ((type (match-string 2))
               ;;(URL (match-string 4))
                 (bugnumber (match-string 5))
-                (description (match-string 6)))
+                (description (match-string 6))
+                (shortdescription (match-string 7)))
             (cond
              (type
               (setq bugs-are-open-flag (not (string-match "resolved" type)))
@@ -1587,9 +1591,18 @@ If SUBMENU is t, then check for current sexp submenu only."
                 (insert "\"-\"\n\"" type "\"\n")))
              (t
               (setq bug-alist (cons (list bugnumber description) bug-alist))
-              (if bugs-are-open-flag
-                  (setq bug-open-alist
-                        (cons (list bugnumber description) bug-open-alist)))
+              (when bugs-are-open-flag
+                (when (and (re-search-forward "Reported by: <a href=[^>]+>"
+                                              nil t)
+                           (or (looking-at "&quot;\\(.*\\)&quot; &lt;")
+                               (looking-at "\\(.*\\) &lt;")))
+                  (setq shortdescription
+                        (concat "Bug fix: \"" shortdescription 
+                                "\", thanks to " (match-string 1)
+                                " (Closes: #" bugnumber ").")))
+                (setq bug-open-alist
+                      (cons
+                       (list bugnumber shortdescription) bug-open-alist)))
               (save-excursion
                 (set-buffer debian-bug-tmp-buffer)
                 (insert
-- 
cgit v1.2.3