[Mew-dist 05635] Re: audio bug fix

[Shin'ichi Kuga]

久峩と申します．

mew-1.93b48にして，以下のpatchをあてみたところ，
elcのコンパイルが出来ませんでした．
emacs lisp はよくわかりませんが，
一カ所 ")" が足りませんよね?

kazu> *** mew-attach.el.orig	Thu Jul 23 13:54:25 1998
kazu> --- mew-attach.el	Thu Jul 23 13:55:02 1998
kazu> --- 449,457 ----
kazu>   		(while (not (y-or-n-p "Are you ready? ")) ())
kazu>   		(message "Type C-g to finish recording...")
kazu>   		(mew-plet
kazu> ! 		 (apply (function call-process)
kazu> ! 			(nth 0 mew-prog-audio)
kazu> ! 			(nth 1 mew-prog-audio)))
                                         ~~~~
本当は             (nth 1 mew-prog-audio))))
ですよね?
上述のようにカッコを追加して，mewをコンパイルして，
draft モードで，
C-c,C-a,a を試してみたところ，エラーメッセージが変化したようです．

-------ここから
Signaling: (wrong-type-argument bufferp "cat - > /dev/audio")
  call-process-internal("/bin/sh" "-c" "cat - > /dev/audio" nil)
  apply(call-process-internal "/bin/sh" "-c" "cat - > /dev/audio" nil nil)
  call-process("/bin/sh" "-c" "cat - > /dev/audio")
  apply(call-process "/bin/sh" ("-c" "cat - > /dev/audio"))
  byte-code("..." [y-or-n-p "Are you ready? " 
  message "Type C-g to finish recording..." 
  nil binary coding-system-for-write coding-system-for-read 
  call-process-hook apply call-process mew-prog-audio] 4)
  #<compiled-function nil "...(175)" 
  [mew-attach-not-line012-1 message "Can't attach audio data here." 
  mew-attach-nums nums mew-attach-expand-path mew-encode-syntax subdir 
  mew-expand-folder mew-draft-to-mime buffer-name mimedir nil file 
  filepath "" expand-file-name mew-random-filename mew-audio-suffix 
  "Could not make a file for audio, sorry." 
  file-name-nondirectory mew-set-buffer-tmp 
 (byte-code "AA!<<{AA!^EAA^E^^^F^^^G^^^HEE^N^K\"^E+A^C"" ... 4)
 (...) binary jka-compr-compression-info-list jam-zcat-filename-list 
 coding-system-for-write coding-system-for-read write-region no-msg 
 mew-syntax-insert-entry mew-encode-syntax-single mew-type-ado cdp 
 mew-encode-syntax-print] 12 
 ("/com/xemacs/lib/xemacs/site-lisp/mew-attach.elc" . 10859) nil>()
  call-interactively(mew-attach-audio)

-------ここまで

うまく行かないのは，わたしの環境だけでしょうか?

--
☆   ＮＴＴデータ通信（株）ＭＭＣ ＭＭＳＩ ＭＭＥＩグループ   ☆
☆   久峩 信一 < kuga at example.com >TEL 044-548-4621   ☆ 
☆                                         FAX 044-548-4666   ☆