*** empty log message ***

[gnus] / lisp / gnus-win.el

diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el
index 87d7bb1..e6a2037 100644 (file)
--- a/lisp/gnus-win.el
+++ b/lisp/gnus-win.el
@@ -1,5 +1,5 @@
 ;;; gnus-win.el --- window configuration functions for Gnus
-;; Copyright (C) 1996,97 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
 ;; Keywords: news
@@ -137,9 +137,6 @@
      (vertical 1.0
               (article 0.5)
               (message 1.0 point)))
-    (draft
-     (vertical 1.0
-              (draft 1.0 point)))
     (pipe
      (vertical 1.0
               (summary 0.25 point)
@@ -537,7 +534,7 @@ should have point."
       (walk-windows
        (lambda (win)
         (let ((buf (window-buffer win)))
-          (when (string-match  "^\\*Summary" (buffer-name buf))
+          (when (string-match  "^\\*\\(Dead \\)?Summary" (buffer-name buf))
             (push buf bufs)
             (pop-to-buffer buf)
             (when (or (not lowest)