Index: nnmail.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnmail.el,v
retrieving revision 6.74
diff -a -u -r6.74 nnmail.el
--- nnmail.el	17 Apr 2003 19:01:45 -0000	6.74
+++ nnmail.el	2 Jun 2003 20:52:35 -0000
@@ -441,6 +441,14 @@
   ;; Sigh!
   :type 'sexp)
 
+(defcustom nnmail-split-expert-regexes nil
+  "Set this if you want your split patterns to be against the full
+line, not just a word as defined by the syntax table (if this is nil,
+you can achieve the same effect by surrounding your pattern with '.*'
+strings)."
+  :group ''nnmail-split
+  :type 'boolean)
+
 (defcustom nnmail-split-abbrev-alist
   '((any . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc")
     (mail . "mailer-daemon\\|postmaster\\|uucp")
@@ -1346,6 +1354,9 @@
 	     partial-rear  regexp)
 	(if (symbolp value)
 	    (setq value (cdr (assq value nnmail-split-abbrev-alist))))
+	(when (and nnmail-split-expert-regexes
+		   (stringp value))
+	  (setq value (format ".*%s.*" value)))
 	(if (and (>= (length value) 2)
 		 (string= ".*" (substring value 0 2)))
 	    (setq value (substring value 2)