Re: [PATCH] Fix gnus-message-citation-mode for (S)XEmacs

[Katsumi Yamaoka <yamaoka@jpl.org>]

[-- Attachment #1: Type: text/plain, Size: 2421 bytes --]

>>>>> In <m1ps8dg7ne.fsf@davestoy.homelinux.org> Dave Goldberg wrote:

>>>>>> On Tue, 13 Feb 2007 21:46:09 +0900, Katsumi Yamaoka <yamaoka@jpl.org> said:

>> I seem to have solved this problem.  Could you try it?

> It's odd.  When working on my linux machine at home I get the same messages:

> Fontifying *wide reply to Katsumi Yamaoka on ding@gnus.org*...
> Fontifying *wide reply to Katsumi Yamaoka on ding@gnus.org*... done.

Those were issued when you typed `S W' (or similar) to start a
reply to me, and the fontification was successful (because of
the last `done').  The next ones were issued when you started
another mail, but fontification was not successful.  Am I right?

> Fontifying mail to ding@gnus.org...
> Fontifying mail to ding@gnus.org... (regexps)....
> Fontifying mail to ding@gnus.org... (regexps)........
> Fontifying mail to ding@gnus.org... (regexps)........
> Fontifying mail to ding@gnus.org... (regexps).........
> Fontifying mail to ding@gnus.org... (regexps)..........
> Fontifying mail to ding@gnus.org... (regexps).............
> Fontifying mail to ding@gnus.org... (regexps)..............
> Fontifying mail to ding@gnus.org... (regexps)...............
> Fontifying mail to ding@gnus.org... (regexps)...............
> Fontifying mail to ding@gnus.org... (regexps)...............
> Fontifying mail to ding@gnus.org... (regexps)...............
> Fontifying mail to ding@gnus.org... (regexps)...............
> Fontifying mail to ding@gnus.org... (regexps)................

`font-lock-fontify-keywords-region' issued those messages using:

  (progress-feedback-with-label 'font-lock
                                "Fontifying %s... (regexps)"
                                progress bufname))

But, in message.el there seems to be no function to make the
buffer name which is not surrounded with "*...*".  How do you
start a "mail to ding@gnus.org"?  All those questions might be
fruitless, though.

> Fontifying mail to ding@gnus.org... aborted.aborted.

Well, I might have misunderstood this message.  The reason the
fontification was aborted was not because you typed `C-g', was
it?  If so, it was terminated by an error and we can use the
debugger.  To do that, copy lisp/font-lock.el to the tmp
directory, apply the patch attached in this message, load the
patched font-lock.el, set `debug-on-error' to t, and start a
reply.

You may do it later of course.  Have a good vacation! ;)


[-- Attachment #2: Type: text/x-patch, Size: 511 bytes --]

--- font-lock.el~	2006-02-05 21:54:43 +0000
+++ font-lock.el	2007-02-14 00:27:17 +0000
@@ -1133,11 +1133,8 @@
       ;; much more frequently) I'm afraid of the bad consequences of stealing
       ;; the interrupt character at inopportune times.
       ;;
-      (condition-case nil
 	  (save-excursion
 	    (font-lock-fontify-region (point-min) (point-max)))
-	(t
-	 (setq aborted t)))
 
       (or was-on			; turn it off if it was off.
 	  (let ((font-lock-fontified nil)) ; kludge to prevent defontification