comparison 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.

34191:106595ce3db9

	       (not force))
	  ;; All the windows mentioned are already visible, so we just
	  ;; put point in the assigned buffer, and do not touch the
	  ;; winconf.
	  (select-window all-visible)

	;; Either remove all windows or just remove all Gnus windows.
	(let ((frame (selected-frame)))
	  (unwind-protect
	      (if gnus-use-full-window

		    (< (gnus-window-top-edge) lowest))
	    (setq lowest (gnus-window-top-edge)
		  lowest-buf buf))))
      (when lowest-buf
	(pop-to-buffer lowest-buf)
	(switch-to-buffer nntp-server-buffer))
      (mapcar (lambda (b) (delete-windows-on b t)) bufs))))

(provide 'gnus-win)

;;; gnus-win.el ends here

34192:57a15e35e75b

	       (not force))
	  ;; All the windows mentioned are already visible, so we just
	  ;; 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)))
	  (unwind-protect
	      (if gnus-use-full-window

		    (< (gnus-window-top-edge) lowest))
	    (setq lowest (gnus-window-top-edge)
		  lowest-buf buf))))
      (when lowest-buf
	(pop-to-buffer lowest-buf)
	(set-buffer nntp-server-buffer))
      (mapcar (lambda (b) (delete-windows-on b t)) bufs))))

(provide 'gnus-win)

;;; gnus-win.el ends here