Quassia Gnus v0.13.

[elisp/gnus.git-] / lisp / nnweb.el

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 4cc1fc9..748b3d2 100644 (file)
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -48,7 +48,7 @@
 (defvoo nnweb-type 'dejanews
   "What search engine type is being used.")
 
-(defvar nnweb-type-definition
+(defvoo nnweb-type-definition
   '((dejanews
      (article . nnweb-dejanews-wash-article)
      (map . nnweb-dejanews-create-mapping)
@@ -461,6 +461,20 @@
      ("ageweight" . "1")))
   t)
 
+(defun nnweb-dejanewsold-search (search)
+  (nnweb-fetch-form
+   (nnweb-definition 'address)
+   `(("query" . ,search)
+     ("defaultOp" . "AND")
+     ("svcclass" . "dnold")
+     ("maxhits" . "100")
+     ("format" . "verbose")
+     ("threaded" . "0")
+     ("showsort" . "score")
+     ("agesign" . "1")
+     ("ageweight" . "1")))
+  t)
+
 (defun nnweb-dejanews-identity (url)
   "Return an unique identifier based on URL."
   (if (string-match "recnum=\\([0-9]+\\)" url)