Re: Red Gnus v0.1 is released

[Steven L Baur <steve@miranova.com>]

Sudish's patch didn't help me at all :-(.

gnus-default-nntp-server is defined too late in gnus-load.el, so I
tried this patch:
===================================================================
RCS file: RCS/gnus-load.el,v
retrieving revision 1.1
diff -u -r1.1 gnus-load.el
--- gnus-load.el	1996/07/30 23:53:48	1.1
+++ gnus-load.el	1996/07/31 01:11:35
@@ -34,6 +34,13 @@
 ;; Site dependent variables.  These variables should be defined in
 ;; paths.el.
 
+(defvar gnus-default-nntp-server nil
+  "Specify a default NNTP server.
+This variable should be defined in paths.el, and should never be set
+by the user.
+If you want to change servers, you should use `gnus-select-method'.
+See the documentation to that variable.")
+
 ;; Don't touch this variable.
 (defvar gnus-nntp-service "nntp"
   "*NNTP service name (\"nntp\" or 119).
@@ -139,13 +146,6 @@
 you could set this variable:
 
 (setq gnus-secondary-select-methods '((nnml \"\")))")
-
-(defvar gnus-default-nntp-server nil
-  "Specify a default NNTP server.
-This variable should be defined in paths.el, and should never be set
-by the user.
-If you want to change servers, you should use `gnus-select-method'.
-See the documentation to that variable.")
 
 (defvar gnus-backup-default-subscribed-newsgroups
   '("news.announce.newusers" "news.groups.questions" "gnu.emacs.gnus")


I'm still bombing in two places:
While compiling toplevel forms in file /usr/lib/xemacs/rgnus-0.01/lisp/earcon.el:
  !! End of stream ((#<buffer " *Compiler Input*">))

I can't figure this one out, since earcon.el hasn't changed in several
versions (and omits the patch I recently submitted :-( to boot).

Also this code is definitely incorrect:
nndoc.el:
(defun nndoc-add-type (definition &optional position)  
  "Add document DEFINITION to the list of nndoc document definitions.
If POSITION is nil or `last', the definition will be added
as the last checked definition, if t or `first', add as the
first definition, and if any other symbol, add after that
symbol in the alist."        
  (cond                                                             
   ((or (null position) (eq position 'last))                              
    (setq nndoc-type-alist (nconc nndoc-type-alist (list definition))))
   ((or (eq position t) (eq position 'first))
    (push definition nndoc-type-alist))             
   (t                                                                  
    (let ((list (memq (assq position nndoc-type-alist))))
                 ^^^^
      (unless list                                              
        (error "No such position: %s" position))                 
      (setcdr list (cons definition (cdr list)))))))


memq requires two parameters and not one.  This is a new function, so
I'm can't tell from past code what this is supposed to accomplish
exactly.
-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be proofread for $250/hour.
Andrea Seastrand: For your vote on the Telecom bill, I will vote for anyone
except you in November.