Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!nirvana.cs.titech!wnoc-tyo-news!sh.wide!fgw!fdm!flab!meridian!flab.fujitsu!tanaka
From: tanaka@flab.fujitsu.co.jp (Hiroshi TANAKA)
Subject: Re: [Q]gnus on Demacs
In-Reply-To: g330414@secc.ecc.u-tokyo.ac.jp's message of 26 May 94 04:50:35 GMT
Message-ID: <TANAKA.94May27102346@ikuko.pssys.flab.fujitsu.co.jp>
Sender: news@akashi.flab.fujitsu.co.jp
Nntp-Posting-Host: sayumi.pssys.flab.fujitsu.co.jp
Organization: Fujitsu Laboratories Ltd., Akashi, Japan.
References: <TANAKA.94May25110121@ikuko.pssys.flab.fujitsu.co.jp>
	<G330414.94May26135035@ecc-1001.ecc.u-tokyo.ac.jp>
Distribution: fj
Date: Fri, 27 May 1994 01:23:46 GMT
Dnas-Posting-Host: ikuko.pssys.flab.fujitsu.co.jp
Lines: 55
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4733
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4733&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BEDCf!w$U8.(B^H$B8&$G$9!#(B
Demacs$B$O;H$C$F$$$J$$$N$G?dB,$K$J$C$F$7$^$$$^$9!J$9$$$^$;$s!K!#(B

In article <G330414.94May26135035@ecc-1001.ecc.u-tokyo.ac.jp> g330414@secc.ecc.u-tokyo.ac.jp (Daichi Mochihashi) writes:

 >> $B$?$@0l$D!"(BGNUS$B$G%G%#%l%/%H%j$N2<$rD>@\8+$k>l9g!"(Bls $B%3%^%s%I$rFbIt$+$i(B
 >> $B8F$S$^$9$N$G!"(BDOS $B>e$K$b(BUNIX$B$N(Bls$B%3%^%s%I$HEy2A$J5!G=$r;}$D%3%^%s%I$,I,(B
 >> $BMW$G$9!#(B

ls.exe$B$,%U%j!<$GB8:_$9$k$H$$$&;v$J$N$G!VLdBjL5$/$G$-$k$J!W$H0B?4$7$F$^(B
$B$7$?$,!"!"(B

 >$B$G$-$=$&$J$N$G$9$,!"$3$3$G(B "can't execute. file not found; "ls"" $B$H8@(B
 >$B$o$l$F$7$^$$$^$9!#!J$b$A$m$s!"(Bls.exe$B$O$"$j$^$9(B-- a:\usr\local\bin$B$K(B($B>P(B))
 >
 >gnus.el$B$NCf$N(B (call-process "ls" nil $B!D(B) $B$H$$$&9T$,LdBj$N$h$&$G$9!#(B

$B%U%!%$%k$,8+$D$+$i$J$$$N$@$+$i!"$3$3$rD>$;$P$$$$$N$G$7$g$&$M!#(B
GNUS4.1$B$+$i4XO"ItJ,$rH4$-=P$9$H!"(B

(defun mhspool-list-folders-using-ls (directory)
  "List files in folders under DIRECTORY using 'ls'."
  (apply 'call-process
 "ls" nil t nil
 (append mhspool-list-directory-switches (list directory))))

$B$G$9!#$b$A$m$s!"(B"ls" $B$NItJ,$O%U%k%Q%9$G=q$1$^$9$+$i!"(B

(defun mhspool-list-folders-using-ls (directory)
  "List files in folders under DIRECTORY using 'ls'."
  (apply 'call-process
 "a:/usr/local/bin/ls" nil t nil
 (append mhspool-list-directory-switches (list directory))))

$B$G$G$-$k$+!"$^$?$O(B

(defun mhspool-list-folders-using-ls (directory)
  "List files in folders under DIRECTORY using 'ls'."
  (apply 'call-process
 "a:\\usr\\local\\bin\\ls" nil t nil
 (append mhspool-list-directory-switches (list directory))))

$B$H$G$b$J$k$N$+$J!#!#!#(BDemacs$B$NCf$+$i%U%k%Q%9$rI=$9>l9g!"$d$C$Q$j%P%C%/(B
$B%9%i%C%7%e$J$s$G$7$g$&$+!)!d;H$C$F$k?M(B

$B!t$?$V$sIaDL$N%9%i%C%7%e$@$H;W$&$s$@$1$I!"!"(B

$B$^$"!"$[$s$H$O(B exec-path $B$NCM$r$$$8$C$F(Bls.exe$B$,8+$D$+$k$h$&$K$9$k$N$,(B
$B@5$7$$$N$@$H;W$$$^$9!#(B
exec-path $B$NCM$NCf$K!"(Ba:/usr/local/bin $B$O4^$^$l$F$$$^$9$+!)(B
--
Simple is BEST. (^-^)
$BIY;NDL8&5f=j(B
$BEDCf(B   $B9((B
tanaka@flab.fujitsu.CO.JP
