typo in gnus-start.el?

[Bill White <billw@wolfram.com>]

GNU Emacs 21.0.105.1 (i586-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2001-08-31 on seton

Oort Gnus v0.04 (from gnus-CURRENT-20010906.tar.gz)

----------------------------------------------------------------------

The current definition of gnus-start.el:gnus-setup-news seems to have
a typo that prevents startup in a virgin gnus-directory when you're
using an archive server.  If you have an "old" .newsrc.eld, then this
bug may be masked that .newsrc.eld's (setq gnus-server-alist...)

First, I activate archiving in my gnus-init-file: (cleanup hints welcome!)

,----[ ~/.gnus-work ]
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
| ;;
| ;; archive my outgoing messages, collected by month
| 
| (setq gnus-message-archive-method
|       '(nnfolder "archive"
| 		 (nnfolder-inhibit-expiry t)
| 		 (nnfolder-active-file "/billw/Mail-work/sent-mail/active")
| 		 (nnfolder-directory "/billw/Mail-work/sent-mail/")))
| 
| (setq gnus-message-archive-group
|       '((concat
|          "nnml:archive."
|          (format-time-string "%Y-%m" (current-time))
| 	 (if (message-mail-p)
| 	     (when (string-match "[A-Za-z]" gnus-newsgroup-name)
| 	       ", "))
| 	 (if (message-mail-p)
| 	     (when (string-match "[A-Za-z]" gnus-newsgroup-name)
| 	       gnus-newsgroup-name)))))
`----

Then I start gnus:

----------------------------------------------------------------------
Debugger entered--Lisp error: (wrong-type-argument symbolp (nnfolder "archive" (nnfolder-directory "~/Mail/archive") (nnfolder-active-file "~/Mail/archive/active") (nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t)))
  gnus-server-opened(((nnfolder "archive" (nnfolder-directory "~/Mail/archive") (nnfolder-active-file "~/Mail/archive/active") (nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t))))
  gnus-check-server(((nnfolder "archive" (nnfolder-directory "~/Mail/archive") (nnfolder-active-file "~/Mail/archive/active") (nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t))))
  gnus-read-active-file-1(((nnfolder "archive" (nnfolder-directory "~/Mail/archive") (nnfolder-active-file "~/Mail/archive/active") (nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t))) nil)
  gnus-read-active-file(nil nil)
  gnus-setup-news(nil nil nil)
  byte-code("\b„\x0e\0	„\x0e\0Æ ˆ‚O\0ÇÈ!ˆÉ\n!\x13\f„\x1e\0\rƒ!\0Ê ˆ\x0e\x19ƒ.\0Ë ˆÌÍÎ\"ˆÏÐ\x0e\x1a\b#ˆÇÑ!ˆÒ ˆÓ\x0e\x1a!ˆÔ ˆÕÖ!ˆ× ˆÇØ!ˆÐ‡" [dont-connect did-connect gnus-startup-file gnus-current-startup-file gnus-slave gnus-use-dribble-file gnus-group-quit gnus-run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-dribble-read-file bbb-login add-hook gnus-summary-mode-hook gnus-grouplens-mode gnus-setup-news nil gnus-setup-news-hook gnus-start-draft-setup gnus-group-list-groups gnus-group-first-unread-group gnus-configure-windows group gnus-group-set-mode-line gnus-started-hook gnus-use-grouplens level] 4)
  gnus-1(nil nil nil)
  gnus()
  gnus-work()
* call-interactively(gnus-work)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)
----------------------------------------------------------------------

Here's my fix - remove a pair of parens:

*** /home/billw/emacs-lisp-21/gnus/lisp/gnus-start.el	Thu Sep  6 23:38:05 2001
--- /home/billw/emacs-lisp-21/gnus-CURRENT-20010906/lisp/gnus-start.el	Mon Aug 20 18:38:01 2001
***************
*** 902,915 ****
      (when gnus-message-archive-method
        (unless (assoc "archive" gnus-server-alist)
  	(push `("archive"
! 		nnfolder
  		 "archive"
  		 (nnfolder-directory
  		  ,(nnheader-concat message-directory "archive"))
  		 (nnfolder-active-file
  		  ,(nnheader-concat message-directory "archive/active"))
  		 (nnfolder-get-new-mail nil)
! 		 (nnfolder-inhibit-expiry t))
  	      gnus-server-alist)))
  
      ;; If we don't read the complete active file, we fill in the
--- 902,915 ----
      (when gnus-message-archive-method
        (unless (assoc "archive" gnus-server-alist)
  	(push `("archive"
! 		(nnfolder
  		 "archive"
  		 (nnfolder-directory
  		  ,(nnheader-concat message-directory "archive"))
  		 (nnfolder-active-file
  		  ,(nnheader-concat message-directory "archive/active"))
  		 (nnfolder-get-new-mail nil)
! 		 (nnfolder-inhibit-expiry t)))
  	      gnus-server-alist)))
  
      ;; If we don't read the complete active file, we fill in the


Cheers -

bw
-- 
Bill White . billw@wolfram.com . http://members.wri.com/billw
"No ma'am, we're musicians."