Re: fancy split regexp?

[Josh Huber <huber@alum.wpi.edu>]

prj@po.cwru.edu (Paul Jarc) writes:

> Try this:
> ("Resent-To"
> "\\`\\(.*[^!#-'*+/-9=?A-Z^-~-]\\)?\\([!#-'*+/-9=?A-Z^-~-]*\\)@packages\\.qa\\.debian\\.org"
>  "mail.debian.pts.\\2")

Oh dear god...

Can we somehow use re-search-forward for splitting?  I tried this (the
above regexp), and it works in a scratch buffer, but not in the
fancy-split-rules.  In fact, any time I try and use \\` it seems to
never match.

So, I gave up... (oh, and I found another header to match on ;):

(defun jmh::pts-group (base)
  (goto-char (point-min))
  (when (re-search-forward "^X-PTS-Package: \\(.*\\)$" nil t)
    (concat base "." (match-string 1))))

and use it like so:

	(: jmh::pts-group "mail.debian.pts")

probably slower, but I fell a lot better about it :)

Thanks for ideas,

-- 
Josh Huber