Package: debian-el Version: 26.2-1 Severity: wishlist Tags: patch Hello!
I think that these two new functions are quite useful, especially if you search for a bug in a package via web and then you want to reply to a specific one via email. They are based on (debian-bug-web-this-bug). Please consider for inclusion, otherwise I can keep them in my ~/.emacs ;-) TIA. Thx, bye, Gismo / Luca -- System Information: Debian Release: testing/unstable APT prefers unstable APT policy: (990, 'unstable'), (500, 'testing'), (500, 'stable'), (1, 'experimental') Architecture: i386 (i686) Shell: /bin/sh linked to /bin/bash Kernel: Linux 2.6.13 Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8) Versions of packages debian-el depends on: ii binutils 2.16.1cvs20050902-1 The GNU assembler, linker and bina ii emacs-snapshot-nox [ 1:20051027-1 The GNU Emacs editor (without X su pi emacs21 [emacsen] 21.4a-3 The GNU Emacs editor ii reportbug 3.17 reports bugs in the Debian distrib Versions of packages debian-el recommends: pn dlocate <none> (no description available) ii groff-base 1.18.1.1-10 GNU troff text-formatting system ( ii wget 1.10.2-1 retrieves files from the web -- no debconf information
--- debian-bug.el.26.2-1 2005-10-31 02:47:24.000000000 +0100
+++ debian-bug.el 2005-11-03 14:02:15.000000000 +0100
@@ -1594,6 +1594,30 @@
(error "`wget' failed"))))))
;;;###autoload
+(defun debian-bug-get-this-bug-as-file ()
+ "Read bug report number under point as a regular file."
+ (interactive)
+ (if (not (looking-at "[0-9]"))
+ (error "Not a number under point/mouse"))
+ (save-excursion
+ (skip-chars-backward "0123456789")
+ (if (looking-at "[0-9]+")
+ (let ((bug-number (match-string 0)))
+ (debian-bug-get-bug-as-file bug-number)))))
+
+;;;###autoload
+(defun debian-bug-get-this-bug-as-email ()
+ "Read bug report number under point via Email interface."
+ (interactive)
+ (if (not (looking-at "[0-9]"))
+ (error "Not a number under point/mouse"))
+ (save-excursion
+ (skip-chars-backward "0123456789")
+ (if (looking-at "[0-9]+")
+ (let ((bug-number (match-string 0)))
+ (debian-bug-get-bug-as-email bug-number)))))
+
+;;;###autoload
(defun debian-bug-get-bug-as-file (&optional bug-number)
"Read bug report #BUG-NUMBER as a regular file."
(interactive (list (completing-read "Bug number to fetch: "
pgp3kdXLUfO4G.pgp
Description: PGP signature
