Path: utzoo!mnetor!uunet!lll-winken!lll-tis!ames!pasteur!ucbvax!PEBBLES.BBN.COM!jr
From: jr@PEBBLES.BBN.COM (John Robinson)
Newsgroups: comp.emacs
Subject: Re: problems with gnews-1.3
Message-ID: <3213.577560475@pebbles>
Date: 20 Apr 88 17:27:55 GMT
References: <5771@windsor.cray.com>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 46

I couldn't reach Hal Peterson at the return address, so I'm bothering
the group.  Here's all it appears to take to get index mode working
under gnewspool (I'm using gnews-1.4, by the way).  These are the
definitions needed in gnewspool.el:

In the heading (really, what you put into gnewsinit.el; change it
accordingly):

;;; (defun gnews:start:hook ()
;;;   (fset 'nntp-start 'gnews-spool-start)
;;;   (fset 'nntp-exec 'gnews-spool-exec)
;;;   (fset 'nntp-index-exec 'gnews-spool-index-exec)
;;;   (fset 'nntp-run-p '(lambda () t))
;;;   (setq news-index-fast nil) 
;;;   (load-library "gnewspool.el"))

And the one needed function:

(defun gnews-spool-index-exec (comm &rest args)
  "NNTP commands for indexing interpreted directly off a news spool."
  (interactive (list (not current-prefix-arg)
		     (read-from-minibuffer "NNTP command: ")
		     nil))
  (if (interactive-p)
      (setq args (progn
		   (string-match "\\<[^ ]*\\>" comm)
		   (if (/= (length comm) (match-end 0))
		       (list (substring comm (1+ (match-end 0))))))
	    comm (substring comm (match-beginning 0) (match-end 0))))
  (let* ((b (current-buffer))
	 (a1 (car args))
	 (a2 (cadr args))
	 (art (or a1 article-current)))
    )
    (prog2
	(set-buffer nntp-buffer)
	(cond ((string= comm "group")
	       (gnews-spool-exec-group a1))
	      ((string= comm "head")
	       (gnews-spool-exec-art art 'head)))
      (set-buffer b)))

It just uses functions already in gnewspool.el.  I assume there is no
interference in swapping around the current group.

/jr
jr@bbn.com or jr@bbn.uucp