Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!kogwy!cs-keio!itojun
From: itojun@mt.cs.keio.ac.jp (Jun-ichiro ITOH)
Subject: Re: Unofficial patch for ktin 1.3.1@1.1.7 (2/4)
In-Reply-To: void@merope.pleiades.or.jp's message of Sun, 21 Dec 1992 00:04:37 JST
Message-ID: <ITOJUN.92Dec21210554@ingram.mt.cs.keio.ac.jp>
Sender: news@sync.cs.keio.ac.jp
Nntp-Posting-Host: ingram.mt.cs.keio.ac.jp
Organization: Tokoro Laboratory, Keio University, Yokohama Japan.
References: <1992Dec7.161915.2286@merope.pleiades.or.jp>
	<1992Dec20.150437.29978@merope.pleiades.or.jp>
Distribution: fj
Date: Mon, 21 Dec 1992 12:05:54 GMT
Lines: 147
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3387
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3387&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.

$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$+$i(B
void> : $BFI$^$;$k$h$&$K2~B$$r;n$_$F$_$^$7$?!#(B
void> : meropelocal
void> : wasadawaseda
void> : tokaitokai
void> : kansaikansai
void> : fj.testlocal
void> : fjfj
void> : compworld
void> : DEFAULTworld
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~F0$$$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$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!"(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$+$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.elSun Mar 25 16:00:56 1990
--- gnuspost.elMon 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&5f<<(B
itojun@mt.cs.keio.ac.jpitojun@foretune.co.jp
jinNet itojunaddNet itojun
ESD/$B%(%s%2%k78?t8~>e0Q0w2q%=%U%H%&%'%"J,2J2q(B
