gnus-configure-frame: Remove old compatibility code

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ada1a5..38c060d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-12-02  Julien Danjou  <julien@danjou.info>
 
+       * gnus-win.el (gnus-configure-frame): Remove old compatibility code.
+
        * gnus-msg.el: Mark gnus-outgoing-message-group as obsolete.
 
        * gnus-win.el (gnus-configure-windows): Remove Gnus 3.x setting

diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el
index 49200c8..64bce9d 100644 (file)
--- a/lisp/gnus-win.el
+++ b/lisp/gnus-win.el
@@ -249,18 +249,8 @@ See the Gnus manual for an explanation of the syntax used.")
 
 (defun gnus-configure-frame (split &optional window)
   "Split WINDOW according to SPLIT."
-  (let ((current-window
-        (or (get-buffer-window (current-buffer)) (selected-window))))
-    (unless window
-      (setq window current-window))
+  (let ((window (or window (get-buffer-window (current-buffer)) (selected-window))))
     (select-window window)
-    ;; This might be an old-style buffer config.
-    (when (vectorp split)
-      (setq split (append split nil)))
-    (when (or (consp (car split))
-             (vectorp (car split)))
-      (push 1.0 split)
-      (push 'vertical split))
     ;; The SPLIT might be something that is to be evaled to
     ;; return a new SPLIT.
     (while (and (not (assq (car split) gnus-window-to-buffer))