branch: master commit 07214d9e4e77e8c9c5daf415ec8578ff1c55a880 Author: Eric Abrahamsen <e...@ericabrahamsen.net> Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
[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)