From: itojun@mt.cs.keio.ac.jp (Jun-ichiro ITOH)
Newsgroups: fj.editor.emacs
Subject: Re: Unofficial patch for ktin 1.3.1@1.1.7 (2/4)
Date: 21 Dec 92 12:05:54 GMT
	<1992Dec20.150437.29978@merope.pleiades.or.jp>
Distribution: fj
Organization: Tokoro Laboratory, Keio University, Yokohama Japan.


	$B$$(B$B$H$B$e$s(B%elisp$B=i?4<T(B@$B7DXf=j8&$G$9!#(B

	$B@hF|(Bvoid$B$5$s$,(Bfj.sources.d$B$K=P$5$l$?!"(B

On Sun, 21 Dec 1992 00:04:37 JST, void@merope.pleiades.or.jp (Kusakabe Youichi) said:

void> 	$B<+J,$G8@$&$N$b$J$s$@$1$I!"(B

void> Kusakabe Youichi (void@merope.pleiades.or.jp) wrote:
void> : 	News Group$BL>$r$_$F!"(B
void> : 	Default $B$N(B Distribution $B$r7h$a$F$_$?$i$I$&$+$H;W$C$F!"(B
void> : 	/usr/lib/news/Distribution $B$H$$$&%U%!%$%k$+(B$B$i(B
void> : 	$BFI$^$;$k$h$&$K2~B$$r;n$_$F$_$^$7$?!#(B
void> : 		merope	local
void> : 		wasada	waseda
void> : 		tokai	tokai
void> : 		kansai	kansai
void> : 		fj.test	local
void> : 		fj	fj
void> : 		comp	world
void> : 		DEFAULT	world
void> : 	$B$N$h$&$K=q$$$F$*$1$P(BOK$B$G$9!#(B

void> 	$B$d$C$Q$j$3$N%Q%C%A$C$FJXMx(B :-)

	$B$3$N5-;v$r8+$FH/:nE*$K(BGNUS$B$K$b$3$N5!G=$r$D$1$?$/$J$j$^$7$?!#(B
	$B$G!"$A$g$C$H$d$C$F$_$^$7$?$H$3$m0l1~(B$BF0$$$F$$$k$h$&$G$9$N$G(B
	$B%]%9%H$5$;$F2<$5$$!#(B
	$B$b$7!V$3$s$J$d$j$+$?$O1x$J$$!W$H$+!V$b$C$H$$$$J}K!$,$"$k(B$B$G!W(B
	$B$H$$$&$N$,$"$j$^$7$?$i@'Hs65$($F$/$@$5$$!#JY6/$K$J$j$^$9$N$G!#(B

$B$A$g$C$HD9$$$+$i(B

	$B$H$j$"$($:!"(B.emacs$B$K0J2<$N$h!<$J9T$rDI2C$7$F(B($B$3$N@_Dj$,K\Ev$K(B
	$B@5$7$$$+$I$&$+$O;d$OCN$i$J$$(B:-):-))$B!"(B

---$B$3$3$+$i(B
(setq gnus-default-distribution-alist
  '(("mt" . "mt")
    ("keio" . "keio")
    ("keio-cs" . "keio-cs")
    ("fj.test" . "local")
    ("fj" . "fj")
    ("comp" . "world")
    ("control" . "local")
    ("general" . "local")
    ("DEFAULT" . "world")))
---$B$3$3$^$G(B

	gnuspost.el$B$K0J2<$N%Q%C%A$r$"$F$k$H(B$B!"(BDistribution:$B$N%G%U%)%k%HCM$,(B
	newsgroup$B$4$H$KJQ2=$7$^$9!#(B
#	$B$&$A$K$"$C$?$N$,(B
;; $Header: gnuspost.el,v 1.2 90/03/23 13:25:16 umerin Locked $
#	$B$H$$$&$N$G$7$?$N$G$=$l$KBP$9$k%Q%C%A$K$J$C$F$^$9!#(B
#	$B8E$+(B$B$C$?$j$7$?$i$I$&$7$h$&(B:-):-)

	$B$?$@$7!"(Bgnus-interactive-post$B$,(Bnil$B$N>uBV$N$H$-$K!"(B*Newsgroup*$B2hLL$+$i(B
	$B%]%9%H$7$h$&$H$7$?$H$-$K$O!"(Bnewsgroup$BL>$,$o$+$j$^$;$s$N$G(B
	$B;DG0$J$,$i3Z$r$9$k$3$H$O$G$-$^$;$s!#(B

---$B$3$3$+$i(B
*** /usr/local/lib/emacs/lisp/gnuspost.el	Sun Mar 25 16:00:56 1990
--- gnuspost.el	Mon Dec 21 20:49:40 1992
***************
*** 29,34 ****
--- 29,37 ----
  (defvar gnus-post-news-buffer "*post-news*")
  (defvar gnus-winconf-post-news nil)
  
+ ;; by itojun
+ (defvar gnus-default-distribution-alist nil)
+ 
  (autoload 'news-reply-mode "rnewspost")
  
  ;;; Post news commands of GNUS Group Mode and Subject Mode
***************
*** 165,180 ****
  		(setq subject (read-string "Subject: "))
  		(setq distribution
  		      (substring newsgroups 0 (string-match "\\." newsgroups)))
! 		(if (string-equal distribution newsgroups)
! 		    ;; Newsgroup may be general or control. In this
! 		    ;; case, use default distribution.
! 		    (setq distribution gnus-default-distribution))
  		(setq distribution
  		      (read-string "Distribution: " distribution))
  		;; An empty string is ok to ignore gnus-default-distribution.
  		;;(if (string-equal distribution "")
  		;;    (setq distribution nil))
! 		))
  	  (news-setup () subject () newsgroups artbuf)
  	  ;; Make sure the article is posted by GNUS.
  	  ;;(mail-position-on-field "Posting-Software")
--- 168,192 ----
  		(setq subject (read-string "Subject: "))
  		(setq distribution
  		      (substring newsgroups 0 (string-match "\\." newsgroups)))
! ;		(if (string-equal distribution newsgroups)
! ;		    ;; Newsgroup may be general or control. In this
! ;		    ;; case, use default distribution.
! ;		    (setq distribution gnus-default-distribution))
! ;; by itojun
! 		(if (and newsgroups gnus-default-distribution-alist)
! 		    (setq distribution (gnus-distribution-by-alist 
! 					newsgroups)))
  		(setq distribution
  		      (read-string "Distribution: " distribution))
  		;; An empty string is ok to ignore gnus-default-distribution.
  		;;(if (string-equal distribution "")
  		;;    (setq distribution nil))
! 		)
! ;; by itojun
! 	      ;; when non-interactive mode, we still can use it
! 	      (if (and newsgroups gnus-default-distribution-alist)
! 		  (setq distribution (gnus-distribution-by-alist
! 				      newsgroups))))
  	  (news-setup () subject () newsgroups artbuf)
  	  ;; Make sure the article is posted by GNUS.
  	  ;;(mail-position-on-field "Posting-Software")
***************
*** 665,667 ****
--- 677,691 ----
  	       )))
  	  (t organization))
      ))
+ 
+ ;; by itojun
+ (defun gnus-distribution-by-alist (newsgroups)
+   (or (cdr (assoc newsgroups
+ 		  gnus-default-distribution-alist))
+       (cdr (assoc (substring newsgroups
+ 			     0
+ 			     (string-match "\\." newsgroups))
+ 		  gnus-default-distribution-alist))
+       (cdr (assoc "DEFAULT"
+ 		  gnus-default-distribution-alist))
+       gnus-deafult-distribution))
---$B$3$3$^$G(B

	$B$^$@$"$^$j;n$7$F$J$$$N$G!"I]$$$b$N9%$-$JJ}!"$I$&$>(B:-);-)
	$B$G$O$G$O!#(B
--
$B$$$H$B$e$s(B@mt.cs.keio.ac.jp($B0KF#=c0lO:(B)
	$B7DXf5A=NBg3XM}9)3XIt(B $BEE5$9)3X2J(B/$B8&5f2J7W;;5!2J3X@l96(B $B=j8&(B$B5f<<(B
	itojun@mt.cs.keio.ac.jp		itojun@foretune.co.jp
	jinNet itojun			addNet itojun
	ESD/$B%(%s%2%k78?t(B$B8~>e0Q0w2q%=%U%H%&%'%"J,2J2q(B