[elpa] externals/gnorb aedf0f2 169/449: Show status of relevant todo when hinting messages

[Stefan Monnier]

branch: externals/gnorb
commit aedf0f207aba6f9c143621d08b304d71e8067928
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Show status of relevant todo when hinting messages
    
    It can be helpful to know the TODO state keyword of the relevant org
    heading when hinting from a gnus buffer.
    
    * lisp/gnorb-gnus.el (gnorb-gnus-hint-relevant-message): Retrieve
      current TODO state keyword of relevant heading.
---
 lisp/gnorb-gnus.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index c918465..34fe4bd 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -624,7 +624,11 @@ option `gnorb-gnus-hint-relevant-article' is non-nil."
        (setq ref-ids (split-string ref-ids))
        (when (setq rel-headings
                   (gnorb-org-find-visit-candidates ref-ids))
-        (message "Possible relevant TODO: %s, trigger with %s"
+        (message "Possible relevant todo (%s): %s, trigger with %s"
+                 (org-with-point-at (org-id-find
+                                     (caar rel-headings) t)
+                   (org-element-property
+                    :todo-keyword (org-element-at-point)))
                  (org-format-outline-path
                   (cadr (car rel-headings)))
                  (if key