Eric Abrahamsen <[email protected]> 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.
