diff lisp/gnus/gnus-win.el @ 34192:57a15e35e75b

* gnus-msg.el (gnus-msg-mail): COMPOSEFUNC should return t if succeed. (gnus-setup-message): Remove a hack. * gnus-win.el (gnus-configure-windows): Make sure nntp-server-buffer is live. (gnus-remove-some-windows): switch-to-buffer -> set-buffer. * gnus-msg.el (gnus-summary-mail-forward): Fix typos in description. * gnus-msg.el (gnus-group-posting-charset-alist): No longer allow raw 8-bit in headers in dk.* newsgroups.

--- a/lisp/gnus/gnus-win.el	Mon Dec 04 21:25:38 2000 +0000
+++ b/lisp/gnus/gnus-win.el	Mon Dec 04 23:03:50 2000 +0000
@@ -432,6 +432,10 @@
 	  ;; put point in the assigned buffer, and do not touch the
 	  ;; winconf.
 	  (select-window all-visible)
+	
+	;; Make sure "the other" buffer, nntp-server-buffer, is live.
+	(unless (gnus-buffer-live-p nntp-server-buffer)
+	  (nnheader-init-server-buffer))
 
 	;; Either remove all windows or just remove all Gnus windows.
 	(let ((frame (selected-frame)))
@@ -536,7 +540,7 @@
 		  lowest-buf buf))))
       (when lowest-buf
 	(pop-to-buffer lowest-buf)
-	(switch-to-buffer nntp-server-buffer))
+	(set-buffer nntp-server-buffer))
       (mapcar (lambda (b) (delete-windows-on b t)) bufs))))
 
 (provide 'gnus-win)