From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/15876 Path: news.gmane.org!not-for-mail From: Reiner Steib Newsgroups: gmane.emacs.gnus.user Subject: Re: Browsing to original article in gwene? Date: Mon, 08 Oct 2012 08:46:18 +0200 Message-ID: <87txu5folh.fsf@marauder.physik.uni-ulm.de> References: <87r4pdsfyh.fsf@gmail.com> <87ipapt5mg.fsf@mean.albasani.net> <87fw5qj8o8.fsf@toke.dk> Reply-To: Reiner Steib NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1349679009 6298 80.91.229.3 (8 Oct 2012 06:50:09 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 8 Oct 2012 06:50:09 +0000 (UTC) To: info-gnus-english@gnu.org Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Mon Oct 08 08:50:14 2012 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TL7AL-0005ZV-0r for gegu-info-gnus-english@m.gmane.org; Mon, 08 Oct 2012 08:50:13 +0200 Original-Received: from localhost ([::1]:60359 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TL7AF-00070R-38 for gegu-info-gnus-english@m.gmane.org; Mon, 08 Oct 2012 02:50:07 -0400 Original-Newsgroups: gnu.emacs.gnus X-Face: #vK]N[`vqjuod*|)'[iD7/"3AB-ApT%fmN"LWAg@oS7OesGv~)n[OBTLM#I="J'Y^-7I I/ps7o_'IK@#-Rs{::DZ@O8yS|fexe,XslY[:dNWOb~>?mC-&i_c)say:"\IpA.5U.b]'NY; Pks{lb h.+#6%DpZuaK3dcHB`Av3zc:r!C%~s0&m, tWj]&}, qg.+0ww2gK%f!:GK|wMl.I!(voY*1"^li8"~B BNG)9LvPi?^DMR-GVDnZqhu*3Hi, +g=wFhI)BL6&u{EOVEHjVEVq~d?_}lMntWAc3(6?kftjc>_f>! g0wM(qPM$d5]^TT_Qyi&L?LGVG)SHN;Gk/,pkY9,~ Mail-Copies-To: nobody User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.1.50 (gnu/linux) Cancel-Lock: sha1:JhmItuuKy2NU2vElsMBVpCHwyW4= Original-NNTP-Posting-Host: bridgekeeper.physik.uni-ulm.de Original-X-Trace: news.uni-ulm.de 1349678858 134.60.10.175 (8 Oct 2012 08:47:38 +0200) Original-Lines: 56 Original-Path: usenet.stanford.edu!goblin2!goblin.stu.neva.ru!feeder.erje.net!news-2.dfn.de!news.dfn.de!news.stw-bonn.de!news.uni-stuttgart.de!rz.uni-karlsruhe.de!news.uni-ulm.de!hydrangea.reiner-steib.de!not-for-mail Original-Xref: usenet.stanford.edu gnu.emacs.gnus:86968 X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.gnus.user:15876 Archived-At: On Sun, Oct 07 2012, Toke H=F8iland-J=F8rgensen wrote: > #+begin_src emacs-lisp > (defun my-gnus-browse-gwene () > "Start a browser for current gwene article" AFAIK, Archived-at is not specific to Gwene. > (interactive) > (dolist (buf (buffer-list)) > (when (buffer-live-p buf) > (with-current-buffer buf > (when (eq major-mode 'gnus-article-mode) This might get the wrong article if `gnus-single-article-buffer' is nil. > (gnus-summary-show-article '(4)) Use `gnus-original-article-buffer' ... > (switch-to-buffer buf) ... and `with-current-buffer'. > (goto-char (point-min)) > (when (re-search-forward "^Archived-at: <\\(.*\\)>$" (point-max= ) t) There is `gnus-fetch-field'. > (browse-url (match-string 1))) > (gnus-summary-show-article)))))) > #+end_src I'd suggest something like this: #+begin_src emacs-lisp (defun rs-gnus-browse-archived-at () "Browse \"Archived-at\" URL of the current article." (interactive) (let (url) (with-current-buffer gnus-original-article-buffer (setq url (gnus-fetch-field "Archived-at"))) (if (not (stringp url)) (gnus-message 1 "No \"Archived-at\" header found.") (setq url (gnus-replace-in-string url "^<\\|>$" "")) (browse-url url)))) #+end_src Probably it should be expanded to handle process marked articles etc. Bye, Reiner. -- = ,,, (o o) ---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/