Re: [rmail-mbox-branch]: inital problems

[Alfred M. Szmidt]

More problems, if you do get new mail so that RMAIL has something to
play with, then the following happens when you try to go to the
next/previous message:

,----
| Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
|   narrow-to-region(nil nil)
|   (let ((beg ...) (end ...)) (rmail-header-show-headers) (widen) 
(narrow-to-region beg end) (goto-char (point-min)) (if (re-search-forward 
"^X-Coding-System: *\\(.*\\)$" nil t) (let ... ...) (setq 
buffer-file-coding-system nil)) (if (rmail-desc-attr-p rmail-desc-unseen-index 
n) (rmail-desc-set-attribute rmail-desc-unseen-index nil n)) 
(rmail-display-labels) (if (eq rmail-enable-mime t) (funcall 
rmail-show-mime-function) (setq rmail-view-buffer rmail-buffer)) 
(rmail-header-hide-headers) (rmail-highlight-headers) (if transient-mark-mode 
(deactivate-mark)) (set-window-point (get-buffer-window rmail-buffer) (point)) 
(run-hooks (quote rmail-show-message-hook)) (and (rmail-summary-exists) (not 
no-summary) (save-excursion ...)) (with-current-buffer rmail-buffer 
(rmail-auto-file)) (if blurb (message blurb)))
|   (let (blurb coding-system) (if (not n) (setq n rmail-current-message) (cond 
... ... ...)) (let (... ...) (rmail-header-show-headers) (widen) 
(narrow-to-region beg end) (goto-char ...) (if ... ... ...) (if ... ...) 
(rmail-display-labels) (if ... ... ...) (rmail-header-hide-headers) 
(rmail-highlight-headers) (if transient-mark-mode ...) (set-window-point ... 
...) (run-hooks ...) (and ... ... ...) (with-current-buffer rmail-buffer ...) 
(if blurb ...)))
|   (if (zerop rmail-total-messages) (progn (message "No messages to show.  Add 
something better soon.") (setq mode-line-process " no messages") 
(force-mode-line-update)) (let (blurb coding-system) (if ... ... ...) (let ... 
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
|   rmail-show-message(9)
|   (let ((lastwin rmail-current-message) (current rmail-current-message)) 
(while (and ... ...) (setq current ...) (if ... ...)) (while (and ... ...) 
(setq current ...) (if ... ...)) (rmail-show-message lastwin) (if (/= lastwin 
rmail-current-message) t (if ... ...) (if ... ...) nil))
|   rmail-next-undeleted-message(1)
|   call-interactively(rmail-next-undeleted-message)
`----