Remove report-emacs-bug-query-existing-bugs (use debbugs from GNU ELPA instead)

* lisp/mail/emacsbug.el (report-emacs-bug-tracker-url)
(report-emacs-bug-bug-alist, report-emacs-bug-choice-widget)
(report-emacs-bug-create-existing-bugs-buffer)
(report-emacs-bug-parse-query-results)
(report-emacs-bug-query-existing-bugs): Remove.

Fixes: debbugs:7449

2 files changed, 6 insertions, 89 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2773ea1690d..c5c4369ef17 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2012-11-10  Glenn Morris  <rgm@gnu.org>
 
+        * mail/emacsbug.el (report-emacs-bug-tracker-url)
+        (report-emacs-bug-bug-alist, report-emacs-bug-choice-widget)
+        (report-emacs-bug-create-existing-bugs-buffer)
+        (report-emacs-bug-parse-query-results)
+        (report-emacs-bug-query-existing-bugs): Remove.  (Bug#7449)
+
         * term.el (term-default-fg-color, term-default-bg-color):
         Make obsolete, rather than just saying "deprecated" in the doc.
 
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index a7a167d01bd..1d9d098e71c 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -60,10 +60,6 @@
 
 ;; User options end here.
 
-(defvar report-emacs-bug-tracker-url "http://debbugs.gnu.org/cgi/"
-  "Base URL of the GNU bugtracker.
-Used for querying duplicates and linking to existing bugs.")
-
 (defvar report-emacs-bug-orig-text nil
   "The automatically-created initial text of the bug report.")
 
@@ -444,91 +440,6 @@ and send the mail again%s."
         (delete-region pos (field-end (1+ pos)))))))
 
 
-;; Querying the bug database
-
-(defvar report-emacs-bug-bug-alist nil)
-(make-variable-buffer-local 'report-emacs-bug-bug-alist)
-(defvar report-emacs-bug-choice-widget nil)
-(make-variable-buffer-local 'report-emacs-bug-choice-widget)
-
-(defun report-emacs-bug-create-existing-bugs-buffer (bugs keywords)
-  (switch-to-buffer (get-buffer-create "*Existing Emacs Bugs*"))
-  (setq buffer-read-only t)
-  (let ((inhibit-read-only t))
-    (erase-buffer)
-    (setq report-emacs-bug-bug-alist bugs)
-    (widget-insert (propertize (concat "Already known bugs ("
-                                       keywords "):\n\n")
-                               'face 'bold))
-    (if bugs
-        (setq report-emacs-bug-choice-widget
-              (apply 'widget-create 'radio-button-choice
-                     :value (caar bugs)
-                     (let (items)
-                       (dolist (bug bugs)
-                         (push (list
-                                'url-link
-                                :format (concat "Bug#" (number-to-string (nth 2 bug))
-                                                ": " (cadr bug) "\n    %[%v%]\n")
-                                ;; FIXME: Why is only the link of the
-                                ;; active item clickable?
-                                (car bug))
-                               items))
-                       (nreverse items))))
-      (widget-insert "No bugs matching your keywords found.\n"))
-    (widget-insert "\n")
-    (widget-create 'push-button
-                   :notify (lambda (&rest ignore)
-                             ;; TODO: Do something!
-                             (message "Reporting new bug!"))
-                   "Report new bug")
-    (when bugs
-      (widget-insert " ")
-      (widget-create 'push-button
-                     :notify (lambda (&rest ignore)
-                               (let ((val (widget-value report-emacs-bug-choice-widget)))
-                                 ;; TODO: Do something!
-                                 (message "Appending to bug %s!"
-                                          (nth 2 (assoc val report-emacs-bug-bug-alist)))))
-                     "Append to chosen bug"))
-    (widget-insert " ")
-    (widget-create 'push-button
-                   :notify (lambda (&rest ignore)
-                             (kill-buffer))
-                   "Quit reporting bug")
-    (widget-insert "\n"))
-  (use-local-map widget-keymap)
-  (widget-setup)
-  (goto-char (point-min)))
-
-(defun report-emacs-bug-parse-query-results (status keywords)
-  (goto-char (point-min))
-  (let (buglist)
-    (while (re-search-forward "<a href=\"bugreport\\.cgi\\?bug=\\([[:digit:]]+\\)\">\\([^<]+\\)</a>" nil t)
-      (let ((number (match-string 1))
-            (subject (match-string 2)))
-        (when (not (string-match "^#" subject))
-          (push (list
-                 ;; first the bug URL
-                 (concat report-emacs-bug-tracker-url
-                         "bugreport.cgi?bug=" number)
-                 ;; then the subject and number
-                 subject (string-to-number number))
-                buglist))))
-    (report-emacs-bug-create-existing-bugs-buffer (nreverse buglist) keywords)))
-
-(defun report-emacs-bug-query-existing-bugs (keywords)
-  "Query for KEYWORDS at `report-emacs-bug-tracker-url', and return the result.
-The result is an alist with items of the form (URL SUBJECT NO)."
-  (interactive "sBug keywords (comma separated): ")
-  (url-retrieve (concat report-emacs-bug-tracker-url
-                        "pkgreport.cgi?include=subject%3A"
-                        (replace-regexp-in-string "[[:space:]]+" "+" keywords)
-                        ";package=emacs")
-                'report-emacs-bug-parse-query-results (list keywords)))
-(make-obsolete 'report-emacs-bug-query-existing-bugs
-               "use the `debbugs' package from GNU ELPA instead." "24.3")
-
 (provide 'emacsbug)
 
 ;;; emacsbug.el ends here