[Top][All Lists]

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

[elpa] externals/gnorb 2aab7c3 433/449: [gnorb] Use substitute-command-k

From: Stefan Monnier
Subject: [elpa] externals/gnorb 2aab7c3 433/449: [gnorb] Use substitute-command-keys
Date: Fri, 27 Nov 2020 23:16:27 -0500 (EST)

branch: externals/gnorb
commit 2aab7c374a3d701e728cf8473d23c2ab5c83e193
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    [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
 gnorb-gnus.el | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/gnorb-gnus.el b/gnorb-gnus.el
index 9c6e354..ff69220 100644
--- a/gnorb-gnus.el
+++ b/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]