[elpa] externals/gnorb 7e9235f 138/449: First highly ugly version of gnorb-gnus-view

[Stefan Monnier]

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

    First highly ugly version of gnorb-gnus-view
    
    lisp/gnorb-gnus.el: (gnorb-gnus-view) I hesitate to call this a
                    function. Mostly I'm getting it committed so I can
                    rebase something else.
---
 lisp/gnorb-gnus.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index 084755d..d70ed1d 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -542,5 +542,22 @@ option `gnorb-gnus-hint-relevant-article' is non-nil."
                          (split-string ref-ids)))
                    gnorb-gnus-summary-mark
                  " "))))
+
+(defun gnorb-gnus-view ()
+  "Display the first relevant TODO heading for the message under point"
+  ;; this is pretty barebones, need to make sure we have a valid
+  ;; article buffer to access, and think about what to do for
+  ;; window-configuration!
+
+  ;; boy is this broken now.
+  (interactive)
+  (let ((refs (gnus-fetch-original-field "references"))
+       rel-headings)
+    (when refs
+      (setq refs (split-string refs))
+      (setq rel-headings (gnorb-org-find-visit-candidates refs))
+      (delete-other-windows)
+      (org-id-goto (caar rel-headings)))))
+
 (provide 'gnorb-gnus)
 ;;; gnorb-gnus.el ends here