problems in InfoDock (a XEmacs clone)

problems in InfoDock (a XEmacs clone)

[Vladimir Alexiev]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: TEXT/PLAIN; charset=UNKNOWN-8BIT, Size: 5536 bytes --]

Gnus v5.0.15; nntp 4.0; nnbabyl 1.0
InfoDock 3.4, XEmacs 19.13 of Fri Nov  3 1995 on meltdown (berkeley-unix)

I am trying to switch from Emacs 19.30.1 to InfoDock. I installed Gnus
5.0.15, because I wasn't sure the 5.1 in the Emacs distribution would work
with InfoDock.

Gnus starts ok, but says "no news". I looked in newsrc.el and saw that it
discarded all my nntp groups (but one nnfoled group remained); good thing
it saves a backup. I thought this might be a version problem (the file is
stamped with the Gnus version), so I fixed that manually and restarted it.
No luck, it nulled out newsrc.eld again.

Then I tried to subscribe to a group, and got this. It might not be a Gnus
bug, but some deficiency of InfoDock compared to XEmacs (although I doubt
it). 

Signalling: (invalid-function (macro . #<byte-code (string hashtable) "ÀÁ
\vED‡" [symbol-value intern-soft string hashtable] 4 "Get hash value of STRING in HASHTABLE.">))
  gnus-gethash("ualberta.cs.software" [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...])
  gnus-group-insert-group-line-info("ualberta.cs.software")
  gnus-group-update-group("ualberta.cs.software")
  #<byte-code (group &optional level) "À...
  call-interactively(gnus-group-unsubscribe-group)

(defmacro gnus-gethash (string hashtable)
  (` (symbol-value (intern-soft (, string) (, hashtable)))))

symbol-value and intern-soft are, of course, defined. backquote is loaded.

If you reply, please send CC to me. Thanks in advance, Vlad

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

;; (makeunbound 'gnus-score-exact-adapt-limit)
;; (makeunbound 'gnus-score-mimic-keymap)
;; (makeunbound 'gnus-default-adaptive-score-alist)
;; (makeunbound 'gnus-orphan-score)
;; (makeunbound 'gnus-score-expiry-days)
(setq gnus-check-before-posting '(subject-cmsg multiple-headers sendsys message-id from control-chars size new-text signature))
(setq gnus-signature-file nil)
(setq gnus-user-from-line "Vladimir Alexiev <vladimir@cs.ualberta.ca>")
(setq gnus-author-copy "~/.newspost-log")
(setq gnus-prepare-article-hook '(mail-abbrevs-setup))
(setq gnus-startup-hook '((lambda nil (load-library "lenst") (setq gnus-ignored-headers (concat gnus-ignored-headers "\\|^NNTP-Posting-Host:\\|^X-"))) #<byte-code 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-article-mode-hook '((lambda nil (easy-menu-add gnus-article-article-menu) (easy-menu-add gnus-article-treatment-menu)) (lambda nil (easy-menu-add gnus-article-article-menu) (easy-menu-add gnus-article-treatment-menu)) (lambda nil (easy-menu-add gnus-article-article-menu) (easy-menu-add gnus-article-treatment-menu)) ffap-gnus-hook))
(setq gnus-summary-mode-hook '((lambda nil (easy-menu-add gnus-summary-article-menu) (easy-menu-add gnus-summary-thread-menu) (easy-menu-add gnus-summary-misc-menu) (easy-menu-add gnus-summary-post-menu) (easy-menu-add gnus-summary-kill-menu) (gnus-install-mouse-tracker)) (lambda nil (easy-menu-add gnus-summary-article-menu) (easy-menu-add gnus-summary-thread-menu) (easy-menu-add gnus-summary-misc-menu) (easy-menu-add gnus-summary-post-menu) (easy-menu-add gnus-summary-kill-menu) (gnus-install-mouse-tracker)) (lambda nil (make-local-variable (quote next-screen-context-lines)) (setq next-screen-context-lines 0)) (lambda nil (easy-menu-add gnus-summary-article-menu) (easy-menu-add gnus-summary-thread-menu) (easy-menu-add gnus-summary-misc-menu) (easy-menu-add gnus-summary-post-menu) (easy-menu-add gnus-summary-kill-menu) (gnus-install-mouse-tracker)) ffap-gnus-hook))
(setq gnus-group-mode-hook '((lambda nil (easy-menu-add gnus-group-reading-menu) (easy-menu-add gnus-group-group-menu) (easy-menu-add gnus-group-misc-menu) (gnus-install-mouse-tracker)) (lambda nil (easy-menu-add gnus-group-reading-menu) (easy-menu-add gnus-group-group-menu) (easy-menu-add gnus-group-misc-menu) (gnus-install-mouse-tracker)) (lambda nil (easy-menu-add gnus-group-reading-menu) (easy-menu-add gnus-group-group-menu) (easy-menu-add gnus-group-misc-menu) (gnus-install-mouse-tracker))))
(setq gnus-summary-line-format "%U%R%z%e%I%(%[%4L: %-20,20n%]%) %s
")
(setq gnus-break-pages nil)
(setq gnus-auto-center-summary nil)
(setq gnus-auto-select-same t)
(setq gnus-auto-select-next 'ask)
(setq gnus-auto-select-first nil)
(setq gnus-save-all-headers nil)
(setq gnus-ignored-headers "^Path:\\|^Posting-Version:\\|^Article-I.D.:\\|^Expires:\\|^Date-Received:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:\\|^Nf-From:\\|^Approved:\\|^Sender:\\|^Received:\\|^Mail-from:\\|^NNTP-Posting-Host:\\|^X-\\|^NNTP-Posting-Host:\\|^X-\\|^NNTP-Posting-Host:\\|^X-")
(setq gnus-thread-indent-level 2)
(setq gnus-thread-ignore-subject t)
(setq gnus-thread-hide-subtree t)
(setq gnus-interactive-post nil)
(setq gnus-interactive-catchup nil)
(setq gnus-save-newsrc-file nil)
(setq gnus-read-active-file nil)
(setq gnus-check-new-newsgroups nil)
(setq gnus-summary-gather-subject-limit 'fuzzy)
(setq gnus-novice-user nil)
(setq gnus-use-cross-reference 'all)
(setq gnus-nntp-server "scapa")
(setq gnus-select-method '(nntp "scapa"))
(setq gnus-use-generic-from t)
(setq gnus-local-organization "University of Alberta, Computing Science")
(setq gnus-local-domain "none.none")