Re: checking several headers when splitting mail

[lee <lee@yun.yagibdah.de>]

lee <lee@yun.yagibdah.de> writes:

> #+begin_src lisp
> (let (
>       (mytable (copy-syntax-table nnmail-split-fancy-syntax-table))
>       (mstrg "/var/log"))
>   (when (with-syntax-table mytable
> 	  (string-match (concat "\\<" mstrg) mstrg))
>     (message "'%s' matches '%s'without modification" (concat "\\<" mstrg) mstrg))
>   (modify-syntax-entry ?/ "w" mytable)
>   (when (with-syntax-table mytable
> 	  (string-match (concat "\\<" mstrg) mstrg))
>     (message "'%s' matches '%s' without modification" (concat "\\<" mstrg) mstrg)))
> #+end_src
>
>
> ... and it gives different results for the matching than your code does.

Sorry, never mind, it does give the same results.

Feel free to include this into the documentation:


(defun my-gnus-fancy-splitting-match-test (mstrg)
  "Test string matching for creating fancy splitting rules."

  (interactive "MString to test matching on: " mstrg)
  (let ( (mytable (copy-syntax-table nnmail-split-fancy-syntax-table) )
	 (xstrg (concat "\\<" mstrg) )  )

    (if (with-syntax-table mytable
	  (string-match xstrg mstrg) )
	(message "'%s' matches '%s' WITHOUT modification" xstrg mstrg)
      ;; else
      (modify-syntax-entry ?/ "w" mytable)
	(if (with-syntax-table mytable
			(string-match xstrg mstrg) )
	    (message "'%s' matches '%s' WITH modification" xstrg mstrg)
	  ;; else
	  (message "'%s' doesn't match '%s'" xstrg mstrg) )  )   )    )


... but please verify that it's ok first.