Re: maildir support in Pterodactyl Gnus

[Jason R Mastaler <jason@4b.org>]

Shenghuo ZHU <zsh@cs.rochester.edu> writes:

> I think it is a kind of NFS bug. I guess The time span between rename
> and read is too short for NFS. Try the following code, see whether it
> helps.

I think you are right.  I duplicated this setup on a local filesystem
and had no problems.  

> (defun mail-source-fetch-maildir (source callback)
>   "Fetcher for maildir sources."
>   (mail-source-bind (maildir source)
>     (let ((found 0)
> 	  (mail-source-string (format "maildir:%s" path)))
>       (dolist (file (directory-files path t))
> 	(when (and (file-regular-p file)
> 		   (not (mail-source-movemail file mail-source-crash-box)))
> 	  (incf found (mail-source-callback callback file))))
>       found)))

This code fixes the problem, but now when I incorporate new mail, the
contents of the maildir files are cleared (zero bytes), but they are
not being removed.

$ ls -l Maildir/new
total 0
-rw-------   1 jason    systaff         0 Nov  9 16:23 942189791.22909.agave.alliance.unm.edu
-rw-------   1 jason    systaff         0 Nov  9 16:25 942189909.22917.agave.alliance.unm.edu