* message-ja.texi (message-suspend-font-lock-when-citing): Add a description.

* message.texi (message-suspend-font-lock-when-citing): Ditto.

* message.el (message-yank-original): Suspend font-lock'ing while citing
 an original message.
(message-suspend-font-lock-when-citing): New user option.

diff --git a/ChangeLog b/ChangeLog
index f0fd49e..89487e0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2001-06-28  Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * texi/message-ja.texi (message-suspend-font-lock-when-citing): Add
+       a description.
+       * texi/message.texi (message-suspend-font-lock-when-citing): Ditto.
+
+       * lisp/message.el (message-yank-original): Suspend font-lock'ing
+       while citing an original message.
+       (message-suspend-font-lock-when-citing): New user option.
+
 2001-06-25  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * lisp/gnus-clfns.el (find-cl-run-time-functions): New

diff --git a/lisp/message.el b/lisp/message.el
index c44e64c..ee08f7b 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -716,6 +716,17 @@ Note that `message-cite-original' uses `mail-citation-hook' if that is non-nil."
   :group 'message-insertion)
 
 ;;;###autoload
+(defcustom message-suspend-font-lock-when-citing nil
+  "Non-nil means suspend font-lock'ing while citing an original message.
+Some lazy demand-driven fontification tools (or Emacs itself) have a
+bug that they often miss a buffer to be fontified.  It will mostly
+occur when Emacs prompts user for any inputs in the minibuffer.
+Setting this option to non-nil may help you to avoid unpleasant errors
+even if it is an add-hoc expedient."
+  :type 'boolean
+  :group 'message-insertion)
+
+;;;###autoload
 (defcustom message-indent-citation-function 'message-indent-citation
   "*Function for modifying a citation just inserted in the mail buffer.
 This can also be a list of functions.  Each function can find the
@@ -2577,7 +2588,15 @@ be added to \"References\" field.
              (backward-delete-char 1)))))
 
       (unless arg
-       (funcall message-cite-function))
+       (if (and message-suspend-font-lock-when-citing
+                (boundp 'font-lock-mode)
+                (symbol-value 'font-lock-mode))
+           (progn
+             (sit-for 0)
+             (font-lock-mode 0)
+             (funcall message-cite-function)
+             (font-lock-mode 1))
+         (funcall message-cite-function)))
       (message-exchange-point-and-mark)
       (unless (bolp)
        (insert ?\n))

diff --git a/texi/message-ja.texi b/texi/message-ja.texi
index 8058bbe..299996a 100644 (file)
--- a/texi/message-ja.texi
+++ b/texi/message-ja.texi
@@ -526,6 +526,16 @@ Hallvard B Furuseth <h.b.furuseth@@usit.uio.no> writes:
 \e$B$^$9$,!"=pL>$O>J$-$^$9!#\e(BSupercite \e$B$r;H$&$?$a$K!"$=$l\e(B
 \e$B$r\e(B @code{sc-cite-original} \e$B$K@_Dj$9$k;v$b$G$-$^$9!#\e(B
 
+@item message-suspend-font-lock-when-citing
+@vindex message-suspend-font-lock-when-citing
+@code{nil} \e$B$G$J$1$l$P!"K\5-;v$r0zMQ$7$F$$$k4V\e(B font-lock \e$B$NF0:n$r;_$a$^$9!#\e(B
+\e$B$$$/$D$+$N!"\e(BEmacs \e$B$,2K$J$H$-$KCY$l$FF0:n$9$k\e(B font-lock \e$B$N$?$a$N%D!<\e(B
+\e$B%k\e(B (\e$B$^$?$O\e(B Emacs \e$B<+?H\e(B) \e$B$K$O%P%0$,$"$j!"$=$l$i$O$7$P$7$P\e(B font-lock \e$B$NF0:n\e(B
+\e$B$r9T$J$&BP>]$H$J$k%P%C%U%!$r<h$j0c$($^$9!#$=$l$O$?$$$F$$\e(B Emacs \e$B$,%_%K%P%C\e(B
+\e$B%U%!$G%f!<%6$K2?$+$NF~NO$rB%$9$H$-$K5/$3$j$^$9!#$3$l$O$=$N>l$7$N$.$NBP:v\e(B
+\e$B$G$O$"$k$N$G$9$,!"$3$N%*%W%7%g%s$rHs\e(B-@code{nil} \e$B$K$9$k$3$H$K$h$C$F!"$"$J\e(B
+\e$B$?$OITL{2w$J%(%i!<$r2sHr$G$-$k$+$b$7$l$^$;$s!#\e(B
+
 @item message-indent-citation-function
 @vindex message-indent-citation-function
 \e$B$A$g$&$I%a!<%k%P%C%U%!$KA^F~$5$l$?0zMQJ8$r=$@5$9$k$?$a$N4X?t$G$9!#$3$l$O\e(B

diff --git a/texi/message.texi b/texi/message.texi
index 9e7fc67..c543196 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -544,6 +544,15 @@ and prepends @samp{> } to each line.
 the signature.  You can also set it to @code{sc-cite-original} to use
 Supercite.
 
+@item message-suspend-font-lock-when-citing
+@vindex message-suspend-font-lock-when-citing
+If non-@code{nil}, suspend font-lock'ing while citing an original
+message.  Some lazy demand-driven fontification tools (or Emacs itself)
+have a bug that they often miss a buffer to be fontified.  It will
+mostly occur when Emacs prompts user for any inputs in the minibuffer.
+Setting this option to non-@code{nil} may help you to avoid unpleasant
+errors even if it is an add-hoc expedient.
+
 @item message-indent-citation-function
 @vindex message-indent-citation-function
 Function for modifying a citation just inserted in the mail buffer.