(gnus-add-configuration
 '(group
   (if gnus-carpal
       '(horizontal 1.0
		    (vertical 1.0 (group 1.0 point))
		    (vertical 0.24 (group-carpal 1.0)))
     '(vertical 1.0 (group 1.0 point)))))

(gnus-add-configuration
 '(summary
   (horizontal 1.0
	       (vertical 1.0
			 (summary 1.0 point))
	       (if gnus-carpal
		   '(vertical 0.24
			      (horizontal 15
					  (vertical 0.5
						    (summary-carpal 1.0))
					  (vertical 1.0
						    (group-carpal 1.0)))
			      (group 1.0))
		 '(vertical 0.24 (group 1.0))))))
      
(gnus-add-configuration
 '(article
   (horizontal 1.0
	       (vertical 1.0 
			 (summary 0.25 point) 
			 (article 1.0))
	       (if gnus-carpal
		   '(vertical 0.24
			      (horizontal 15
					  (vertical 0.5
						    (summary-carpal 1.0))
					  (vertical 1.0
						    (group-carpal 1.0)))
			      (group 1.0))
		 '(vertical 0.24 (group 1.0))))))
      
(gnus-add-configuration
 '(server
   (if gnus-carpal
       '(horizontal 1.0
		    (vertical 1.0 (group 1.0 point))
		    (vertical 0.24 (server-carpal 1.0)))
     '(vertical 1.0 (server 1.0 point)))))

(gnus-add-configuration
 '(browse
   (if gnus-carpal
       '(horizontal 1.0
		    (vertical 1.0 (browse 1.0 point))
		    (vertical 0.24 (browse-carpal 1.0)))
     '(vertical 1.0 (server 1.0 point)))))

(gnus-add-configuration
 '(score-trace
   (horizontal 1.0
	       (vertical 1.0 
			 (summary 0.25 point) 
			 (article 1.0)
			 ("*Score Trace*" 0.15))
	       (if gnus-carpal
		   '(vertical 0.24
			      (horizontal 15
					  (vertical 0.5
						    (summary-carpal 1.0))
					  (vertical 1.0
						    (group-carpal 1.0)))
			      (group 1.0))
		 '(vertical 0.24 (group 1.0))))))

(gnus-add-configuration
 '(score-words
   (horizontal 1.0
	       (vertical 1.0 
			 (summary 0.25 point) 
			 (article 1.0)
			 ("*Score Words*" 0.15))
	       (if gnus-carpal
		   '(vertical 0.24
			      (horizontal 15
					  (vertical 0.5
						    (summary-carpal 1.0))
					  (vertical 1.0
						    (group-carpal 1.0)))
			      (group 1.0))
		 '(vertical 0.24 (group 1.0))))))

(gnus-add-configuration
 '(message
   (frame 1.0
	  (if (not (buffer-live-p gnus-summary-buffer))
	      (car (cdr (assoc 'group gnus-buffer-configuration)))
	    (car (cdr (assoc 'summary gnus-buffer-configuration))))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (message 1.0 point)))))

(gnus-add-configuration
 '(edit-form
   (frame 1.0
	  (car (cdr (assoc 'group gnus-buffer-configuration)))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (edit-form 1.0 point)))))

(gnus-add-configuration
 '(edit-score
   (frame 1.0
	  (if (not (buffer-live-p gnus-summary-buffer))
	      (car (cdr (assoc 'group gnus-buffer-configuration)))
	    (car (cdr (assoc 'summary gnus-buffer-configuration))))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (edit-score 1.0 point)))))

(gnus-add-configuration
 '(post
   (frame 1.0
	  (if (not (buffer-live-p gnus-summary-buffer))
	      (car (cdr (assoc 'group gnus-buffer-configuration)))
	    (car (cdr (assoc 'summary gnus-buffer-configuration))))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (post 1.0 point)))))

(gnus-add-configuration
 '(reply
   (frame 1.0
	  (car (cdr (assoc 'article gnus-buffer-configuration)))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (message 1.0 point)))))
      
(gnus-add-configuration
 '(forward
   (frame 1.0
	  (car (cdr (assoc 'article gnus-buffer-configuration)))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (message 1.0 point)))))


(gnus-add-configuration
 '(reply-yank
   (frame 1.0
	  (car (cdr (assoc 'article gnus-buffer-configuration)))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (message 1.0 point)))))


(gnus-add-configuration
 '(mail-bounce
   (frame 1.0
	  (car (cdr (assoc 'article gnus-buffer-configuration)))
	  (vertical
	   ((user-position . t) (top . 1) (left . 1)
	    (name . "Gnus Edit"))
	   (message 1.0 point)))))

(gnus-add-configuration
 '(draft
   (frame 1.0
	  (car (cdr (assoc 'summary gnus-buffer-configuration)))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (draft 1.0 point)))))
      
(gnus-add-configuration
 '(pipe
   (car (cdr (assoc 'article gnus-buffer-configuration)))))

(gnus-add-configuration
 '(bug
   (frame 1.0
	  (if (not (buffer-live-p gnus-summary-buffer))
	      (car (cdr (assoc 'group gnus-buffer-configuration)))
	    (car (cdr (assoc 'summary gnus-buffer-configuration))))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    ("*Gnus Help Bug*" 0.3)
		    ("*Gnus Bug*" 1.0 point)))))

(gnus-add-configuration
 '(compose-bounce
   (frame 1.0
	  (car (cdr (assoc 'article gnus-buffer-configuration)))
	  (vertical
	   ((user-position . t) (top . 1) (left . 1)
	    (name . "Gnus Edit"))
	   (message 1.0 point)))))