From: hmurata <hmurata>
Date: Mon, 29 Sep 2003 04:48:29 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-update-mark-and-highlight-window): Fixed.
X-Git-Tag: wl-2_11_19~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=88924586c14825b2342c3cdec8da02524077cd95;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-update-mark-and-highlight-window): Fixed.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3d0183d..88ccaaf 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-09-29  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-update-mark-and-highlight-window): Fixed.
+
 2003-09-28  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-window-scroll-functions): No use
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5972b83..91231cf 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -561,7 +561,7 @@ See also variable `wl-use-petname'."
   "A function to be called as window-scroll-functions."
   (with-current-buffer (window-buffer win)
     (when (eq major-mode 'wl-summary-mode)
-      (let ((start (window-start win))
+      (let ((beg (or beg (window-start win)))
 	    (end (condition-case nil
 		     (window-end win t)	; old emacsen doesn't support 2nd arg.
 		   (error (window-end win))))