info-gnus-english
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Eric Abrahamsen
Subject: Re: question about org-link gnus message and gnus registry
Date: Thu, 02 Dec 2021 16:30:15 -0800
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux)

Michael Heerdegen <michael_heerdegen@web.de> writes:

> 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

Crap, it's in a commit I've had locally since... late 2020, but never
released. Sorry about that, I'll do another version release in a moment.

Thanks for finding this!

Eric




reply via email to

[Prev in Thread] Current Thread [Next in Thread]