[Bug: 21.5-b27] font-lock-fontify-* / infinite loop

[Stephen J. Turnbull]

Aidan Kehoe writes:

Thanks for looking into this, Aidan!
 > --- /Sources/packages-current-checked-out/xemacs-packages/gnus/lisp/message.el	2006-04-09 09:43:50.000000000 +0200
 > +++ message.el	2007-01-12 00:22:54.000000000 +0100
 > @@ -1265,23 +1265,19 @@
 >  ;; backward-compatibility alias
 >  (put 'message-mml-face 'face-alias 'message-mml)
 >  
 > -(defun message-font-lock-make-header-matcher (regexp)
 > -  (let ((form
 > -	 `(lambda (limit)
 > -	    (let ((start (point)))
 > -	      (save-restriction
 > -		(widen)
 > -		(goto-char (point-min))
 > -		(if (re-search-forward
 > -		     (concat "^" (regexp-quote mail-header-separator) "$")
 > -		     nil t)
 > -		    (setq limit (min limit (match-beginning 0))))
 > -		(goto-char start))
 > -	      (and (< start limit)
 > -		   (re-search-forward ,regexp limit t))))))
 > -    (if (featurep 'bytecomp)
 > -	(byte-compile form)
 > -      form)))

Why not just change the `(featurep 'bytecomp)' form to

(and (featurep 'bytecomp) gnus-use-byte-compile)

?  Has that variable been deprecated or obsoleted?