Patch for No Gnus: Test with swish-e needed / then CVS checkin needed

Patch for No Gnus: Test with swish-e needed / then CVS checkin needed

[Christoph Conrad]

Dear folks,

Niels Skou Olsen send me the following mail with a patch appended for
`nnir-run-swish-e' which extends the regexp used for recognizing group
names so that groupnames with embedded spaces are recognized also. 

I didn't test the patch, i use swish++. Please could anyone using
swish-e test it and report success/failure here, and then incorporate it
into "No Gnus".

Probably the same behaviour is with nnir-run-swish++, but i have no time
to check it.

Thanks, Christoph.

From: Niels Skou Olsen <nso@manbw.dk>
Subject: nnir.el patch for swish-e
To: christoph.conrad@gmx.de
X-Sent: 4 hours, 17 minutes, 58 seconds ago
User-Agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3 (windows-nt)

Hi Christoph,

You seem to "own" :-) some functions in nnir.el in the Gnus-5.10.6
distribution. Therefore I send this to you.

I ran into a problem using swish-e from Gnus 5.10.6 with nnir.el
1.3. The problem is that the function nnir-run-swish-e parses the
swish-e output incorrectly if the group names contain white space. For
example this output shows the problem:

960 d:/nso/Mail/Subversion svn (commit messages)/1 "1" 63822
960 d:/nso/Mail/Subversion svn (commit messages)/46 "46" 103785
720 d:/nso/Mail/Subversion svn (commit messages)/45 "45" 119078

I have modified the regexp used for parsing the lines, and it works here. I
hereby donate to you the modification and all rights to it :-). The patch
is below. I hope that some day it will find its way into the official
nnir.el.

Best regards,

Niels
-- 
Niels Skou Olsen, M.Sc.
Intelligent Engine, R&D
MAN B&W Diesel A/S

Index: nnir.el
===================================================================
--- nnir.el     (revision 8)
+++ nnir.el     (working copy)
@@ -1221,7 +1221,7 @@
       ;; rank path-name file-title file-size
       (goto-char (point-min))
       (while (re-search-forward
-              "\\(^[0-9]+\\) \\([^ ]+\\) \"\\([^\"]+\\)\" [0-9]+$" nil t)
+              "\\(^[0-9]+\\) \\(.+/[0-9]+\\) \"\\([^\"]+\\)\" [0-9]+$" nil t)
         (setq score (match-string 1)
               artno (match-string 3)
               dirnam (file-name-directory (match-string 2)))