home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / fj / editor / emacs / 1342 < prev    next >
Encoding:
Text File  |  1992-12-21  |  5.8 KB  |  164 lines
  1. Path: sparky!uunet!noc.near.net!hri.com!spool.mu.edu!agate!stanford.edu!sun-barr!sh.wide!kogwy!cs-keio!itojun
  2. From: itojun@mt.cs.keio.ac.jp (Jun-ichiro ITOH)
  3. Newsgroups: fj.editor.emacs
  4. Subject: Re: Unofficial patch for ktin 1.3.1@1.1.7 (2/4)
  5. Message-ID: <ITOJUN.92Dec21210554@ingram.mt.cs.keio.ac.jp>
  6. Date: 21 Dec 92 12:05:54 GMT
  7. References: <1992Dec7.161915.2286@merope.pleiades.or.jp>
  8.     <1992Dec20.150437.29978@merope.pleiades.or.jp>
  9. Sender: news@sync.cs.keio.ac.jp
  10. Distribution: fj
  11. Organization: Tokoro Laboratory, Keio University, Yokohama Japan.
  12. Lines: 148
  13. In-Reply-To: void@merope.pleiades.or.jp's message of Sun, 21 Dec 1992 00:04:37 JST
  14. Nntp-Posting-Host: ingram.mt.cs.keio.ac.jp
  15.  
  16.  
  17.     $B$$(B$B$H$B$e$s(B%elisp$B=i?4<T(B@$B7DXf=j8&$G$9!#(B
  18.  
  19.     $B@hF|(Bvoid$B$5$s$,(Bfj.sources.d$B$K=P$5$l$?!"(B
  20.  
  21. On Sun, 21 Dec 1992 00:04:37 JST, void@merope.pleiades.or.jp (Kusakabe Youichi) said:
  22.  
  23. void>     $B<+J,$G8@$&$N$b$J$s$@$1$I!"(B
  24.  
  25. void> Kusakabe Youichi (void@merope.pleiades.or.jp) wrote:
  26. void> :     News Group$BL>$r$_$F!"(B
  27. void> :     Default $B$N(B Distribution $B$r7h$a$F$_$?$i$I$&$+$H;W$C$F!"(B
  28. void> :     /usr/lib/news/Distribution $B$H$$$&%U%!%$%k$+(B$B$i(B
  29. void> :     $BFI$^$;$k$h$&$K2~B$$r;n$_$F$_$^$7$?!#(B
  30. void> :         merope    local
  31. void> :         wasada    waseda
  32. void> :         tokai    tokai
  33. void> :         kansai    kansai
  34. void> :         fj.test    local
  35. void> :         fj    fj
  36. void> :         comp    world
  37. void> :         DEFAULT    world
  38. void> :     $B$N$h$&$K=q$$$F$*$1$P(BOK$B$G$9!#(B
  39.  
  40. void>     $B$d$C$Q$j$3$N%Q%C%A$C$FJXMx(B :-)
  41.  
  42.     $B$3$N5-;v$r8+$FH/:nE*$K(BGNUS$B$K$b$3$N5!G=$r$D$1$?$/$J$j$^$7$?!#(B
  43.     $B$G!"$A$g$C$H$d$C$F$_$^$7$?$H$3$m0l1~(B$BF0$$$F$$$k$h$&$G$9$N$G(B
  44.     $B%]%9%H$5$;$F2<$5$$!#(B
  45.     $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
  46.     $B$H$$$&$N$,$"$j$^$7$?$i@'Hs65$($F$/$@$5$$!#JY6/$K$J$j$^$9$N$G!#(B
  47.  
  48. $B$A$g$C$HD9$$$+$i(B
  49.  
  50.     $B$H$j$"$($:!"(B.emacs$B$K0J2<$N$h!<$J9T$rDI2C$7$F(B($B$3$N@_Dj$,K\Ev$K(B
  51.     $B@5$7$$$+$I$&$+$O;d$OCN$i$J$$(B:-):-))$B!"(B
  52.  
  53. ---$B$3$3$+$i(B
  54. (setq gnus-default-distribution-alist
  55.   '(("mt" . "mt")
  56.     ("keio" . "keio")
  57.     ("keio-cs" . "keio-cs")
  58.     ("fj.test" . "local")
  59.     ("fj" . "fj")
  60.     ("comp" . "world")
  61.     ("control" . "local")
  62.     ("general" . "local")
  63.     ("DEFAULT" . "world")))
  64. ---$B$3$3$^$G(B
  65.  
  66.     gnuspost.el$B$K0J2<$N%Q%C%A$r$"$F$k$H(B$B!"(BDistribution:$B$N%G%U%)%k%HCM$,(B
  67.     newsgroup$B$4$H$KJQ2=$7$^$9!#(B
  68. #    $B$&$A$K$"$C$?$N$,(B
  69. ;; $Header: gnuspost.el,v 1.2 90/03/23 13:25:16 umerin Locked $
  70. #    $B$H$$$&$N$G$7$?$N$G$=$l$KBP$9$k%Q%C%A$K$J$C$F$^$9!#(B
  71. #    $B8E$+(B$B$C$?$j$7$?$i$I$&$7$h$&(B:-):-)
  72.  
  73.     $B$?$@$7!"(Bgnus-interactive-post$B$,(Bnil$B$N>uBV$N$H$-$K!"(B*Newsgroup*$B2hLL$+$i(B
  74.     $B%]%9%H$7$h$&$H$7$?$H$-$K$O!"(Bnewsgroup$BL>$,$o$+$j$^$;$s$N$G(B
  75.     $B;DG0$J$,$i3Z$r$9$k$3$H$O$G$-$^$;$s!#(B
  76.  
  77. ---$B$3$3$+$i(B
  78. *** /usr/local/lib/emacs/lisp/gnuspost.el    Sun Mar 25 16:00:56 1990
  79. --- gnuspost.el    Mon Dec 21 20:49:40 1992
  80. ***************
  81. *** 29,34 ****
  82. --- 29,37 ----
  83.   (defvar gnus-post-news-buffer "*post-news*")
  84.   (defvar gnus-winconf-post-news nil)
  85.   
  86. + ;; by itojun
  87. + (defvar gnus-default-distribution-alist nil)
  88. + 
  89.   (autoload 'news-reply-mode "rnewspost")
  90.   
  91.   ;;; Post news commands of GNUS Group Mode and Subject Mode
  92. ***************
  93. *** 165,180 ****
  94.           (setq subject (read-string "Subject: "))
  95.           (setq distribution
  96.                 (substring newsgroups 0 (string-match "\\." newsgroups)))
  97. !         (if (string-equal distribution newsgroups)
  98. !             ;; Newsgroup may be general or control. In this
  99. !             ;; case, use default distribution.
  100. !             (setq distribution gnus-default-distribution))
  101.           (setq distribution
  102.                 (read-string "Distribution: " distribution))
  103.           ;; An empty string is ok to ignore gnus-default-distribution.
  104.           ;;(if (string-equal distribution "")
  105.           ;;    (setq distribution nil))
  106. !         ))
  107.         (news-setup () subject () newsgroups artbuf)
  108.         ;; Make sure the article is posted by GNUS.
  109.         ;;(mail-position-on-field "Posting-Software")
  110. --- 168,192 ----
  111.           (setq subject (read-string "Subject: "))
  112.           (setq distribution
  113.                 (substring newsgroups 0 (string-match "\\." newsgroups)))
  114. ! ;        (if (string-equal distribution newsgroups)
  115. ! ;            ;; Newsgroup may be general or control. In this
  116. ! ;            ;; case, use default distribution.
  117. ! ;            (setq distribution gnus-default-distribution))
  118. ! ;; by itojun
  119. !         (if (and newsgroups gnus-default-distribution-alist)
  120. !             (setq distribution (gnus-distribution-by-alist 
  121. !                     newsgroups)))
  122.           (setq distribution
  123.                 (read-string "Distribution: " distribution))
  124.           ;; An empty string is ok to ignore gnus-default-distribution.
  125.           ;;(if (string-equal distribution "")
  126.           ;;    (setq distribution nil))
  127. !         )
  128. ! ;; by itojun
  129. !           ;; when non-interactive mode, we still can use it
  130. !           (if (and newsgroups gnus-default-distribution-alist)
  131. !           (setq distribution (gnus-distribution-by-alist
  132. !                       newsgroups))))
  133.         (news-setup () subject () newsgroups artbuf)
  134.         ;; Make sure the article is posted by GNUS.
  135.         ;;(mail-position-on-field "Posting-Software")
  136. ***************
  137. *** 665,667 ****
  138. --- 677,691 ----
  139.              )))
  140.         (t organization))
  141.       ))
  142. + 
  143. + ;; by itojun
  144. + (defun gnus-distribution-by-alist (newsgroups)
  145. +   (or (cdr (assoc newsgroups
  146. +           gnus-default-distribution-alist))
  147. +       (cdr (assoc (substring newsgroups
  148. +                  0
  149. +                  (string-match "\\." newsgroups))
  150. +           gnus-default-distribution-alist))
  151. +       (cdr (assoc "DEFAULT"
  152. +           gnus-default-distribution-alist))
  153. +       gnus-deafult-distribution))
  154. ---$B$3$3$^$G(B
  155.  
  156.     $B$^$@$"$^$j;n$7$F$J$$$N$G!"I]$$$b$N9%$-$JJ}!"$I$&$>(B:-);-)
  157.     $B$G$O$G$O!#(B
  158. --
  159. $B$$$H$B$e$s(B@mt.cs.keio.ac.jp($B0KF#=c0lO:(B)
  160.     $B7DXf5A=NBg3XM}9)3XIt(B $BEE5$9)3X2J(B/$B8&5f2J7W;;5!2J3X@l96(B $B=j8&(B$B5f<<(B
  161.     itojun@mt.cs.keio.ac.jp        itojun@foretune.co.jp
  162.     jinNet itojun            addNet itojun
  163.     ESD/$B%(%s%2%k78?t(B$B8~>e0Q0w2q%=%U%H%&%'%"J,2J2q(B
  164.