Re: Slighty improved regexps for citations

[sigurd@12move.de (Karl Pflästerer)]

On Wed, 26 Feb 2003, Karl Pflästerer <- sigurd@12move.de wrote:

[some code]

Here is a different approach.

(let (mcpr1 mcpr2)
  (setq mcpr1
	  (if (string-match "[[:digit:]]" "1");; support POSIX?
	    (concat
	     "[ \t]*[-_.[:word:]]+>+\\|"
	     "[ \t]*[>|]")

	    ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
	    (let ((old-table (syntax-table))
		  non-word-constituents)
	      (set-syntax-table text-mode-syntax-table)
	      (setq non-word-constituents
		      (concat
		       (if (string-match "\\w" "-")  "" "-")
		       (if (string-match "\\w" "_")  "" "_")
		       (if (string-match "\\w" ".")  "" ".")))
	      (set-syntax-table old-table)
	      (if (equal non-word-constituents "")
		(concat
		 "[ \t]*\\(\\w\\)+>+\\|"
		 "[ \t]*[>|]")
		(concat
		 "[ \t]*\\(\\w\\|[" non-word-constituents "]\\)+>+\\|"
		 "[ \t]*[>|]"))))

	mcpr2 "[ \t]*[>|+:][^-]")

  (setq message-cite-prefix-regexp-alist
	  (list
	   (cons 'simple (concat "\\(" mcpr1 "\\)+"))
	   (cons 'full (concat "\\(" mcpr1 "\\|" mcpr2 "\\)+")))))


(setq message-cite-prefix-regexp-value 'full)
(setq message-cite-prefix-regexp
	(cdr (assq message-cite-prefix-regexp-value message-cite-prefix-regexp-alist)))


It's shorter and perhaps it's easier to add new elements.

bye
   KP

-- 
And as in uffish thought he stood,
The Jabberwock, with eyes of flame,
Came whiffling through the tulgey wood,
And burbled as it came!                "Lewis Carroll" "Jabberwocky"