error starting pgnus 0.76

error starting pgnus 0.76

[mpullen]

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

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 "\x01\x01\x01\x01") (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("\b¬ˆ	¬… ˆªÂÃÄ!ˆÅ\x0e\x06!\x16\a\x0e\b¬„\x0e	«ƒÊ ˆ\x0e\v«ˆÌ ˆÍÎÏ\"ˆÐÑ\x0e\x12\b#ˆÃÓ!ˆÔ ˆÕ\x0e\x12!ˆÖ ˆ×Ø!ˆÙ ˆÃÚ!ˆÑ‡" [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)

Re: error starting pgnus 0.76

[Lars Magne Ingebrigtsen]

mpullen@midwest.net writes:

> Signaling: (void-variable z)

Yup.  Fix in Pterodactyl Gnus v0.77.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen