Re: Cannot use nnweb for dejanews

[Toby Speight <Toby.Speight@streapadair.freeserve.co.uk>]

ecm> Eric Marsden <URL:mailto:emarsden@mail.dotcom.fr>

>>>>> "rrh" == Raja R Harinath <harinath@cs.umn.edu> writes:

rrh> It would be nice if you could provide a "raw article" interface, so
rrh> that we don't have to go through the HTML interface baloney ;-)


0> In <URL:news:wzi673lvoeq.fsf@mail.dotcom.fr>, ecm wrote:

ecm> they do. You can retrieve the original text format of an article with
ecm> Dejanews ID <did> as
ecm>
ecm>    <URL:http://www.deja.com/getdoc.xp?AN=<did>&fmt=text>


Or you can do it by Message-ID (useful for articles that have expired
from the server you're currently reading):


(defun fetch-message-from-dejanews (message-id)
  "Fetch MESSAGE-ID from DejaNews archive."
  (interactive "sMessage-Id: ")
  (w3-fetch (format "http://www.deja.com/msgid.xp?MID=%%3C%s%%3E&fmt=raw"
                    (url-hexify-string message-id)))
  (let ((gnus-article-buffer w3-last-buffer)
        (inhibit-read-only t))
    (gnus-article-highlight)))

(defun fetch-message-from-nntp (message-id)
  (interactive "sMessage-Id: ")
  ;; can use either `gnus-request-article' or `nntp-request-article' here...
  (and (nntp-request-article (concat "<" message-id ">"))
       (eval-and-compile
         (condition-case nil (mapcar 'require '(url url-news)) (error nil)))
       (url-format-news)))

(defun fetch-message-intelligently (message-id)
  "Fetch MESSAGE-ID."
  (interactive "sMessage-Id: ")
  (save-excursion
    (or (fetch-message-from-nntp message-id)
        (fetch-message-from-dejanews message-id))))


[Lars, if you want to add something based on this, go ahead]