Re: Procmail functionality

[Lloyd Zusman <ljz@asfast.com>]

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

> No, we don't want to regexp-quote the "$".  Or do you have files that
> are actually called "file.spool$"?

Well, of course you're right.  I had misunderstood the problem, but
there really *is* still an error in the call to `regexp-quote' that's
in `nnmail.el'.  I get an abort message that says that there are two
many arguments supplied to that function.  I believe that the patch
below is more correct and actually fixes this properly this time.

> > And even after applying these fixes, your suggestion still doesn't
> > quite work for me ... the email found the specified directory in files
> > with the specified suffix all goes into the crash box instead of the
> > appropriate mailboxes.
> 
> The mail is moved to the crash box, and then it's split from there
> into the groups.

Yes ... now I understand this better ... and once I fixed this
`regexp-quote' problem in the proper manner instead of how I did it
before, my mail is now correctly going to the intended email
newsgroups.  What was happening before was that everything in the
specified directory was ending up in the default `mail.misc'
newsgroup.  I erroneously thought that this had to do with the crash
box instead of its real cause (my incorrect patch).


Here's the patch fixing the incorrect call to `regexp-quote'.  Note in
the original that "$" is erroneously being passed as the second
argument to `regexp-quote' ...


*** nnmail.el.orig      Mon Jan 25 00:39:16 1999
--- nnmail.el   Mon Jan 25 00:40:06 1999
***************
*** 508,514 ****
    (if (eq (car source) 'directory)
        (let ((file (file-name-nondirectory file)))
        (mail-source-bind directory source
!         (if (string-match (concat (regexp-quote suffix "$") file))
              (substring file 0 (match-beginning 0))
            nil)))
      nil))
--- 508,514 ----
    (if (eq (car source) 'directory)
        (let ((file (file-name-nondirectory file)))
        (mail-source-bind directory source
!         (if (string-match (concat (regexp-quote suffix) "$") file)
              (substring file 0 (match-beginning 0))
            nil)))
      nil))

-- 
 Lloyd Zusman
 ljz@asfast.com