Mercurial > emacs
diff lisp/gnus.el @ 15047:4dfe98bde444
* 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 | 1ef0f400ee8f |
children | b77f65304dd9 |
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.