[mew-int 00518] Re: mew-summary-pipe-message, Mew 2.1rc2, and Emacs 21.1

[Kazu Yamamoto ( 山本和彦 )]

From: sen_ml at example.com
Subject: [mew-int 00517] Re: mew-summary-pipe-message, Mew 2.1rc2, and Emacs 21.1

> 5) Now run mew-summary-pipe-message and choose "cat" as the command
>    to execute.

I don't think I understand your problem well. But if you want to
display even short output in the *Shell Command Output* in Emacs 21,
apply this patch.

See doc of shell-command-on-region for more details.

--Kazu

Index: mew-summary.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-summary.el,v
retrieving revision 1.92
diff -c -r1.92 mew-summary.el
*** mew-summary.el	2001/10/26 05:19:16	1.92
--- mew-summary.el	2001/10/29 03:06:07
***************
*** 2043,2060 ****
     (list current-prefix-arg 
  	 (read-string "Shell command on message: " mew-last-shell-command)))
    (mew-summary-display 'redisplay)
!   (if (y-or-n-p "Send this message to pipe? ")
!       (save-excursion
! 	(set-buffer (mew-buffer-message))
! 	(save-restriction
! 	  (widen)
! 	  (if (string= command "")
! 	      (setq command mew-last-shell-command))
! 	  (goto-char (point-min)) ; perhaps this line won't be necessary
! 	  (if prefix
! 	      (search-forward "\n\n"))
! 	  (shell-command-on-region (point) (point-max) command nil)
! 	  (setq mew-last-shell-command command)))))
  
  (defun mew-summary-print (&optional arg)
    "Print this message or this part according to 'mew-print-function'."
--- 2043,2059 ----
     (list current-prefix-arg 
  	 (read-string "Shell command on message: " mew-last-shell-command)))
    (mew-summary-display 'redisplay)
!   (when (y-or-n-p "Send this message to pipe? ")
!     (save-excursion
!       (set-buffer (mew-buffer-message))
!       (save-restriction
! 	(widen)
! 	(if (string= command "") (setq command mew-last-shell-command))
! 	(goto-char (point-min)) ; perhaps this line won't be necessary
! 	(if prefix (search-forward "\n\n"))
! 	(let ((max-mini-window-height 1))
! 	  (shell-command-on-region (point) (point-max) command nil))
! 	(setq mew-last-shell-command command)))))
  
  (defun mew-summary-print (&optional arg)
    "Print this message or this part according to 'mew-print-function'."