[elpa] master 07214d9: [gnorb] Use substitute-command-keys

[Eric Abrahamsen]

branch: master
commit 07214d9e4e77e8c9c5daf415ec8578ff1c55a880
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    [gnorb] Use substitute-command-keys
    
    * packages/gnorb/gnorb-gnus.el (gnorb-gnus-hint-relevant-message):
    Instead of fudging it myself with `where-is-internal' and
    `key-description'.
---
 packages/gnorb/gnorb-gnus.el | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/packages/gnorb/gnorb-gnus.el b/packages/gnorb/gnorb-gnus.el
index 9c6e354..ff69220 100644
--- a/packages/gnorb/gnorb-gnus.el
+++ b/packages/gnorb/gnorb-gnus.el
@@ -967,19 +967,15 @@ option `gnorb-gnus-hint-relevant-article' is non-nil."
           (assoc-heading
            (gnus-registry-get-id-key
             (gnus-fetch-original-field "message-id") 'gnorb-ids))
-          (tracked-headings (gnorb-find-tracked-headings headers))
-          (key
-           (where-is-internal 'gnorb-gnus-incoming-do-todo
-                              nil t)))
+          (tracked-headings (gnorb-find-tracked-headings headers)))
       (cond (assoc-heading
             (message "Message is associated with %s"
                      (gnorb-pretty-outline (car assoc-heading) t)))
            (tracked-headings
-            (message "Possible relevant todo %s, trigger with %s"
-                     (gnorb-pretty-outline (car tracked-headings) t)
-                     (if key
-                         (key-description key)
-                       "M-x gnorb-gnus-incoming-do-todo")))
+            (message
+             (substitute-command-keys
+              "Possible relevant todo %s, trigger with 
\\[gnorb-gnus-incomding-do-todo]")
+             (gnorb-pretty-outline (car tracked-headings) t)))
            (t nil)))))
 
 (defun gnorb-gnus-insert-format-letter-maybe (header)