I can't set levels of my groups.

I can't set levels of my groups.

[Greg Stark]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 7194 bytes --]



The same bug shows up both under Emacs 19.30 and the pretest of 19.31
so it's not the infamous bug that a patch for 19.30 exists for.  Both
these backtraces are after hitting `S l RET' in the group buffer
running Emacs with the `-q' option but loading my .gnus.el and setting
nnmail-movemail-program to "movemail" (because NIL doesn't dtrt, it
should default to "movemail" if it's NIL since that's what rmail does).

This is really frustrating, it prevents me from being able to set
levels for my groups, so lots of things fail.  Basically 

September Gnus v0.39; nntp 4.0; nnml 1.0; nnfolder 1.0
GNU Emacs 19.30.70.1 (sparc-sun-solaris2.3, X toolkit) of Sun Jan  7 1996 on portnoy
================================================================
Signaling: (wrong-type-argument stringp nil)
  intern-soft(nil [...])
  (symbol-value (intern-soft group gnus-newsrc-hashtb))
  (gnus-gethash group gnus-newsrc-hashtb)
  (let ((entry ...) active info) (if entry (progn ... ...) (gnus-group-insert-group-line group ... nil ... nil)))
  gnus-group-insert-group-line-info(nil)
  (let* ((buffer-read-only nil) (group ...) (gnus-group-indentation ...) (entry ...)) (and entry (not ...) (gnus-dribble-enter ...)) (gnus-delete-line) (gnus-group-insert-group-line-info group) (forward-line -1) (gnus-group-position-point))
  gnus-group-update-group-line()
  (while groups (setq group (car groups) groups (cdr groups)) (gnus-group-remove-mark group) (gnus-message 6 "Changed level of %s from %d to %d" group (or ... gnus-level-killed) level) (gnus-group-change-level group level (or ... gnus-level-killed)) (gnus-group-update-group-line))
  (let ((groups ...) group) (while groups (setq group ... groups ...) (gnus-group-remove-mark group) (gnus-message 6 "Changed level of %s from %d to %d" group ... level) (gnus-group-change-level group level ...) (gnus-group-update-group-line)))
  gnus-group-set-current-level(nil 3)
  call-interactively(gnus-group-set-current-level)
================================================================

September Gnus v0.39; nntp 4.0; nnml 1.0; nnfolder 1.0
GNU Emacs 19.30.1 (i386-unknown-netbsd1.1, X toolkit) of Wed Jan 31 1996 on zygorthian-space-raiders
================================================================
Signalling: (wrong-type-argument stringp nil)
  intern-soft(nil [...])
  (symbol-value (intern-soft group gnus-newsrc-hashtb))
  (gnus-gethash group gnus-newsrc-hashtb)
  (let ((entry ...) active info) (if entry (progn ... ...) (gnus-group-insert-group-line group ... nil ... nil)))
  gnus-group-insert-group-line-info(nil)
  (let* ((buffer-read-only nil) (group ...) (gnus-group-indentation ...) (entry ...)) (and entry (not ...) (gnus-dribble-enter ...)) (gnus-delete-line) (gnus-group-insert-group-line-info group) (forward-line -1) (gnus-group-position-point))
  gnus-group-update-group-line()
  (while groups (setq group (car groups) groups (cdr groups)) (gnus-group-remove-mark group) (gnus-message 6 "Changed level of %s from %d to %d" group (or ... gnus-level-killed) level) (gnus-group-change-level group level (or ... gnus-level-killed)) (gnus-group-update-group-line))
  (let ((groups ...) group) (while groups (setq group ... groups ...) (gnus-group-remove-mark group) (gnus-message 6 "Changed level of %s from %d to %d" group ... level) (gnus-group-change-level group level ...) (gnus-group-update-group-line)))
  gnus-group-set-current-level(nil 3)
* call-interactively(gnus-group-set-current-level)





------------------ Environment follows ------------------

(setq gnus-default-nntp-server "news.mit.edu")
(setq gnus-local-domain "mit.edu")
(setq gnus-local-organization "Massachvsetts Institvte of Technology")
(setq gnus-use-generic-from "mit.edu")
(setq gnus-secondary-select-methods '((nnml ""))
)
(setq gnus-nntp-server "news.mit.edu")
(setq gnus-startup-file "~/News/.newsrc")
(setq gnus-asynchronous t)
(setq gnus-kill-files-directory "~/News/killfiles")
(setq gnus-default-article-saver 'gnus-summary-save-in-file)
(setq gnus-keep-backlog 2)
(setq gnus-verbose 10)
(setq gnus-summary-gather-subject-limit 'fuzzy)
(setq gnus-summary-goto-unread 'never)
(setq gnus-goto-next-group-when-activating nil)
(setq gnus-check-new-newsgroups '((nntp "news.mit.edu")
 (nnml ""))
)
(setq gnus-activate-foreign-newsgroups 2)
(setq gnus-save-newsrc-file nil)
(setq gnus-save-killed-list nil)
(setq gnus-list-groups-with-ticked-articles nil)
(setq gnus-decode-encoded-word-method #[nil "À‡" [nil] 1])
(setq gnus-thread-ignore-subject t)
(setq gnus-thread-indent-level 2)
(setq gnus-visible-headers "^From:\\|^Gnus-Warning")
(setq gnus-summary-check-current t)
(setq gnus-group-line-format "%p%S %P%5y %L: %(%G%) %z\n")
(setq gnus-summary-dummy-line-format "   [                          ] %S\n")
(setq gnus-total-expirable-newsgroups "^nnml:mail\\.")
(setq gnus-summary-prepare-exit-hook '(gnus-summary-expire-articles)
)
(setq gnus-summary-exit-hook '(gnus-topic-update-topic)
)
(setq gnus-group-catchup-group-hook '(gnus-topic-update-topic)
)
(setq gnus-startup-hook '((lambda nil
   (remove-hook
    'gnus-summary-prepare-hook
    'hilit-rehighlight-buffer-quietly)
   (remove-hook
    'gnus-summary-prepare-hook
    'hilit-install-line-hooks)
   (setq gnus-mark-article-hook
	 '(gnus-summary-mark-unread-as-read))
   (remove-hook
    'gnus-article-prepare-hook
    'hilit-rehighlight-buffer-quietly))
 #[nil "ÀÁÂ\"ˆÀÁÃ\"ˆÄ\x15ÀÆÂ\"‡" [remove-hook gnus-summary-prepare-hook hilit-rehighlight-buffer-quietly hilit-install-line-hooks
 (gnus-summary-mark-unread-as-read)
 gnus-mark-article-hook gnus-article-prepare-hook] 3])
)
(setq gnus-save-quick-newsrc-hook '((lambda nil
   (mapcar
    'make-local-variable
    '(version-control delete-old-versions kept-new-versions kept-old-versions))
   (setq version-control t delete-old-versions t kept-new-versions 10 kept-old-versions 0)))
)
(setq gnus-group-change-level-function 'gnus-topic-change-level)
(setq gnus-organization-file "~/News/.organization")
(setq gnus-post-prepare-hook '(my-spook-header-func my-yow-header-func)
)
(setq gnus-signature-file "~/News/.signature")
(setq gnus-required-headers '(From Date Newsgroups Subject
      (optional . In-Reply-To)
      Message-ID Organization Lines X-Newsreader)
)
(setq gnus-required-mail-headers '(From Date To Subject
      (optional . In-Reply-To)
      Message-ID Organization Lines X-Mailer)
)
(setq nnmail-split-methods '(("mail.reuse" "^To:.*\\breuse@MIT.EDU")
 ("mail.linux-atalk" "^To: Multiple recipients of list LINUX-ATALK")
 ("mail.linux-atalk" "^Resent-To: netatalk-admins@umich.edu")
 ("mail.security" "^Sender: owner-best-of-security@suburbia.net")
 ("mail.pthreads" "pthreads")
 ("archive.jobs" "^Subject:.*\\b\\(job\\|urop\\|intern\\)")
 ("archive.ding-users" "^To:.*ding-users")
 ("mail.ding" "ding@ifi.uio.no")
 ("mail.ding" "gnus-bug@ifi.uio.no")
 ("mail.pika" "pika")
 ("mail.6.270" "6\\.270")
 ("mail.misc" ""))
)
(setq nnmail-crosspost nil)
(setq nnmail-use-long-file-names t)
(setq nnmail-spool-file "po:gsstark")
(setq nnmail-crash-box "~/News/.nnmail-crash-box")
(setq nnmail-crosspost-link-function 'copy-file)
(setq nnmail-delete-incoming t)
(setq nnmail-message-id-cache-file "~/News/.nnmail-cache")