|
From: | Michael Heerdegen |
Subject: | Re: question about org-link gnus message and gnus registry |
Date: | Thu, 02 Dec 2021 23:46:39 +0100 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) |
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.
[Prev in Thread] | Current Thread | [Next in Thread] |