branch: externals/gnorb
commit 2aab7c374a3d701e728cf8473d23c2ab5c83e193
Author: Eric Abrahamsen <[email protected]>
Commit: Stefan Monnier <[email protected]>
[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'.
---
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."
(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)
