From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/14235 Path: main.gmane.org!not-for-mail From: Rui-Tao Dong ~{6-HpLN~} Newsgroups: gmane.emacs.gnus.general Subject: DejaNews Rescued Date: 22 Feb 1998 18:16:01 -0800 Organization: Error: no such organization! Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035153460 13709 80.91.224.250 (20 Oct 2002 22:37:40 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:37:40 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id SAA23357 for ; Sun, 22 Feb 1998 18:15:29 -0800 Original-Received: from sina.hpc.uh.edu (root@Sina.HPC.UH.EDU [129.7.3.5]) by xemacs.org (8.8.5/8.8.5) with ESMTP id UAA29325 for ; Sun, 22 Feb 1998 20:13:27 -0600 (CST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id UAH08229; Sun, 22 Feb 1998 20:13:31 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 22 Feb 1998 20:12:37 -0600 (CST) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id UAA08215 for ; Sun, 22 Feb 1998 20:12:26 -0600 (CST) Original-Received: (qmail 31147 invoked by uid 504); 23 Feb 1998 02:12:20 -0000 Original-Received: (qmail 31144 invoked from network); 23 Feb 1998 02:12:19 -0000 Original-Received: from ifi.uio.no (0@129.240.64.2) by claymore.vcinet.com with SMTP; 23 Feb 1998 02:12:18 -0000 Original-Received: from Alpha.dfc.com (cx40455-a.msnv1.occa.home.com [24.1.130.158]) by ifi.uio.no (8.8.8/8.8.7/ifi0.2) with ESMTP id DAA27552 for ; Mon, 23 Feb 1998 03:12:14 +0100 (MET) Original-Received: (from rdong@localhost) by Alpha.dfc.com (8.8.5/8.8.5) id SAA08469; Sun, 22 Feb 1998 18:16:20 -0800 X-Authentication-Warning: Alpha.dfc.com: rdong set sender to rdong@internetMCI.com using -f Original-Newsgroups: gnu.emacs.gnus Original-To: ding@ifi.uio.no Original-Lines: 206 X-Newsreader: Gnus v5.4.37/XEmacs 19.16 Posted-To: gnu.emacs.gnus Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:14235 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:14235 The following message is a courtesy copy of an article that has been posted to gnu.emacs.gnus as well. I really needed to search DejaNews and no one has stepped out to fix nnweb so far. I have the following patch against nnweb in qgnus 0.29 (tested pnly in Gnus v5.4.37 and 5.4.66.) Regards, Rui-Tao Dong ~{6-HpLN~} , Mission Viejo, California *** nnweb-new.el Fri Feb 20 21:06:28 1998 --- nnweb.el Sat Feb 14 10:28:00 1998 *************** *** 53,65 **** (article . nnweb-dejanews-wash-article) (map . nnweb-dejanews-create-mapping) (search . nnweb-dejanews-search) ! (address . "http://x8.dejanews.com/dnquery.xp") (identifier . nnweb-dejanews-identity)) (dejanewsold (article . nnweb-dejanews-wash-article) (map . nnweb-dejanews-create-mapping) (search . nnweb-dejanewsold-search) ! (address . "http://x8.dejanews.com/dnquery.xp") (identifier . nnweb-dejanews-identity)) (reference (article . nnweb-reference-wash-article) --- 53,65 ---- (article . nnweb-dejanews-wash-article) (map . nnweb-dejanews-create-mapping) (search . nnweb-dejanews-search) ! (address . "http://x5.dejanews.com/dnquery.xp") (identifier . nnweb-dejanews-identity)) (dejanewsold (article . nnweb-dejanews-wash-article) (map . nnweb-dejanews-create-mapping) (search . nnweb-dejanewsold-search) ! (address . "http://x5.dejanews.com/dnquery.xp") (identifier . nnweb-dejanews-identity)) (reference (article . nnweb-reference-wash-article) *************** *** 79,85 **** (defvoo nnweb-search nil "Search string to feed to DejaNews.") ! (defvoo nnweb-max-hits 999 "Maximum number of hits to display.") (defvoo nnweb-ephemeral-p nil --- 79,85 ---- (defvoo nnweb-search nil "Search string to feed to DejaNews.") ! (defvoo nnweb-max-hits 100 "Maximum number of hits to display.") (defvoo nnweb-ephemeral-p nil *************** *** 379,431 **** (case-fold-search t) (active (or (cadr (assoc nnweb-group nnweb-group-alist)) (cons 1 0))) ! Subject (Score "0") Date Newsgroup Author map url) (while more ;; Go through all the article hits on this page. (goto-char (point-min)) (nnweb-decode-entities) (goto-char (point-min)) ! (while (re-search-forward "^

\n" nil t) (narrow-to-region (point) ! (cond ((re-search-forward "^

\n" nil t) (match-beginning 0)) ((search-forward "\n\n" nil t) (point)) (t (point-max)))) (goto-char (point-min)) ! (looking-at ".*HREF=\"\\([^\"]+\\)\"\\(.*\\)") ! (setq url (match-string 1)) ! (let ((begin (point))) ! (nnweb-remove-markup) ! (goto-char begin) ! (while (search-forward "\t" nil t) ! (replace-match " ")) ! (goto-char begin) ! (end-of-line) ! (setq Subject (buffer-substring begin (point))) ! (if (re-search-forward ! "^ Newsgroup: \\(.*\\)\n Posted on \\([0-9/]+\\) by \\(.*\\)$" nil t) ! (setq Newsgroup (match-string 1) ! Date (match-string 2) ! Author (match-string 3)))) (widen) (incf i) (unless (nnweb-get-hashtb url) (push (list (incf (cdr active)) (make-full-mail-header ! (cdr active) Subject Author Date (concat "<" (nnweb-identifier url) "@dejanews>") nil 0 (string-to-int Score) url)) map) (nnweb-set-hashtb (cadar map) (car map)))) ;; See whether there is a "Get next 20 hits" button here. (if (or (not (re-search-forward ! "HREF=\"\\([^\"]+\\)\"[<>b]+Next result" nil t)) (>= i nnweb-max-hits)) (setq more nil) ;; Yup -- fetch it. --- 379,427 ---- (case-fold-search t) (active (or (cadr (assoc nnweb-group nnweb-group-alist)) (cons 1 0))) ! Subject Score Date Newsgroup Author map url) (while more ;; Go through all the article hits on this page. (goto-char (point-min)) (nnweb-decode-entities) (goto-char (point-min)) ! (while (re-search-forward "^ +[0-9]+\\." nil t) (narrow-to-region (point) ! (cond ((re-search-forward "^ +[0-9]+\\." nil t) (match-beginning 0)) ((search-forward "\n\n" nil t) (point)) (t (point-max)))) (goto-char (point-min)) ! (when (looking-at ".*HREF=\"\\([^\"]+\\)\"") ! (setq url (match-string 1))) ! (nnweb-remove-markup) ! (goto-char (point-min)) ! (while (search-forward "\t" nil t) ! (replace-match " ")) ! (goto-char (point-min)) ! (while (re-search-forward "^ +\\([^:]+\\): +\\(.*\\)$" nil t) ! (set (intern (match-string 1)) (match-string 2))) (widen) + (when (string-match "#[0-9]+/[0-9]+ *$" Subject) + (setq Subject (substring Subject 0 (match-beginning 0)))) (incf i) (unless (nnweb-get-hashtb url) (push (list (incf (cdr active)) (make-full-mail-header ! (cdr active) (concat "(" Newsgroup ") " Subject) Author Date (concat "<" (nnweb-identifier url) "@dejanews>") nil 0 (string-to-int Score) url)) map) (nnweb-set-hashtb (cadar map) (car map)))) ;; See whether there is a "Get next 20 hits" button here. (if (or (not (re-search-forward ! "HREF=\"\\([^\"]+\\)\">Get next" nil t)) (>= i nnweb-max-hits)) (setq more nil) ;; Yup -- fetch it. *************** *** 464,472 **** ("defaultOp" . "AND") ("svcclass" . "dncurrent") ("maxhits" . "100") ! ("format" . "verbose2") ("threaded" . "0") ! ("showsort" . "date") ("agesign" . "1") ("ageweight" . "1"))) t) --- 460,468 ---- ("defaultOp" . "AND") ("svcclass" . "dncurrent") ("maxhits" . "100") ! ("format" . "verbose") ("threaded" . "0") ! ("showsort" . "score") ("agesign" . "1") ("ageweight" . "1"))) t) *************** *** 478,486 **** ("defaultOp" . "AND") ("svcclass" . "dnold") ("maxhits" . "100") ! ("format" . "verbose2") ("threaded" . "0") ! ("showsort" . "date") ("agesign" . "1") ("ageweight" . "1"))) t) --- 474,482 ---- ("defaultOp" . "AND") ("svcclass" . "dnold") ("maxhits" . "100") ! ("format" . "verbose") ("threaded" . "0") ! ("showsort" . "score") ("agesign" . "1") ("ageweight" . "1"))) t)