From mboxrd@z Thu Jan 1 00:00:00 1970 From: Haider Rizvi Subject: Re: Nice blog post - Org-mode in Your Pocket Is a GNU-Shaped Devil Date: Thu, 04 Apr 2013 12:39:17 -0400 Message-ID: References: <87vc82r6fc.fsf@krugs.de> <87k3oir2a3.fsf@krugs.de> <86r4iqbjod.fsf@iro.umontreal.ca> <8762027avj.fsf@bzg.ath.cx> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([208.118.235.92]:56791) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UNnCL-0000uq-2t for emacs-orgmode@gnu.org; Thu, 04 Apr 2013 12:39:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UNnCF-0003KQ-0t for emacs-orgmode@gnu.org; Thu, 04 Apr 2013 12:39:37 -0400 Received: from plane.gmane.org ([80.91.229.3]:56109) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UNnCE-0003K0-QM for emacs-orgmode@gnu.org; Thu, 04 Apr 2013 12:39:30 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1UNnCa-00021A-EF for emacs-orgmode@gnu.org; Thu, 04 Apr 2013 18:39:52 +0200 Received: from fw54.torolab.ibm.com ([199.246.40.54]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 04 Apr 2013 18:39:52 +0200 Received: from harizvi by fw54.torolab.ibm.com with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 04 Apr 2013 18:39:52 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Bastien writes: > Hi François, > > François Pinard writes: > >> It took me about one hour (my Gnus programming >> is rather rusty) for adding a Gnus command opening many tabs at once, in >> a graphical browser, for all articles I retain in Gnus for reading. > > That looks nice, is your hack public somewhere? Not exactly the above, but I have the following my-gnus-browse bound to ; in gnus-summary-mode-map, which opens up a browser with the right links for gwene, gmane and nnrss groups. I think the browse-nnrss-url is untouched from the gnus manual. (defun browse-nnrss-url( arg ) (interactive "p") (let ((url (assq nnrss-url-field (mail-header-extra (gnus-data-header (assq (gnus-summary-article-number) gnus-newsgroup-data)))))) (if url (progn (browse-url (cdr url)) (gnus-summary-mark-as-read-forward 1)) (gnus-summary-scroll-up arg)))) (add-to-list 'nnmail-extra-headers nnrss-url-field) (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)))) (defun my-gnus-browse (arg) (interactive "p") (cond ((string-match ":\\(gwene\\|gmane\\)\\." gnus-newsgroup-name) (rs-gnus-browse-archived-at)) ((string-match "^nnrss\." gnus-newsgroup-name) (browse-nnrss-url arg)))) Regards, -- Haider