new mail fetching doesn't work for us procmail heretics

new mail fetching doesn't work for us procmail heretics

[Justin Sheehy]

I split all of my mail using procmail.  Gnus splitting is powerful
enough, but happens at the wrong time.  I like having my mail be
sorted at arrival time, not when I decide to read it or at some
arbitrary interval.

Under Gnusae previous to the last few pgnus, one can accomplish this with:

(setq nnmail-procmail-directory "~/Mail/incoming"
      nnmail-use-procmail t
      nnmail-procmail-suffix "")

As I have nnml in my gnus-secondary-select-methods, Gnus simply slurps 
mail from each file in ~/Mail/incoming into the nnml group of the same 
name as that file.

If I add a procmail rule that will cause the creation of a new file in 
that directory, Gnus will create the new group.

This is all wonderful.  In fact, I consider it essential.

I have been entirely unable to get this to work with the new
mail-source stuff.  I can send more details of its failure if they are
desired, but it seems that this option was just not accounted for.

Am I missing something, is there an upcoming fix, or what?

-Justin

Re: new mail fetching doesn't work for us procmail heretics

[Hevard Fosseng]

Justin Sheehy <justin@linus.mitre.org> writes:

> I split all of my mail using procmail.  Gnus splitting is powerful
> enough, but happens at the wrong time.  I like having my mail be
> sorted at arrival time, not when I decide to read it or at some
> arbitrary interval.
> 
> Under Gnusae previous to the last few pgnus, one can accomplish this with:
> 
> (setq nnmail-procmail-directory "~/Mail/incoming"
>       nnmail-use-procmail t
>       nnmail-procmail-suffix "")

I had a pretty similar setup, though I use nnfolder rather than nnml.

In 0.74, I use:

(setq nnmail-spool-file `((directory
			   :path "~/mail/spool/"
			   :match "[a-z]"
			   :suffix "")))

The :match keyword is to make sure that a call to DIRECTORY-FILES does
not match . and .. (movemail doesn't like being handled a directory).
This doesn't work in 0.74 since the :match keyword has been removed. I
get by by answering in the affirmative when movemail asks whether to
continue.



- Håvard Fosseng

Re: new mail fetching doesn't work for us procmail heretics

[Mike McEwan]

Hevard Fosseng <havard.fosseng@usit.uio.no> writes:

> The :match keyword is to make sure that a call to DIRECTORY-FILES does
> not match . and .. (movemail doesn't like being handled a directory).
> This doesn't work in 0.74 since the :match keyword has been removed. I
> get by by answering in the affirmative when movemail asks whether to
> continue.

  Well, I think the following should do the trick. However, I've had
to go back to pgnus-0.72, as, when fetching mail with `2 g', *all* my
nnml (that includes *all* my newsgroups as I use the `agent') get
there article counts nullified to a `*'. It would appear gnus is
trying to fetch mail from all groups covered by the nnmail method???

  Anyway, here's a patch for the first part:

--- ChangeLog~	Wed Jan 27 21:38:26 1999
+++ ChangeLog	Fri Jan 29 00:41:54 1999
@@ -1,3 +1,8 @@
+1999-01-29  Mike McEwan  <mike@lotusland.demon.co.uk>
+
+	* mail-source.el (mail-source-fetch-directory): Don't pass `.' or
+	`..' to movemail.
+
 Wed Jan 27 05:24:53 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.74 is released.
--- mail-source.el	1999/01/27 21:38:36	1.1.1.1
+++ mail-source.el	1999/01/28 23:52:09
@@ -318,7 +318,7 @@
   (mail-source-bind (directory source)
     (let ((files (directory-files
 		  path t
-		  (concat (regexp-quote suffix) "$")))
+		  (concat (regexp-quote suffix) "$") nil 't))
 	  (found 0)
 	  (mail-source-string (format "directory:%s" path))
 	  file)
 
-- 
Mike.

Re: new mail fetching doesn't work for us procmail heretics

[Lars Magne Ingebrigtsen]

Mike McEwan <mike@lotusland.demon.co.uk> writes:

> -		  (concat (regexp-quote suffix) "$")))
> +		  (concat (regexp-quote suffix) "$") nil 't))

This doesn't work in Emacs 20.3, but I've now made the function
explicitly check for directories.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen