[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Eric Abrahamsen
Subject: [elpa] master 07214d9: [gnorb] Use substitute-command-keys
Date: Mon, 21 Oct 2019 20:41:19 -0400 (EDT)

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
 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."
             (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)))
-            (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-pretty-outline (car tracked-headings) t)))
            (t nil)))))
 (defun gnorb-gnus-insert-format-letter-maybe (header)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]