diff lisp/vm/vm-window.el @ 175:2d532a89d707 r20-3b14

Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200 (2007-08-13)
parents 43dd3413c7c7
children
line wrap: on
line diff
--- a/lisp/vm/vm-window.el	Mon Aug 13 09:49:11 2007 +0200
+++ b/lisp/vm/vm-window.el	Mon Aug 13 09:50:14 2007 +0200
@@ -104,9 +104,11 @@
 
 (defun vm-undisplay-buffer (buffer)
   (vm-save-buffer-excursion
-    (vm-maybe-delete-windows-or-frames-on buffer)
-    (let ((w (vm-get-buffer-window buffer)))
-      (and w (set-window-buffer w (other-buffer))))))
+   (let ((vm-mutable-frames (and vm-mutable-frames pop-up-frames)))
+     (vm-maybe-delete-windows-or-frames-on buffer))
+   (let (w)
+     (while (setq w (vm-get-buffer-window buffer))
+       (set-window-buffer w (other-buffer buffer))))))
 
 (defun vm-load-window-configurations (file)
   (save-excursion
@@ -200,7 +202,8 @@
 	  ;; the user not to lose here.
 	  (vm-replace-buffer-in-windows nonexistent-summary message)
 	(and (get-buffer nonexistent-summary)
-	     (vm-maybe-delete-windows-or-frames-on nonexistent-summary))) )))
+	     (vm-maybe-delete-windows-or-frames-on nonexistent-summary)))
+      config )))
 
 (defun vm-save-window-configuration (tag)
   "Name and save the current window configuration.