🚀 go-pugleaf

$B!!7*K\$G$9$,!%!%!%(J

In article <1992Nov16.051133.20309@etl.go.jp>
 ogata@etl.go.jp (Ichiro Ogata) writes:

>$BB@ED$5$s$NH/9T(J$B$9$k(J ctl message $B$K$h$C$F!"(J moderated $B$K$J$C$F$7$^$C$?#N(J
>$B#G$KEj9F$9$kJ}K!$G$9!#(J
>
>$B4pK\E*$K$O!"<+J,$N(J$B%(%G%#%?!<$G5-;v$N(J Header $BIt$K(J Approved: $B$H$$$&J8;z(J
>$BNs$r<+J,$G=q$-9~$`$@$1$G$9!#(J Subject: $B$rJT=8$9$k(J$B$h$&$J$D$b$j$G$d$l$P!"(J
>$B$=$l$G$$$$$s$G$9!#(J
>
>$B$_$?$$$K=q$1$P!J!v#2!KLdBj$J$/%K%e!<%:$ON.DL$7$^$9!#(J Approved: $B$OI,$:(J
>$B%(%G%#%?!<$G=q$-$3$s$G$*$-$^$7$g$&!#!J$I$&$;!"32$O$J$$$N$G$9!K(J

$B!!$H8@$&$o$1$G!$(JGNUS$B$J(J$B$i$P!$(Jgnuspost.el(v1.2)$B$N(J
gnus-inews-insert-headers$B4X?t$N:G8e$K(J

      (insert "Approved: " (gnus-inews-user-name) "\n");; Add tell@nsis

$B$N#19T$rF~$l$F(J

      (or (mail-fetch-field "distribution")
	  (insert "Distribution: \n"))
      (insert "Approved: " (gnus-inews-user-name) "\n");; Add tell@nsis
      )))

$B!!$3$s$J46$8$K$7$F!$J]4I$7$F!$(J

 emacs -batch -f batch-byte-compile gnuspost.el

$B!!$H%3%s%Q(J$B%$%k$7$F$d$l$P!$0J8e<+F0E*$K(JApproved:$B$,$D$/$H8@$&$N$r!$(J
$B$A$g$C$HA0$KEj9F$7$^$7$?$,!$(J

>$B$"$H!"<B:]$K$d(J$B$k?M$,=P$?$H$3$m$G!"$A$c$s$HCm0U$9$k?M$,$$$k$@$m$&$+$i!"(J
>$BLdBj$J$$$H;W$$$^$9$1$I!"(J
>
> $B!v#3!!$G$b7h$7(J$B$F@55,$N(Jmoderated NG$B$K$OIU$1$J$$$G$/$@$5$$!#(J
> 
>$B$bK:$l$J$$$G2<$5$$!#(J

$B!!$H8@$&;v$J$N$G!$>e5-=$@5$r$7(J$B$?(JGNUS$B$OA4$F$N(Jmoderated NG$B$K=P$;$F$7(J
$B$^$&$N$G!$?4G[$J?M$O0J2<$N=$@5$G(JApproved:$B$rIU$1$k(JNG$B$r;XDj$G$-$^$9(J$B!%(J

$B!!F1$8$/(Jgnuspost.el(v1.2)$B$N(Jgnus-post-news$B4X?t$NESCf$K!$(J

		(setq gnus-newsgroup-name newsgroups); add tell

$B!!$N#19T$rDI2C$7$F!$(J

		(or newsgroups		;Use the default newsgroup.
		    (setq newsgroups
			  (completing-read "Newsgroup: " gnus-newsrc-assoc
					   nil 'require-match
					   newsgroups ;Default newsgroup.
					   )))
		(setq gnus-newsgroup-name newsgroups); add tell
		(setq subject (read-string "Subject: "))

$B$3$s$J46$8$K$7$^$9!%$=$7$F!$(Jgnus-inews-insert-headers$B4X?t$N:G8e$K(J

      (if (or(string-equal "fj.rec.travel.air" gnus-newsgroup-name); Add tell
	     (string-equal "fj.rec.travel.japan" gnus-newsgroup-name); Add tell
	     (string-equal "fj.rec.travel.world" gnus-newsgroup-name); Add tell
	     (string-equal "fj.rec.pachinko" gnus-newsgroup-name)); Add tell
	     (insert "Approved: " (gnus-inews-user-name) "\n")); Add tell

$B$NMM$J?t9T$rDI2C$7$F(J

      (or (mail-fetch-field "distribution")
	  (insert "Distribution: \n"))
      (if (or(string-equal "fj.rec.travel.air" gnus-newsgroup-name); Add tell
	     (string-equal "fj.rec.travel.japan" gnus-newsgroup-name); Add tell
	     (string-equal "fj.rec.travel.world" gnus-newsgroup-name); Add tell
	     (string-equal "fj.rec.pachinko" gnus-newsgroup-name)); Add tell
	     (insert "Approved: " (gnus-inews-user-name) "\n")); Add tell
      )))

$B!!$3$s$J46$8$K$7$FJ]4I$7$F!$(J

 emacs -batch -f batch-byte-compile gnuspost.el

$B!!$H%3%s(J$B%Q%$%k$7$F$d$l$P!$(J

 (string-equal "fj.XXX.YYY.ZZZ" gnus-newsgroup-name)

$B!!$G!$;XDj$7$?(JNG$B$X$NEj9F$O$K(J$B$O<+F0E*$K(JApproved:$B$,IU$$$F!$$=$l0J30$N(J
NG$B$K$OIU$+$J$/$J$j$^$9!%(J
$B!J$?$@$7!$2?$+ITET9g$,5/$3$C$F$bJ]>Z(J$B$O$7$J$$(Jgnus-newsgroup-name$B$KL5M}(J
$B!!LpM}(Jsetq$B$7$F$$$k$N$,$A$g$C$H5$$K$J$k!%Nc$($P$3$N5-;v$O(Jpachinko$B$N5-(J
$B!!;v$K(JFollow$B$7$F(JFollowup-To$B$G(Jfj.followup$B$K?6$i$l$F$$$k$,!$(JApproved:$B$,(J
$B!!IU$$$F$7$^$&$+$bCN$l$J$$!%!K(J
--
$B#N#E#C5;=Q>pJs%7%9%F%`3+H/!!!!7*K\!!8w<y!J(Jtell@nsis.cl.nec.co.jp$B!K(J