[PATCH] Re: mail-sources on a different machine?

[Carsten Leonhardt <leo@arioch.oche.de>]

[-- Attachment #1: Type: text/plain, Size: 1239 bytes --]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> "Rene Matteau" <matteau@vnet.ibm.com> writes:
> 
> > (setq mail-sources '(
> >         (file :path "/matteau@matteau:/var/spool/mail/matteau")
> >         ))
> 
> I don't think this will work.  We use movemail to move mail, and it
> doesn't understand ange-ftp file names.  One could use `rename-file',
> but that wouldn't do file locking, which means that You Would Lose
> Mail Sooner Or Later, which is not nice.

Which reminds me, with the attached patch (which works around the fact
that "file-regular-p" is not [yet] implemented in efs/ange-ftp), it
will work for maildirs. Like

(setq mail-sources '((maildir :path "/leo@arioch.oche.de:~/Maildir/new")))

The only drawback I can see is that efs seems to cache directory
listings for some time, so gnus doesn't always fetch all the mail it
could.



For the lisp ChangeLog:

1999-11-24  Carsten Leonhardt  <leo@arioch.oche.de>

	* mail-source.el (mail-source-fetch-maildir): work around the
	ommitted "file-regular-p" in efs/ange-ftp

For the texi ChangeLog:

1999-11-24  Carsten Leonhardt  <leo@arioch.oche.de>

	* gnus.texi (Mail Source Specifiers): Mention maildir in the
	  overview and the possibility to use remote maildirs.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: patch to allow for remote maildirs --]
[-- Type: text/x-patch, Size: 2316 bytes --]

Index: lisp/mail-source.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mail-source.el,v
retrieving revision 5.20
diff -u -r5.20 mail-source.el
--- lisp/mail-source.el	1999/11/23 07:54:13	5.20
+++ lisp/mail-source.el	1999/11/24 01:53:23
@@ -439,7 +439,7 @@
     (let ((found 0)
 	  (mail-source-string (format "maildir:%s" path)))
       (dolist (file (directory-files path t))
-	(when (and (file-regular-p file)
+	(when (and (not (file-directory-p file))
 		   (not (if function
 			    (funcall function file mail-source-crash-box)
 			  (rename-file file mail-source-crash-box))))
Index: texi/gnus.texi
===================================================================
RCS file: /usr/local/cvsroot/gnus/texi/gnus.texi,v
retrieving revision 5.122
diff -u -r5.122 gnus.texi
--- texi/gnus.texi	1999/11/23 22:29:10	5.122
+++ texi/gnus.texi	1999/11/24 01:55:43
@@ -10244,7 +10244,8 @@
 @subsection Mail Sources
 
 Mail can be gotten from many different sources---the mail spool, from a
-POP mail server, or from a procmail directory, for instance.
+POP mail server, from a procmail directory, or from a maildir, for
+instance.
 
 @menu
 * Mail Source Specifiers::       How to specify what a mail source is.
@@ -10458,9 +10459,9 @@
 @end lisp
 
 @item maildir
-Get mail from a maildir. This is a type of mailbox currently only
-supported by qmail, where each file in a special directory contains
-exactly one mail.
+Get mail from a maildir. This is a type of mailbox that is supported by
+at least qmail and postfix, where each file in a special directory
+contains exactly one mail.
 
 Keywords:
 
@@ -10471,14 +10472,22 @@
 
 If you sometimes look at your mail through a pop3 daemon before fetching
 them with Gnus, you may also have to fetch your mails from the
-@code{cur} directory inside the maildir, like in the following example.
+@code{cur} directory inside the maildir, like in the first example
+below.
 
+You can also get mails from remote hosts (because maildirs don't suffer
+from locking problems).
+
 @end table
 
-An example maildir mail source:
+Two example maildir mail sources:
 
 @lisp
 (maildir :path "/home/user-name/Maildir/cur")
+@end lisp
+
+@lisp
+(maildir :path "/user@@remotehost.org:~/Maildir/new")
 @end lisp
 
 @item imap