Gnus development mailing list
 help / color / mirror / Atom feed
From: gsstark@MIT.EDU (Greg Stark)
Cc: ding@ifi.uio.no
Subject: I can't set levels of my groups.
Date: 20 Feb 1996 01:40:07 -0500	[thread overview]
Message-ID: <ycqvil21ovs.fsf@lola-granola.MIT.EDU> (raw)

[-- 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")



                 reply	other threads:[~1996-02-20  6:40 UTC|newest]

Thread overview: [no followups] expand[flat|nested]  mbox.gz  Atom feed

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=ycqvil21ovs.fsf@lola-granola.MIT.EDU \
    --to=gsstark@mit.edu \
    --cc=ding@ifi.uio.no \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).