From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/8584 Path: main.gmane.org!not-for-mail From: "jeff (j.d.) sparkes" Newsgroups: gmane.emacs.gnus.general Subject: gnus-batch-score should run in slave mode Date: Mon, 4 Nov 1996 10:04:00 -0500 Sender: "jeff (j.d.) sparkes" Message-ID: <5016.64948319576$1042182947@news.gmane.org> NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035148730 13030 80.91.224.250 (20 Oct 2002 21:18:50 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:18:50 +0000 (UTC) Return-Path: Original-Received: (qmail 27587 invoked from smtpd); 4 Nov 1996 15:43:53 -0000 Original-Received: from ifi.uio.no (0@129.240.64.2) by deanna.miranova.com with SMTP; 4 Nov 1996 15:43:48 -0000 Original-Received: from bnr.ca (x400gate.nortel.ca [192.58.194.73]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) id for ; Mon, 4 Nov 1996 16:12:09 +0100 X400-Received: by mta bnr.ca in /PRMD=BNR/ADMD=TELECOM.CANADA/C=CA/; Relayed; Mon, 4 Nov 1996 10:06:00 -0500 X400-Received: by /PRMD=BNR/ADMD=TELECOM.CANADA/C=CA/; Relayed; Mon, 4 Nov 1996 10:05:16 -0500 X400-Received: by /PRMD=BNR/ADMD=TELECOM.CANADA/C=CA/; Relayed; Mon, 4 Nov 1996 10:04:00 -0500 X400-Originator: /dd.id=1581776/g=jeff/i=jd/s=sparkes/@bnr.ca X400-MTS-Identifier: [/PRMD=BNR/ADMD=TELECOM.CANADA/C=CA/;bcars735.b.218:04.10.96.15.05.16] X400-Content-Type: P2-1984 (2) Content-Identifier: gnus-batch-sc... Original-To: ding@ifi.uio.no Xref: main.gmane.org gmane.emacs.gnus.general:8584 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:8584 Running gnus-batch-score in slave mode should reduce the possibilty of collision between a running gnus and a batch mode one. I also added a variable so your .gnus can tell if its running in batch mode. Obviously, no one has been using gnus-batch-score since it didn't work right. I have commented out one line since i don't know the proper fix. *** gnus-kill.el 1996/11/04 14:40:26 1.1 --- gnus-kill.el 1996/11/04 14:44:05 *************** *** 684,689 **** --- 684,690 ---- (gnus-expert-user t) (nnmail-spool-file nil) (gnus-use-dribble-file nil) + (gnus-batch-mode t) group newsrc entry ;; Disable verbose message. gnus-novice-user gnus-large-newsgroup *************** *** 691,706 **** gnus-options-not-subscribe) ;; Eat all arguments. (setq command-line-args-left nil) ! (gnus) ;; Apply kills to specified newsgroups in command line arguments. (setq newsrc (cdr gnus-newsrc-alist)) (while (setq group (car (pop newsrc))) (setq entry (gnus-gethash group gnus-newsrc-hashtb)) ! (when (and (<= (nth 1 (car newsrc)) gnus-level-subscribed) (and (car entry) (or (eq (car entry) t) (not (zerop (car entry))))) ! (eq (gnus-matches-options-n group) 'subscribe)) (gnus-summary-read-group group nil t nil t) (when (eq (current-buffer) (get-buffer gnus-summary-buffer)) (gnus-summary-exit)))) --- 692,708 ---- gnus-options-not-subscribe) ;; Eat all arguments. (setq command-line-args-left nil) ! (gnus-slave) ;; Apply kills to specified newsgroups in command line arguments. (setq newsrc (cdr gnus-newsrc-alist)) (while (setq group (car (pop newsrc))) (setq entry (gnus-gethash group gnus-newsrc-hashtb)) ! (when (and (<= (gnus-info-level (car newsrc)) gnus-level-subscribed) (and (car entry) (or (eq (car entry) t) (not (zerop (car entry))))) ! ;;(eq (gnus-matches-options-n group) 'subscribe) ! ) (gnus-summary-read-group group nil t nil t) (when (eq (current-buffer) (get-buffer gnus-summary-buffer)) (gnus-summary-exit)))) *** gnus.el 1996/11/04 14:43:10 1.1 --- gnus.el 1996/11/04 14:43:53 *************** *** 758,763 **** --- 758,766 ---- (defvar gnus-slave nil "Whether this Gnus is a slave or not.") + (defvar gnus-batch-mode nil + "Whether this Gnus is running in batch mode or not.") + (defvar gnus-variable-list '(gnus-newsrc-options gnus-newsrc-options-n gnus-newsrc-last-checked-date -- Jeff Sparkes jsparkes@nortel.ca Nortel, Ottawa (613)765-2503 "Egad Brain, you astound me!" "I'm afraid I always will, Pinky." -- Jeff Sparkes jsparkes@nortel.ca Nortel, Ottawa, Ontario, Canada 613-765-2503