William Gardella <[email protected]>
writes:
> It would also be pretty trivial as a proper Lisp function.
Something like this?
#+begin_src emacs-lisp
(defun my-gnus-browse-gwene ()
"Start a browser for current gwene article"
(interactive)
(dolist (buf (buffer-list))
(with-current-buffer buf
(when (eq major-mode 'gnus-article-mode)
(gnus-summary-show-article '(4))
(switch-to-buffer buf)
(goto-char (point-min))
(re-search-forward "^Archived-at: <\\(.*\\)>$")
(browse-url (match-string 1))
(gnus-summary-show-article)))))
#+end_src
Memnon
_______________________________________________
info-gnus-english mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/info-gnus-english
