From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/48523 Path: main.gmane.org!not-for-mail From: Jan Egil Hagen Newsgroups: gmane.emacs.gnus.general Subject: nnrss-generate-download-script Date: Thu, 02 Jan 2003 00:05:30 +0100 Organization: University of Oslo, Department of Informatics Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1041462370 27085 80.91.224.249 (1 Jan 2003 23:06:10 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 1 Jan 2003 23:06:10 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18Trw8-00072g-00 for ; Thu, 02 Jan 2003 00:06:08 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18Trvr-0002Uu-00; Wed, 01 Jan 2003 17:05:51 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 01 Jan 2003 17:06:45 -0600 (CST) Original-Received: from sclp3.sclp.com (sclp3.sclp.com [66.230.238.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id RAA21234 for ; Wed, 1 Jan 2003 17:06:32 -0600 (CST) Original-Received: (qmail 54495 invoked by alias); 1 Jan 2003 23:05:34 -0000 Original-Received: (qmail 54490 invoked from network); 1 Jan 2003 23:05:34 -0000 Original-Received: from pat.uio.no (7411@129.240.130.16) by 66.230.238.6 with SMTP; 1 Jan 2003 23:05:34 -0000 Original-Received: from ellifu.ifi.uio.no ([129.240.65.211]) by pat.uio.no with esmtp (Exim 2.12 #7) id 18TrvW-0006n2-00 for ding@gnus.org; Thu, 2 Jan 2003 00:05:30 +0100 Original-Received: (from janha@localhost) by ellifu.ifi.uio.no ; Thu, 2 Jan 2003 00:05:30 +0100 (MET) Original-To: ding@gnus.org User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.2 (sparc-sun-solaris2.7) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:48523 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:48523 --=-=-= I figured more people than me might be interested in this version of nnrss-generate-download-script that downloads the RSS files in parallel and generates the script in the nnrss directory rather than inserting it in the current buffer. I've also changed a few uses of second to nth 1 since second is from the cl package. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=nnrss.el.diff 167c167,169 < (defvar nnrss-use-local nil) --- > (defvar nnrss-use-local nil > "If true, don't download RSS feed if local version downloaded with > the script generated by nnrss-generate-download-script exists.") 182a185,192 > > (defvar nnrss-wget-command "wget" > "The command used as wget in nnrss-generate-download-script") > > (defvar nnrss-generated-download-script-file > (format "%s/download-script.sh" (expand-file-name nnrss-directory)) > "Where to place the script generated by nnrss-generate-download-script") > 485c495 < (second (assoc group nnrss-group-alist)))) --- > (nth 1 (assoc group nnrss-group-alist)))) 544,552c554,567 < (insert "#!/bin/sh\n") < (insert "WGET=wget\n") < (insert "RSSDIR='" (expand-file-name nnrss-directory) "'\n") < (dolist (elem nnrss-server-data) < (let ((url (or (nth 2 elem) < (second (assoc (car elem) nnrss-group-alist))))) < (insert "$WGET -q -O \"$RSSDIR\"/'" < (nnrss-translate-file-chars (concat (car elem) ".xml")) < "' '" url "'\n")))) --- > (with-temp-buffer > (insert "#!/bin/sh\n") > (insert "WGET=" nnrss-wget-command "\n") > (insert "RSSDIR='" (expand-file-name nnrss-directory) "'\n") > (dolist (elem nnrss-server-data) > (let ((url (or (nth 2 elem) > (nth 1 (assoc (car elem) nnrss-group-alist))))) > (insert "$WGET -q -O \"$RSSDIR\"/'" > (nnrss-translate-file-chars (concat (car elem) ".xml")) > "' '" url "' &\n"))) > (insert "wait\n") > (write-region (point-min) (point-max) > nnrss-generated-download-script-file) > (set-file-modes nnrss-generated-download-script-file 448))) 553a569 > --=-=-= One other thing: I don't really /get/ nnoo, and this makes it a bit difficult to understand the different back ends. Does any documentation exist anywhere? -- World works; done by its invalids --=-=-=--