From: yamaoka <yamaoka>
Date: Fri, 16 Jan 2004 12:35:31 +0000 (+0000)
Subject: (wl-draft-highlight-and-recenter): Redraw frame just before calling `recenter'
X-Git-Tag: wl-2_11_24~33
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8b0375a4bd087e7f33b5f8f8b88d6e283f17d5f7;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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