From: hmurata <hmurata>
Date: Sun, 14 Nov 2004 10:59:09 +0000 (+0000)
Subject: (wl-summary-after-resize-function): New function.
X-Git-Tag: wl-2_12-root~39
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=93db1c5f7de5b9501392e3e7d03617518b775924;p=elisp%2Fwanderlust.git

(wl-summary-after-resize-function): New function.
(wl-summary-mode): Add `wl-summary-after-resize-function' to
window-size-change-functions.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5ae69ac..77e39f4 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-11-14  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-after-resize-function): New function.
+	(wl-summary-mode): Add `wl-summary-after-resize-function' to
+	window-size-change-functions.
+
 2004-11-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-draft.el (wl-draft-create-buffer): Bind
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 352af13..f22d6dc 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -634,6 +634,19 @@ See also variable `wl-use-petname'."
 	(wl-summary-lazy-update-mark
 	 (list 'wl-summary-update-mark-window))))
 
+(defun wl-summary-after-resize-function (frame)
+  "Called from `window-size-change-functions'."
+  (save-excursion
+    (save-selected-window
+      (select-frame frame)
+      (walk-windows
+       (lambda (window)
+	 (set-buffer (window-buffer window))
+	 (when (eq major-mode 'wl-summary-mode)
+	   (run-hook-with-args 'wl-summary-buffer-window-scroll-functions
+			       window)))
+       'nomini frame))))
+
 ;; Handler of event from elmo-folder
 (eval-and-compile
   (luna-define-class wl-summary-event-handler (elmo-event-handler)
@@ -903,7 +916,9 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
     (let ((hook (if wl-on-xemacs 'pre-idle-hook 'window-scroll-functions)))
       (make-local-hook hook)
       (dolist (function wl-summary-buffer-window-scroll-functions)
-	(add-hook hook function nil t))))
+	(add-hook hook function nil t)))
+    (add-hook 'window-size-change-functions
+	      #'wl-summary-after-resize-function))
   (make-local-hook 'change-major-mode-hook)
   (add-hook 'change-major-mode-hook #'wl-summary-buffer-detach nil t)
   (add-hook 'kill-buffer-hook #'wl-summary-buffer-detach)