Re: question about org-link gnus message and gnus registry

[Michael Heerdegen]

Eric Abrahamsen <eric@ericabrahamsen.net> writes:

> I'm still just seeing a call to `cl-second', which is required at
> compile time. And my, there are a lot of compiler warnings! But nothing
> about second or cl-second...

This is where I found it:

#+begin_src emacs-lisp
(defun gnorb-reply-to-gnus-link (link)
  "Start a reply to the linked message."
  (let* ((link (org-link-unescape link))
         (group (car (org-split-string link "#")))
         (id (gnorb-bracket-message-id
              (second (org-split-string link "#"))))
         (backend
          (car (gnus-find-method-for-group group))))
    (gnorb-follow-gnus-link group id)
    (call-interactively
     (if (eq backend 'nntp)
         'gnus-summary-followup-with-original
       'gnus-summary-wide-reply-with-original))))
#+end_src


Michael.