(wl-draft-highlight-and-recenter): Redraw frame just before calling `recenter'

 in order to cope with an XEmacs bug.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8a9a229..d821131 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * wl-draft.el (wl-draft-highlight-and-recenter): Redraw frame just
+       before calling `recenter' in order to cope with an XEmacs bug.
+
 2004-01-12  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * wl-vars.el (wl-folder-hierarchy-access-folders): Add "^'$"

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 98201e1..fd737d1 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -2420,6 +2420,10 @@ Automatically applied in draft sending time."
            (put-text-property (point-min) (point-max) 'face nil)
            (wl-highlight-message (point-min) (point-max) t))
        (set-buffer-modified-p modified))))
+  (static-when (featurep 'xemacs)
+    ;; Cope with one of many XEmacs bugs that `recenter' takes
+    ;; a long time if there are a lot of invisible text lines.
+    (redraw-frame))
   (recenter n))
 
 ;; insert element from history