Re: Found No Mail!

Re: Found No Mail!

[Erik Selberg]

As I alluded in a previous post, it seems that sep. v17 is having
problems when a spool file exists, but is zero-length. Appended is a
patch which seems to be working. The gist is that if the buffer is
zero-length, continue anyway. Continuing just means entering a while
loop which quits upon (eobp), so it's a no-op; we just don't hit the
"Found No Mail!" error.

Incidentally, perhaps the "Found No Mail!" error should be renamed to
something more appropriate, such as "Error, unknown format! (possible
corrupted)." I don't think it's appropriate that ding report an error
when the spool file is zero-length.

*** nnmail.el   Mon Dec  4 09:09:19 1995
--- nnmail.el~  Mon Dec  4 08:52:56 1995
***************
*** 477,485 ****
  (defun nnmail-process-unix-mail-format (func)
    (let ((delim (concat "^" rmail-unix-mail-delimiter))
        start message-id content-length end skip head-end)
!     (if (and (not (eobp))
!           (not (and (re-search-forward delim nil t)
!                 (goto-char (match-beginning 0)))))
        ;; Possibly wrong format?
        (error "Found no mail!") 
        ;; Carry on until the bitter end.
--- 477,485 ----
  (defun nnmail-process-unix-mail-format (func)
    (let ((delim (concat "^" rmail-unix-mail-delimiter))
        start message-id content-length end skip head-end)
!     (if (not (and (re-search-forward delim nil t)
!                 (goto-char (match-beginning 0))))
        ;; Possibly wrong format?
        (error "Found no mail!") 
        ;; Carry on until the bitter end.