From 8368b5a19842ba04eba4189bd8b368439f842ca0 Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Wed, 18 Jun 2003 19:05:13 +0000
Subject: [PATCH] * wl-highlight.el (wl-highlight-summary-window):
 Re-calculate the end of the window if possible.

---
 wl/ChangeLog       |    3 +++
 wl/wl-highlight.el |   22 +++++++++++++---------
 2 files changed, 16 insertions(+), 9 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9c3622b..df3ba02 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2003-06-18  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-highlight.el (wl-highlight-summary-window): Re-calculate the
+	end of the window if possible.
+
 	* wl-vars (wl-delete-folder-alist,): Change default value.
 	(wl-folder-hierarchy-access-folders): Ditto.
 
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index c24b04b..eea611c 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -991,13 +991,18 @@ Variables used:
 (defun wl-highlight-summary-window (&optional win beg)
   "Highlight summary window.
 This function is defined for `window-scroll-functions'"
-  (if wl-summary-highlight
-      (with-current-buffer (window-buffer win)
-	(when (eq major-mode 'wl-summary-mode)
-	  (wl-highlight-summary (window-start win)
-				(window-end win)
-				'lazy)
-	  (set-buffer-modified-p nil)))))
+  (when wl-summary-highlight
+    (with-current-buffer (window-buffer win)
+      (when (eq major-mode 'wl-summary-mode)
+	(let ((start (window-start win))
+	      (end (condition-case nil
+		       (window-end win t) ;; old emacsen doesn't support 2nd arg.
+		     (error (window-end win)))))
+	  (wl-highlight-summary start
+				end
+				'lazy))
+	(set-buffer-modified-p nil)))))
+
 
 (defun wl-highlight-headers (&optional for-draft)
   (let ((beg (point-min))
@@ -1098,8 +1103,7 @@ interpreted as cited text.)"
 	(real-end end)
 	current  beg
 	e p hend)
-    (if too-big
-	nil
+    (unless too-big
       (save-excursion
 	(save-restriction
 	  (widen)
-- 
1.7.10.4