# HG changeset patch
# User Lars Magne Ingebrigtsen <larsi@gnus.org>
# Date 829856193 0
# Node ID 4dfe98bde4448c83c86d71289431ce0531ad709b
# Parent  7cd7f3bca33f8b9006f831481b9694207b4f817e
* gnus.el (gnus-summary-pipe-output, gnus-buffer-configuration,
gnus-window-to-buffer): Pop up the shell buffer after piping
articles through a filter.

diff -r 7cd7f3bca33f -r 4dfe98bde444 lisp/gnus.el
--- a/lisp/gnus.el	Thu Apr 18 12:09:23 1996 +0000
+++ b/lisp/gnus.el	Thu Apr 18 19:36:33 1996 +0000
@@ -710,6 +710,9 @@
     (article ([summary 0.25 point] 
 	      (if gnus-carpal [summary-carpal 4]) 
 	      [article 1.0]))
+    (pipe ([summary 0.25 point] 
+	   (if gnus-carpal [summary-carpal 4]) 
+	   [pipe 1.0]))
     (server ([server 1.0 point]
 	     (if gnus-carpal [server-carpal 2])))
     (browse ([browse 1.0 point]
@@ -757,6 +760,7 @@
     (article . gnus-article-buffer)
     (server . gnus-server-buffer)
     (browse . "*Gnus Browse Server*")
+    (pipe . "*Shell Command Output*")
     (edit-group . gnus-group-edit-buffer)
     (edit-server . gnus-server-edit-buffer)
     (group-carpal . gnus-carpal-group-buffer)
@@ -10418,7 +10422,8 @@
   (interactive "P")
   (gnus-set-global-variables)
   (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe))
-    (gnus-summary-save-article arg)))
+    (gnus-summary-save-article arg))
+  (gnus-configure-windows 'pipe))
 
 (defun gnus-summary-save-article-mail (&optional arg)
   "Append the current article to an mail file.