'void-variable nnml-get-new-mail' with today's cvs gnus

'void-variable nnml-get-new-mail' with today's cvs gnus

[Bill White]

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

Debugger entered--Lisp error: (void-variable nnml-get-new-mail)
  eval(nnml-get-new-mail)
  (and (gnus-method-option-p be (quote respool)) (eval (intern ...)))
  (if (and (gnus-method-option-p be ...) (eval ...)) (progn (setq res be)))
  (when (and (gnus-method-option-p be ...) (eval ...)) (setq res be))
  (while (and (null res) be-list) (setq be (car be-list)) (setq be-list (cdr be-list)) (when (and ... ...) (setq res be)))
  (let ((be-list ...) (be nil) (res nil)) (while (and ... be-list) (setq be ...) (setq be-list ...) (when ... ...)) res)
  nnmail-cache-primary-mail-backend()
  (gnus-methods-equal-p gnus-command-method (nnmail-cache-primary-mail-backend))
  (and g (not (string= "" g)) (gnus-methods-equal-p gnus-command-method (nnmail-cache-primary-mail-backend)))
  (if (and g (not ...) (gnus-methods-equal-p gnus-command-method ...)) (insert id "	" g "\n") (insert id "\n"))
  (save-excursion (set-buffer nnmail-cache-buffer) (goto-char (point-max)) (if (and g ... ...) (insert id "	" g "\n") (insert id "\n")))
  (let ((g nil)) (cond (grp ...) (... ...) (... ...) (... ...) (t ...)) (unless (gnus-buffer-live-p nnmail-cache-buffer) (nnmail-cache-open)) (save-excursion (set-buffer nnmail-cache-buffer) (goto-char ...) (if ... ... ...)))
  (progn (let (...) (cond ... ... ... ... ...) (unless ... ...) (save-excursion ... ... ...)))
  (if nnmail-treat-duplicates (progn (let ... ... ... ...)))
  (when nnmail-treat-duplicates (let (...) (cond ... ... ... ... ...) (unless ... ...) (save-excursion ... ... ...)))
  nnmail-cache-insert("<NEBBKIFGELGCIPBHOCLJIEDAEOAA.kevin@netptc.net>")
  (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("<NEBBKIFGELGCIPBHOCLJIEDAEOAA.kevin@netptc.net>" nnfolder-save-mail nnfolder-active-number)
  (save-restriction (narrow-to-region start (point)) (goto-char (point-min)) (incf count) (nnmail-check-duplication message-id func artnum-func) (setq end (point-max)))
  (save-excursion (save-restriction (narrow-to-region start ...) (goto-char ...) (incf count) (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 ... ...)) (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) (count 0) start message-id content-length end skip head-end) (goto-char (point-min)) (if (not ...) (error "Error, unknown mail format! (Possibly corrupted.)") (while ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) count)
  nnmail-process-unix-mail-format(nnfolder-save-mail nnfolder-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)) 0 (goto-char (point-min)) (save-excursion (run-hooks ...)) (cond (... ...) (... ...) (... ...) (t ...)))
  (prog1 (if (zerop ...) 0 (goto-char ...) (save-excursion ...) (cond ... ... ... ...)) (when exit-func (funcall exit-func)) (kill-buffer (current-buffer)))
  (save-excursion (set-buffer (get-buffer-create nnmail-article-buffer)) (erase-buffer) (let (...) (mm-insert-file-contents incoming)) (prog1 (if ... 0 ... ... ...) (when exit-func ...) (kill-buffer ...)))
  (let ((nnmail-split-methods ...)) (save-excursion (set-buffer ...) (erase-buffer) (let ... ...) (prog1 ... ... ...)))
  nnmail-split-incoming("/billw/Mail-2002/.emacs-mail-crash-box" nnfolder-save-mail nil nil nnfolder-active-number)
  #[(file orig-file) "Â\bÃÄ\b	žº?ž¥\x0f
  funcall(#[(file orig-file) "Â\bÃÄ\b	žº?ž¥\x0f
  (prog1 (funcall callback mail-source-crash-box info) (when (file-exists-p mail-source-crash-box) (if mail-source-delete-incoming ... ...)))
  (if (or (not ...) (zerop ...)) (progn (when ... ...) 0) (prog1 (funcall callback mail-source-crash-box info) (when ... ...)))
  mail-source-callback(#[(file orig-file) "Â\bÃÄ\b	žº?ž¥\x0f
  (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 (if ... ... ...)))
  (save-excursion (let (... ...) (unless function ...) (when ... ... ...) (+ found ...)))
  (if (or mail-source-plugged plugged) (save-excursion (let ... ... ... ...)))
  (let ((plugged nil)) (mail-source-set-common-1 source) (if (or mail-source-plugged plugged) (save-excursion ...)))
  (mail-source-bind-common source (if (or mail-source-plugged plugged) (save-excursion ...)))
  mail-source-fetch((pop :server "pop.wolfram.com" :user "billw" :dontexpunge nil) #[(file orig-file) "Â\bÃÄ\b	žº?ž¥\x0f
  (setq new (mail-source-fetch source (gnus-byte-compile ...)))
  (if (setq new (mail-source-fetch source ...)) (progn (incf total new) (incf i)))
  (when (setq new (mail-source-fetch source ...)) (incf total new) (incf i))
  (while (setq source (pop fetching-sources)) (nnheader-message 4 "%s: Reading incoming mail from %s..." method (car source)) (when (setq new ...) (incf total new) (incf i)))
  (progn (nnmail-activate method) (run-hooks (quote nnmail-pre-get-new-mail-hook)) (nnmail-cache-open) (while (setq source ...) (nnheader-message 4 "%s: Reading incoming mail from %s..." method ...) (when ... ... ...)) (if (zerop total) (nnheader-message 4 "%s: Reading incoming mail (no new mail)...done" method ...) (nnmail-save-active ... ...) (when exit-func ...) (run-hooks ...) (nnheader-message 4 "%s: Reading incoming mail (%d new)...done" method total)) (nnmail-cache-close) (run-hooks (quote nnmail-post-get-new-mail-hook)))
  (if fetching-sources (progn (nnmail-activate method) (run-hooks ...) (nnmail-cache-open) (while ... ... ...) (if ... ... ... ... ... ...) (nnmail-cache-close) (run-hooks ...)))
  (when fetching-sources (nnmail-activate method) (run-hooks (quote nnmail-pre-get-new-mail-hook)) (nnmail-cache-open) (while (setq source ...) (nnheader-message 4 "%s: Reading incoming mail from %s..." method ...) (when ... ... ...)) (if (zerop total) (nnheader-message 4 "%s: Reading incoming mail (no new mail)...done" method ...) (nnmail-save-active ... ...) (when exit-func ...) (run-hooks ...) (nnheader-message 4 "%s: Reading incoming mail (%d new)...done" method total)) (nnmail-cache-close) (run-hooks (quote nnmail-post-get-new-mail-hook)))
  (let* ((sources ...) fetching-sources (group-in group) (i 0) (new 0) (total 0) incoming incomings source) (when (and ... sources) (while ... ... ... ...)) (when fetching-sources (nnmail-activate method) (run-hooks ...) (nnmail-cache-open) (while ... ... ...) (if ... ... ... ... ... ...) (nnmail-cache-close) (run-hooks ...)))
  nnmail-get-new-mail(nnfolder (lambda nil (let (...) (save-excursion ...))) "/billw/Mail-home/sent-mail/" "catholicity.homeschool.2002.10")
  (progn (nnfolder-possibly-change-group group server) (nnmail-get-new-mail (quote nnfolder) (lambda nil ...) nnfolder-directory group))
  (if nnfolder-get-new-mail (progn (nnfolder-possibly-change-group group server) (nnmail-get-new-mail ... ... nnfolder-directory group)))
  (when nnfolder-get-new-mail (nnfolder-possibly-change-group group server) (nnmail-get-new-mail (quote nnfolder) (lambda nil ...) nnfolder-directory group))
  nnfolder-request-scan("catholicity.homeschool.2002.10" "archive")
  funcall(nnfolder-request-scan "catholicity.homeschool.2002.10" "archive")
  (if (or gnus-plugged (not ...)) (funcall (gnus-get-function gnus-command-method ...) (and group ...) (nth 1 gnus-command-method)))
  (let ((gnus-command-method ...) (gnus-inhibit-demon t) (mail-source-plugged gnus-plugged)) (if (or gnus-plugged ...) (funcall ... ... ...)))
  gnus-request-scan("nnfolder+archive:catholicity.homeschool.2002.10" (nnfolder "archive" (nnfolder-inhibit-expiry t) (nnfolder-active-file "/billw/Mail-home/sent-mail/active") (nnfolder-directory "/billw/Mail-home/sent-mail/")))
  (and scan (gnus-check-backend-function (quote request-scan) (car method)) (gnus-request-scan group method))
  (progn (and scan (gnus-check-backend-function ... ...) (gnus-request-scan group method)) t)
  (and (inline (gnus-check-server method)) (progn (and scan ... ...) t) (if (or debug-on-error debug-on-quit) (inline ...) (condition-case nil ... ...)) (unless dont-check (setq active ...) (if ... ... ... active)))
  (let ((method ...) active) (and (inline ...) (progn ... t) (if ... ... ...) (unless dont-check ... ...)))
  gnus-activate-group("nnfolder+archive:catholicity.homeschool.2002.10" scan)
  (setq active (gnus-activate-group group (quote scan)))
  (and (<= (gnus-info-level info) foreign-level) (setq active (gnus-activate-group group ...)))
  (if (and (<= ... foreign-level) (setq active ...)) (progn (when ... ...) (unless ... ...) (when ... ...)))
  (when (and (<= ... foreign-level) (setq active ...)) (when (and gnus-agent active ...) (gnus-agent-save-group-info method ... active)) (unless (inline ...) (inline ...)) (when (fboundp ...) (inline ...)))
  (if (and (setq method ...) (not ...) (not ...)) (when (and ... ...) (when ... ...) (unless ... ...) (when ... ...)) (cond (... ...) (... ...)))
  (while newsrc (setq active (gnus-active ...)) (if (and ... ... ...) (when ... ... ... ...) (cond ... ...)) (cond (...) (active ...) (t ... ...)))
  (let* ((newsrc ...) (level ...) (foreign-level ...) scanned-methods info group active method retrieve-groups) (gnus-message 5 "Checking new news...") (while newsrc (setq active ...) (if ... ... ...) (cond ... ... ...)) (dolist (rg retrieve-groups) (let ... ...)) (gnus-message 5 "Checking new news...done"))
  gnus-get-unread-articles(2)
  (let ((gnus-read-active-file ...)) (gnus-get-unread-articles level))
  (let ((init ...) (nnmail-fetched-sources ...)) (when init (setq gnus-newsrc-alist nil gnus-active-hashtb nil) (gnus-read-newsrc-file rawfile)) (when gnus-message-archive-method (unless ... ...)) (when (or ... ...) (gnus-update-active-hashtb-from-killed)) (and gnus-read-active-file (not level) (gnus-read-active-file nil dont-connect)) (unless gnus-active-hashtb (setq gnus-active-hashtb ...)) (when gnus-use-cache (gnus-cache-open)) (and init (or gnus-use-dribble-file gnus-slave) (gnus-dribble-eval-file)) (when (and init gnus-slave) (gnus-dribble-clear)) (gnus-update-format-specifications) (when (and ... ... ... ... ... gnus-read-active-file) (gnus-read-all-descriptions-files)) (when (and init gnus-check-new-newsgroups ... ... ... gnus-plugged) (gnus-find-new-newsgroups)) (when (and init gnus-check-bogus-newsgroups gnus-read-active-file ... ...) (gnus-check-bogus-newsgroups)) (when (and gnus-use-nocem ... ...) (gnus-nocem-scan-groups)) (gnus-master-read-slave-newsrc) (let (..!
 
.) (gnus-get-unread-articles level)))
  gnus-setup-news(nil 2 t)
  (if (and (not dont-connect) (not did-connect)) (gnus-group-quit) (gnus-run-hooks (quote gnus-startup-hook)) (setq gnus-current-startup-file (gnus-make-newsrc-file gnus-startup-file)) (when (or gnus-slave gnus-use-dribble-file) (gnus-dribble-read-file)) (when gnus-use-grouplens (bbb-login) (add-hook ... ...)) (if gnus-agent (gnus-request-create-group "queue" ...)) (gnus-request-create-group "drafts" (quote ...)) (gnus-setup-news nil level dont-connect) (gnus-run-hooks (quote gnus-setup-news-hook)) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows (quote group)) (gnus-group-set-mode-line) (gnus-run-hooks (quote gnus-started-hook)))
  (unwind-protect (progn (unless dont-connect ...)) (if (and ... ...) (gnus-group-quit) (gnus-run-hooks ...) (setq gnus-current-startup-file ...) (when ... ...) (when gnus-use-grouplens ... ...) (if gnus-agent ...) (gnus-request-create-group "drafts" ...) (gnus-setup-news nil level dont-connect) (gnus-run-hooks ...) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows ...) (gnus-group-set-mode-line) (gnus-run-hooks ...)))
  (let ((level ...) did-connect) (unwind-protect (progn ...) (if ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (if (gnus-alive-p) (progn (switch-to-buffer gnus-group-buffer) (gnus-group-get-new-news ...)) (gnus-clear-system) (gnus-splash) (gnus-run-hooks (quote gnus-before-startup-hook)) (nnheader-init-server-buffer) (setq gnus-slave slave) (gnus-read-init-file) (if gnus-agent (gnus-agentize)) (when gnus-simple-splash (setq gnus-simple-splash nil) (cond ... ...)) (let (... did-connect) (unwind-protect ... ...)))
  gnus-1(2 t nil)
  gnus(2 t nil)
  (let ((val ...)) (gnus val t slave) (make-local-variable (quote gnus-group-use-permanent-levels)) (setq gnus-group-use-permanent-levels val))
  gnus-no-server-1(nil nil)
  gnus-no-server()
  gnus-2002()
  call-interactively(gnus-2002)