typo in gnus-start.el?

typo in gnus-start.el?

[Bill White]

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."

Re: typo in gnus-start.el?

[ShengHuo ZHU]

Bill White <billw@wolfram.com> writes:

> 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!)

Installed. Thanks.

ShengHuo

Re: typo in gnus-start.el?

[Dan Christensen]

ShengHuo ZHU <zsh@cs.rochester.edu> writes:

> Bill White <billw@wolfram.com> writes:
>
>> 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...)
>
> Installed. Thanks.
>
> ShengHuo

This fixes some of the problems I was reporting with the archive
server.  Now, if I delete the archive server from my
gnus-server-alist, it is created successfully when Gnus starts, and is
distinct from my (nnfolder "") server.  Moreover, if I exit Gnus, get
rid of the archive server in my .newsrc.eld, set
gnus-message-archive-method to nil, and restart, then all works fine
and no archive server is created.

However, if I do either of:

(setq gnus-message-archive-method (car gnus-secondary-select-methods))
(setq gnus-message-archive-method '(nnfolder ""))

(which should be basically the same), then Gnus goes ahead and
creates an archive server for me.  It doesn't use it for outgoing
messages (it correctly uses (nnfolder "")), but it still thinks
it needs to create it for me.  I think this is a bug.

Luckily there is a workaround:  set gnus-message-archive-method to
nil, and then use the variable gnus-outgoing-message-group, which
I just learned about.  (Why are there two ways to save outgoing
messages?  What can the first do that the second can't?)

But I don't think Gnus should create the default archive server if the
user has set gnus-message-archive-method.

-- 
Dan Christensen
jdc+news@uwo.ca

Re: typo in gnus-start.el?

[Kai Großjohann]

Dan Christensen <jdc+news@uwo.ca> writes:

> Luckily there is a workaround:  set gnus-message-archive-method to
> nil, and then use the variable gnus-outgoing-message-group, which
> I just learned about.  (Why are there two ways to save outgoing
> messages?  What can the first do that the second can't?)

gnus-outgoing-message-group is older.  One difference that I could
find is that a gcc-self parameter for a group means that Gnus does not
insert the Gcc header from gnus-message-archive-group, but it still
inserts the Gcc header from gnus-outgoing-message-group.

Another difference is that gnus-message-archive-group defaults to the
archive server if no server is specified, whereas
gnus-outgoing-message-group requires you to specify a server.

I thought that the older feature would go away, but Lars told me no.
But maybe the older feature should be excised anyway, and the new one
repaired?

kai
-- 
Symbol's function definition is void: signature

Re: typo in gnus-start.el?

[Paul Jarc]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) wrote:
> gnus-outgoing-message-group is older.  One difference that I could
> find is that a gcc-self parameter for a group means that Gnus does not
> insert the Gcc header from gnus-message-archive-group, but it still
> inserts the Gcc header from gnus-outgoing-message-group.
>
> Another difference is that gnus-message-archive-group defaults to the
> archive server if no server is specified, whereas
> gnus-outgoing-message-group requires you to specify a server.
>
> I thought that the older feature would go away, but Lars told me no.
> But maybe the older feature should be excised anyway, and the new one
> repaired?

I'd almost prefer to get rid of gnus-message-archive-*, as they seem
more error-prone.  The regexp-alist functionality could be added to
g-o-m-g; then the only difference would be the default-method stuff
(whence errors) and the gcc-self stuff (which could be dealt with in a
g-o-m-g function, though perhaps not very conveniently).


paul