* debbugs-gnu.el (debbugs-emacs): Propertize with 'help-echo.

(debbugs-mode-map): Define key "q".

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index 1da357eb21ae857fccfa9d62cd66c65f82078759..adab15046455104c2404adb7135c7ae0ee1e7771 100644 (file)
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-02  Michael Albinus  <michael.albinus@gmx.de>
+
+       * debbugs-gnu.el (debbugs-emacs): Propertize with 'help-echo.
+       (debbugs-mode-map): Define key "q".
+
 2011-07-02  Michael Albinus  <michael.albinus@gmx.de>
 
        * debbugs.el (debbugs-new, debbugs-handled, debbugs-stale)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 7fa05940449952d18753758110bf1f44f2b79467..dcad5cefc928834e717ab81187e527ad53139110 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -89,7 +89,9 @@
                (not (equal (cdr (assq 'pending status)) "done")))
        (let ((address (mail-header-parse-address
                        (decode-coding-string (cdr (assq 'originator status))
-                                             'utf-8))))
+                                             'utf-8)))
+             (subject (decode-coding-string (cdr (assq 'subject status))
+                                            'utf-8)))
          (setq address
                ;; Prefer the name over the address.
                (or (cdr address)
@@ -104,15 +106,15 @@
                                 (cdr (assq 'keywords status)))
                           ",")))
                     (unless (equal (cdr (assq 'pending status)) "pending")
-                      (setq words (concat words "," (cdr (assq 'pending status)))))
+                      (setq words
+                            (concat words "," (cdr (assq 'pending status)))))
                     (if (> (length words) 20)
-                        (substring words 0 20)
+                        (propertize (substring words 0 20) 'help-echo words)
                       words))
                   (if (> (length address) 23)
-                      (substring address 0 23)
+                      (propertize (substring address 0 23) 'help-echo address)
                     address)
-                  (decode-coding-string (cdr (assq 'subject status))
-                                        'utf-8)))
+                  (propertize subject 'help-echo subject)))
          (forward-line -1)
          (put-text-property
           (+ (point) 5) (+ (point) 26)
@@ -135,7 +137,8 @@
 (defvar debbugs-mode-map nil)
 (unless debbugs-mode-map
   (setq debbugs-mode-map (make-sparse-keymap))
-  (define-key debbugs-mode-map "\r" 'debbugs-select-report))
+  (define-key debbugs-mode-map "\r" 'debbugs-select-report)
+  (define-key debbugs-mode-map "q"  'kill-buffer))
 
 (defun debbugs-mode ()
   "Major mode for listing bug reports.