emacs-orgmode
[Top][All Lists]
Advanced

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

Re: [O] Nice blog post - Org-mode in Your Pocket Is a GNU-Shaped Devil


From: Haider Rizvi
Subject: Re: [O] Nice blog post - Org-mode in Your Pocket Is a GNU-Shaped Devil
Date: Thu, 04 Apr 2013 12:39:17 -0400
User-agent: Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.2 (darwin)

Bastien <address@hidden> writes:

> Hi François,
>
> François Pinard <address@hidden> 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




reply via email to

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