Mercurial > emacs

changeset 15047:4dfe98bde444

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* gnus.el (gnus-summary-pipe-output, gnus-buffer-configuration, gnus-window-to-buffer): Pop up the shell buffer after piping articles through a filter.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Thu, 18 Apr 1996 19:36:33 +0000
parents 7cd7f3bca33f
children 1f316fa0e840
files lisp/gnus.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.