*** empty log message ***

[gnus] / lisp / nnweb.el

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 06515d8..9d855f9 100644 (file)
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -60,6 +60,7 @@ and `altavista'.")
 (defvar nnweb-type-definition
   '((dejanews
      (article . ignore)
+     (id . "http://search.dejanews.com/msgid.xp?MID=%s&fmt=text")
      (map . nnweb-dejanews-create-mapping)
      (search . nnweb-dejanews-search)
      (address . "http://www.deja.com/=dnc/qs.xp")
@@ -358,7 +359,7 @@ and `altavista'.")
            (active (or (cadr (assoc nnweb-group nnweb-group-alist))
                        (cons 1 0)))
            subject date from
-           map url parse a table group)
+           map url parse a table group text)
        (while more
          ;; Go through all the article hits on this page.
          (goto-char (point-min))
@@ -696,7 +697,7 @@ and `altavista'.")
    pairs "&"))
 
 (defun nnweb-fetch-form (url pairs)
-  "Fetch a form from URL with PAIRS as the data."
+  "Fetch a form from URL with PAIRS as the data using the POST method."
   (let ((url-request-data (nnweb-encode-www-form-urlencoded pairs))
        (url-request-method "POST")
        (url-request-extra-headers