From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/21181
Path: main.gmane.org!not-for-mail
From: mpullen@midwest.net
Newsgroups: gmane.emacs.gnus.general
Subject: error starting pgnus 0.76
Date: 12 Feb 1999 16:51:43 -0600
Sender: owner-ding@hpc.uh.edu
Message-ID: <m3u2wrnslc.fsf@darby.net>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035159336 21719 80.91.224.250 (21 Oct 2002 00:15:36 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 00:15:36 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id RAA18250
	for <jason@mailhost.sclp.com>; Fri, 12 Feb 1999 17:48:11 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id QAB27344;
	Fri, 12 Feb 1999 16:47:00 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 12 Feb 1999 16:47:52 -0600 (CST)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id QAA28087 for <ding@hpc.uh.edu>; Fri, 12 Feb 1999 16:47:37 -0600 (CST)
Original-Received: from cdale3.midwest.net (root@cdale3.midwest.net [208.235.1.20])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id RAA18204
	for <ding@gnus.org>; Fri, 12 Feb 1999 17:47:29 -0500 (EST)
Original-Received: from 208.235.6.156 (metropolis18.midwest.net [208.235.6.156])
	by cdale3.midwest.net (8.9.3/8.9.1) with ESMTP id QAA13234
	for <ding@gnus.org>; Fri, 12 Feb 1999 16:47:03 -0600 (CST)
Original-Received: (qmail 24738 invoked by uid 500); 12 Feb 1999 22:51:44 -0000
Original-To: ding@gnus.org
Original-Lines: 89
X-Mailer: Gnus v5.6.43/XEmacs 20.3 - "Vatican City"
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:21181
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:21181

When starting 0.76, pgnus refuses gives me an error.  Following is the 
backtrace.



Signaling: (void-variable z)
  (let ((file ...)) z (if first (funcall nnmail-crosspost-link-function first file t) (nnmail-write-region ... ... file nil ...) (setq first file)))
)
  (while ga (nnml-possibly-create-directory (caar ga)) (let (...) z (if first ... ... ...)) (setq ga (cdr ga)))
)
  (let ((ga group-art) first) (while ga (nnml-possibly-create-directory ...) (let ... z ...) (setq ga ...)))
)
  (let (chars headers) (setq chars (nnmail-insert-lines)) (nnmail-insert-xref group-art) (run-hooks (quote nnmail-prepare-save-mail-hook)) (run-hooks (quote nnml-prepare-save-mail-hook)) (goto-char (point-min)) (while (looking-at "From ") (replace-match "X-From-Line: ") (forward-line 1)) (let (... first) (while ga ... ... ...)) (setq headers (nnml-parse-head chars)) (let (...) (while ga ... ...)) group-art)
)
  nnml-save-mail((("DingGnus" . 5613)))
  funcall(nnml-save-mail (("DingGnus" . 5613)))
  (cond ((not duplication) (funcall func ...) (nnmail-cache-insert message-id)) ((eq action ...) (setq group-art nil)) ((eq action ...) (let ... ... ... ... ... ...)) (t (funcall func ...)))
)
  (let* ((duplication ...) (case-fold-search t) (action ...) group-art) (let (...) (goto-char ...) (re-search-forward "^message-id[ 	]*:" nil t) (beginning-of-line) (insert ...)) (cond (... ... ...) (... ...) (... ...) (t ...)) (if group-art (push group-art nnmail-split-history) (delete-region ... ...)))
)
  nnmail-check-duplication("<87zp6ka5bd.fsf@oppy.dyn.ez-ip.net>" nnml-save-mail nnml-active-number)
  (save-restriction (narrow-to-region start (point)) (goto-char (point-min)) (nnmail-check-duplication message-id func artnum-func) (setq end (point-max)))
)
  (save-excursion (save-restriction (narrow-to-region start ...) (goto-char ...) (nnmail-check-duplication message-id func artnum-func) (setq end ...)))
)
  (while (not (eobp)) (setq start (point) end nil) (narrow-to-region start (if ... ... ... ...)) (goto-char (point-min)) (if (re-search-forward "^Message-ID[ 	]*:[ \n	]*\\(<[^>]+>\\)" nil t) (setq message-id ...) (save-excursion ...) (forward-line 1) (insert "Message-ID: " ... "\n")) (goto-char (point-min)) (if (not ...) (setq content-length nil) (setq content-length ...) (beginning-of-line) (insert "X-")) (run-hooks (quote nnmail-prepare-incoming-header-hook)) (goto-char (point-max)) (widen) (setq head-end (point)) (when content-length (forward-line 1) (setq skip ...) (goto-char skip) (cond ... ... ... ...)) (if end (goto-char end) (goto-char head-end) (or ... ...)) (save-excursion (save-restriction ... ... ... ...)) (goto-char end))
)
  (if (not (and ... ...)) (progn (pop-to-buffer ...) (error "Error, unknown mail format! (Possibly corrupted.)")) (while (not ...) (setq start ... end nil) (narrow-to-region start ...) (goto-char ...) (if ... ... ... ... ...) (goto-char ...) (if ... ... ... ... ...) (run-hooks ...) (goto-char ...) (widen) (setq head-end ...) (when content-length ... ... ... ...) (if end ... ... ...) (save-excursion ...) (goto-char end)))
)
  (let ((case-fold-search t) start message-id content-length end skip head-end) (goto-char (point-min)) (if (not ...) (progn ... ...) (while ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
)
  nnmail-process-unix-mail-format(nnml-save-mail nnml-active-number)
  (cond ((or ... ...) (nnmail-process-babyl-mail-format func artnum-func)) ((looking-at "



") (nnmail-process-mmdf-mail-format func artnum-func)) ((looking-at "Return-Path:") (nnmail-process-maildir-mail-format func artnum-func)) (t (nnmail-process-unix-mail-format func artnum-func)))
)
  (if (zerop (buffer-size)) nil (goto-char (point-min)) (save-excursion (run-hooks ...)) (cond (... ...) (... ...) (... ...) (t ...)))
)
  (unless (zerop (buffer-size)) (goto-char (point-min)) (save-excursion (run-hooks ...)) (cond (... ...) (... ...) (... ...) (t ...)))
)
  (save-excursion (set-buffer (get-buffer-create " *nnmail incoming*")) (erase-buffer) (let (...) (nnheader-insert-file-contents incoming)) (unless (zerop ...) (goto-char ...) (save-excursion ...) (cond ... ... ... ...)) (when exit-func (funcall exit-func)) (kill-buffer (current-buffer)))
)
  (let ((nnmail-split-methods ...)) (save-excursion (set-buffer ...) (erase-buffer) (let ... ...) (unless ... ... ... ...) (when exit-func ...) (kill-buffer ...)))
)
  nnmail-split-incoming("~/.emacs-mail-crash-box" nnml-save-mail nil nil nnml-active-number)
  (lambda (file orig-file) (nnmail-split-incoming file (quote nnml-save-mail) (quote nil) (nnmail-get-split-group orig-file source) (quote nnml-active-number)))("~/.emacs-mail-crash-box" "~/.emacs-mail-crash-box")
  funcall((lambda (file orig-file) (nnmail-split-incoming file (quote nnml-save-mail) (quote nil) (nnmail-get-split-group orig-file source) (quote nnml-active-number))) "~/.emacs-mail-crash-box" "~/.emacs-mail-crash-box")
  (if (or (not ...) (zerop ...)) (progn (when ... ...) 0) (funcall callback mail-source-crash-box info) (when (file-exists-p mail-source-crash-box) (if mail-source-delete-incoming ... ...)) 1)
)
  mail-source-callback((lambda (file orig-file) (nnmail-split-incoming file (quote nnml-save-mail) (quote nil) (nnmail-get-split-group orig-file source) (quote nnml-active-number))) "~/.emacs-mail-crash-box")
  (setq found (mail-source-callback callback mail-source-crash-box))
)
  (progn (message "Processing mail from %s..." mail-source-crash-box) (setq found (mail-source-callback callback mail-source-crash-box)))
)
  (if (file-exists-p mail-source-crash-box) (progn (message "Processing mail from %s..." mail-source-crash-box) (setq found ...)))
)
  (when (file-exists-p mail-source-crash-box) (message "Processing mail from %s..." mail-source-crash-box) (setq found (mail-source-callback callback mail-source-crash-box)))
)
  (let ((function ...) (found 0)) (unless function (error "%S is an invalid mail source specification" source)) (when (file-exists-p mail-source-crash-box) (message "Processing mail from %s..." mail-source-crash-box) (setq found ...)) (+ found (funcall function source callback)))
)
  (save-excursion (let (... ...) (unless function ...) (when ... ... ...) (+ found ...)))
)
  mail-source-fetch((file :path "/var/spool/mail/mpullen") (lambda (file orig-file) (nnmail-split-incoming file (quote nnml-save-mail) (quote nil) (nnmail-get-split-group orig-file source) (quote nnml-active-number))))
  (and source (mail-source-fetch source (backquote ...)))
)
  (if (and source (mail-source-fetch source ...)) (progn (incf i)))
)
  (when (and source (mail-source-fetch source ...)) (incf i))
)
  (while (setq source (pop sources)) (cond (... ...) (... ... nil)) (nnheader-message 4 "%s: Reading incoming mail from %s..." method (car source)) (when (and ... group) (setq source ...)) (when nnmail-fetched-sources (if ... ... ...)) (when (and source ...) (incf i)))
)
  (progn (nnmail-activate method) (run-hooks (quote nnmail-pre-get-new-mail-hook)) (nnmail-cache-open) (while (setq source ...) (cond ... ...) (nnheader-message 4 "%s: Reading incoming mail from %s..." method ...) (when ... ...) (when nnmail-fetched-sources ...) (when ... ...)) (unless (zerop i) (nnmail-save-active ... ...) (when exit-func ...) (run-hooks ...) (nnheader-message 4 "%s: Reading incoming mail...done" method)) (nnmail-cache-close) (run-hooks (quote nnmail-post-get-new-mail-hook)))
)
  (if (and (nnmail-get-value "%s-get-new-mail" method) nnmail-spool-file) (progn (nnmail-activate method) (run-hooks ...) (nnmail-cache-open) (while ... ... ... ... ... ...) (unless ... ... ... ... ...) (nnmail-cache-close) (run-hooks ...)))
)
  (when (and (nnmail-get-value "%s-get-new-mail" method) nnmail-spool-file) (nnmail-activate method) (run-hooks (quote nnmail-pre-get-new-mail-hook)) (nnmail-cache-open) (while (setq source ...) (cond ... ...) (nnheader-message 4 "%s: Reading incoming mail from %s..." method ...) (when ... ...) (when nnmail-fetched-sources ...) (when ... ...)) (unless (zerop i) (nnmail-save-active ... ...) (when exit-func ...) (run-hooks ...) (nnheader-message 4 "%s: Reading incoming mail...done" method)) (nnmail-cache-close) (run-hooks (quote nnmail-post-get-new-mail-hook)))
)
  (let* ((sources ...) (group-in group) (i 0) nnmail-current-spool incoming incomings source) (when (and ... nnmail-spool-file) (nnmail-activate method) (run-hooks ...) (nnmail-cache-open) (while ... ... ... ... ... ...) (unless ... ... ... ... ...) (nnmail-cache-close) (run-hooks ...)))
)
  nnmail-get-new-mail(nnml nnml-save-nov "~/Mail" nil)
  nnml-request-scan(nil "")
  gnus-request-scan(nil (nnml ""))
  gnus-read-active-file(nil nil)
  gnus-setup-news(nil nil nil)
  byte-code("¬ˆ	¬… ˆªÂÃÄ!ˆÅ!¬„	«ƒÊ ˆ«ˆÌ ˆÍÎÏ\"ˆÐÑ#ˆÃÓ!ˆÔ ˆÕ!ˆÖ ˆ×Ø!ˆÙ ˆÃÚ!ˆÑ‡" [dont-connect did-connect gnus-group-quit gnus-run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-startup-file gnus-current-startup-file gnus-slave gnus-use-dribble-file gnus-dribble-read-file gnus-use-grouplens bbb-login add-hook gnus-summary-mode-hook gnus-grouplens-mode gnus-setup-news nil level 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] 4)
  gnus-1(nil nil nil)
  gnus(nil)
  call-interactively(gnus)
  command-execute(gnus t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)