From bf8aeaf981c6f6096c7e1a07d076b8bbb5e41e02 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 18 Apr 1996 19:36:33 +0000 Subject: [PATCH] * gnus.el (gnus-summary-pipe-output, gnus-buffer-configuration, gnus-window-to-buffer): Pop up the shell buffer after piping articles through a filter. --- lisp/gnus.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus.el b/lisp/gnus.el index c72e407c2e7..efbf496ce6f 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -710,6 +710,9 @@ beginning of a line.") (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 @@ buffer configuration.") (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 @@ pipe those articles instead." (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. -- 2.39.2