From 8b0375a4bd087e7f33b5f8f8b88d6e283f17d5f7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 16 Jan 2004 12:35:31 +0000 Subject: [PATCH] (wl-draft-highlight-and-recenter): Redraw frame just before calling `recenter' in order to cope with an XEmacs bug. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 4 ++++ 2 files changed, 9 insertions(+) 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 + + * 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 * 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 -- 1.7.10.4