Commit 54b6f6ed authored by Gnus developers's avatar Gnus developers Committed by Katsumi Yamaoka
Browse files

Merge changes made in Gnus trunk.

gnus-win.el: Remove dead function gnus-window-configuration-element.
 (gnus-all-windows-visible-p): Remove old compatibility code.
 (gnus-window-top-edge): Add docstring.
gnus-sum.el (gnus-select-newsgroup): Don't try to alter the active data if the group is unactivated.
parent 9ffae6d0
2011-01-28 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-sum.el (gnus-select-newsgroup): Don't try to alter the active
data if the group is unactivated.
2011-01-28 Julien Danjou <julien@danjou.info>
 
* gnus-win.el: Remove dead function gnus-window-configuration-element.
(gnus-all-windows-visible-p): Remove old compatibility code.
(gnus-window-top-edge): Add docstring.
* gnus-group.el (gnus-group-jump-to-group): Set must match to t.
 
2011-01-28 Lars Ingebrigtsen <larsi@gnus.org>
......
......@@ -5542,7 +5542,8 @@ If SELECT-ARTICLES, only select those articles from GROUP."
(mm-decode-coding-string group charset)
(mm-decode-coding-string (gnus-status-message group) charset)))
(when gnus-agent
(when (and gnus-agent
(gnus-active group))
(gnus-agent-possibly-alter-active group (gnus-active group) info)
(setq gnus-summary-use-undownloaded-faces
......
......@@ -38,9 +38,6 @@
:group 'gnus-windows
:type 'boolean)
(defvar gnus-window-configuration nil
"Obsolete variable. See `gnus-buffer-configuration'.")
(defcustom gnus-window-min-width 2
"*Minimum width of Gnus buffers."
:group 'gnus-windows
......@@ -221,12 +218,6 @@ See the Gnus manual for an explanation of the syntax used.")
(delete-frame (car gnus-created-frames))))
(pop gnus-created-frames)))
(defun gnus-window-configuration-element (list)
(while (and list
(not (assq (car list) gnus-window-configuration)))
(pop list))
(cadr (assq (car list) gnus-window-configuration)))
;;;###autoload
(defun gnus-add-configuration (conf)
"Add the window configuration CONF to `gnus-buffer-configuration'."
......@@ -446,11 +437,7 @@ should have point."
type buffer win buf)
(while (and (setq split (pop stack))
all-visible)
;; Be backwards compatible.
(when (vectorp split)
(setq split (append split nil)))
(when (or (consp (car split))
(vectorp (car split)))
(when (consp (car split))
(push 1.0 split)
(push 'vertical split))
;; The SPLIT might be something that is to be evaled to
......@@ -482,6 +469,7 @@ should have point."
all-visible)))
(defun gnus-window-top-edge (&optional window)
"Return the top coordinate of WINDOW."
(nth 1 (window-edges window)))
(defun gnus-remove-some-windows ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment