Re: maildir support in Pterodactyl Gnus

[Shenghuo ZHU <zsh@cs.rochester.edu>]

>>>>> "Jason" == Jason R Mastaler <jason@4b.org> writes:

Jason> 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.

Jason> I think you are right.  I duplicated this setup on a local filesystem
Jason> 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)))

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

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

That's a result of mail-source-movemail.  I create a new function and
add a new parameter for maildir in pGnus 0.99 (Now, it is still in
CVS).

After you upgrade to 0.99, try use

(maildir :function mail-source-movemail-and-remove)

instead of (maildir).

-- 
Shenghuo ZHU