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 >