Re: gnus 5.6.11

[Rolf Marvin B|e Lindgren <roffe@morgoth.uio.no>]

[Hrvoje Niksic]

| I introduced the new regexp-quoting (Gnus failed on Windows without
| it), so I feel responsible.  Although the changes are generally fine,
| I see one that's not.  Try this patch:

if this is how nnmail-get-split-group is supposed to be, it still
doesn't work. 

(defun nnmail-get-split-group (file group)
  "Find out whether this FILE is to be split into GROUP only.
If GROUP is non-nil and we are using procmail, return the group name
only when the file is the correct procmail file.  When GROUP is nil,
return nil if FILE is a spool file or the procmail group for which it
is a spool.  If not using procmail, return GROUP."
  (if (or (eq nnmail-spool-file 'procmail)
          nnmail-use-procmail)
      (if (string-match (concat "^" (regexp-quote
                                     (expand-file-name
                                      (file-name-as-directory
                                       nnmail-procmail-directory)))
                                "\\([^/]*\\)"
                                (regexp-quote nnmail-procmail-suffix) "$")
                        (expand-file-name file))
          (let ((procmail-group (substring (expand-file-name file)
                                           (match-beginning 1)
                                           (match-end 1))))
            (if group
                (if (string-equal group procmail-group)
                    group
                  nil)
              procmail-group))
        nil)
    group))


-- 

       Rolf Lindgren           |       "The opinions expressed above are
       Sofienberggt. 13b       |        not necessarily those of anyone"
       N-0551 OSLO             |               roffe@ask.uio.no 
.