home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / irchat-pj / irchat-pj-2.4.24.22.diff.bz2 / irchat-pj-2.4.24.22.diff
Lisp/Scheme  |  2002-07-20  |  44KB  |  1,148 lines
  1. diff -urN irchat-pj-2.4.24.21/OLD/irchat-pj-mode-line-format.el irchat-pj-2.4.24.22/OLD/irchat-pj-mode-line-format.el
  2. --- irchat-pj-2.4.24.21/OLD/irchat-pj-mode-line-format.el    Thu Jan  1 09:00:00 1970
  3. +++ irchat-pj-2.4.24.22/OLD/irchat-pj-mode-line-format.el    Fri Dec 17 23:36:38 1999
  4. @@ -0,0 +1,300 @@
  5. +;;;
  6. +;;; irchat-pj-mode-line-format.el
  7. +;;; last modify : Sun, 3 Jan 1999 by simm@irc.fan.gr.jp / irchat-PJ Project
  8. +;;; (date format modification by simm@irc.fan.gr.jp, Sun, 27 Jun 1999)
  9. +;;; see file irchat-copyright.el for change log and copyright info
  10. +;;;
  11. +
  12. +(provide 'irchat-pj-mode-line-format)
  13. +
  14. +;;
  15. +;; irchat-pj-Commands-mode-line-format
  16. +;;
  17. +
  18. +(defvar irchat-pj-Commands-mode-line-format-default
  19. +  (if (featurep 'meadow)
  20. +      '("" irchat-away-indicator irchat-freeze-indicator ""
  21. +        ((if (boundp 'MULE) mc-flag kanji-flag)
  22. +         ((minibuffer-window-selected
  23. +           (display-minibuffer-mode "m" " ") " ")
  24. +          mw32-ime-mode-line-state-indicator))
  25. +        " IRCHAT: Commands" irchat-private-indicator
  26. +        " {" irchat-chanbuf-indicator "} "
  27. +        irchat-nickname " on " irchat-servername
  28. +        (skk-mode skk-input-mode-string)
  29. +        " -%-")
  30. +    '("" irchat-away-indicator irchat-freeze-indicator ""
  31. +      ((if (boundp 'MULE) mc-flag kanji-flag)
  32. +       ((minibuffer-window-selected
  33. +         (display-minibuffer-mode "m" " ") " ")
  34. +        "["
  35. +        (minibuffer-window-selected
  36. +         (display-minibuffer-mode
  37. +          mode-line-egg-mode-in-minibuffer
  38. +          mode-line-egg-mode)
  39. +         mode-line-egg-mode)
  40. +        " ] " mode-line-canna-mode))
  41. +      " IRCHAT: Commands" irchat-private-indicator
  42. +      " {" irchat-chanbuf-indicator "} "
  43. +      irchat-nickname " on " irchat-servername
  44. +      (skk-mode skk-input-mode-string)
  45. +      " -%-")))
  46. +
  47. +(defvar irchat-pj-Commands-mode-line-format-for-egg
  48. +  '("" irchat-away-indicator irchat-freeze-indicator ""
  49. +    ((if (boundp 'MULE) mc-flag kanji-flag)
  50. +     ((minibuffer-window-selected
  51. +       (display-minibuffer-mode "m" " ") " ")
  52. +      "["
  53. +      (minibuffer-window-selected
  54. +       (display-minibuffer-mode
  55. +    mode-line-egg-mode-in-minibuffer
  56. +    mode-line-egg-mode)
  57. +       mode-line-egg-mode)
  58. +      " ]"))
  59. +    " IRCHAT: Commands" irchat-private-indicator
  60. +    " {" irchat-chanbuf-indicator "} "
  61. +    irchat-nickname " on " irchat-servername " -%-"))
  62. +
  63. +(defvar irchat-pj-Commands-mode-line-format-for-canna
  64. +  '("" irchat-away-indicator irchat-freeze-indicator ""
  65. +    ((if (boundp 'MULE) mc-flag kanji-flag)
  66. +     ((minibuffer-window-selected
  67. +       (display-minibuffer-mode "m" " ") " ")
  68. +      "-" mode-line-canna-mode))
  69. +    " IRCHAT: Commands" irchat-private-indicator
  70. +    " {" irchat-chanbuf-indicator "} "
  71. +    irchat-nickname " on " irchat-servername " -%-"))
  72. +
  73. +(defvar irchat-pj-Commands-mode-line-format-for-mw32
  74. +  '("" irchat-away-indicator irchat-freeze-indicator ""
  75. +    ((if (boundp 'MULE) mc-flag kanji-flag)
  76. +     ((minibuffer-window-selected
  77. +       (display-minibuffer-mode "m" " ") " ")
  78. +      mw32-ime-mode-line-state-indicator))
  79. +    " IRCHAT: Commands" irchat-private-indicator
  80. +    " {" irchat-chanbuf-indicator "} "
  81. +    irchat-nickname " on " irchat-servername
  82. +    " -%-"))
  83. +
  84. +(defvar irchat-pj-Commands-mode-line-format-simple
  85. +  '("" irchat-away-indicator irchat-freeze-indicator ""
  86. +    " IRCHAT: Commands" irchat-private-indicator
  87. +    " {" irchat-chanbuf-indicator "} "
  88. +    irchat-nickname " on " irchat-servername
  89. +    (skk-mode skk-input-mode-string)
  90. +    " -%-"))
  91. +
  92. +(defvar irchat-pj-Commands-mode-line-format-alternative
  93. +  (if (featurep 'meadow)
  94. +      '("" irchat-away-indicator irchat-freeze-indicator ""
  95. +        ((if (boundp 'MULE) mc-flag kanji-flag)
  96. +         ((minibuffer-window-selected
  97. +           (display-minibuffer-mode "m" " ") " ")
  98. +          mw32-ime-mode-line-state-indicator))
  99. +        " irchat-pj: Commands" irchat-private-indicator
  100. +        " <" irchat-servername "> " irchat-nickname
  101. +        " (" irchat-chanbuf-indicator (skk-mode skk-input-mode-string) ")"
  102. +        " -%-")
  103. +    '("" irchat-away-indicator irchat-freeze-indicator ""
  104. +      ((if (boundp 'MULE) mc-flag kanji-flag)
  105. +       ((minibuffer-window-selected
  106. +         (display-minibuffer-mode "m" " ") " ")
  107. +        "["
  108. +        (minibuffer-window-selected
  109. +         (display-minibuffer-mode
  110. +          mode-line-egg-mode-in-minibuffer
  111. +          mode-line-egg-mode)
  112. +         mode-line-egg-mode)
  113. +        " ]"))
  114. +      " irchat-pj: Commands" irchat-private-indicator
  115. +      " <" irchat-servername "> " irchat-nickname
  116. +      " (" irchat-chanbuf-indicator (skk-mode skk-input-mode-string) ")"
  117. +      " -%-")))
  118. +
  119. +(defvar irchat-pj-Commands-mode-line-format-alt-egg
  120. +  '("" irchat-away-indicator irchat-freeze-indicator ""
  121. +    ((if (boundp 'MULE) mc-flag kanji-flag)
  122. +     ((minibuffer-window-selected
  123. +       (display-minibuffer-mode "m" " ") " ")
  124. +      "["
  125. +      (minibuffer-window-selected
  126. +       (display-minibuffer-mode
  127. +    mode-line-egg-mode-in-minibuffer
  128. +    mode-line-egg-mode)
  129. +       mode-line-egg-mode)
  130. +      " ] " mode-line-canna-mode))
  131. +    " irchat-pj: Commands" irchat-private-indicator
  132. +    " <" irchat-servername "> " irchat-nickname
  133. +    " (" irchat-chanbuf-indicator ")"
  134. +    " -%-"))
  135. +
  136. +(defvar irchat-pj-Commands-mode-line-format-alt-canna
  137. +  '("" irchat-away-indicator irchat-freeze-indicator ""
  138. +    ((if (boundp 'MULE) mc-flag kanji-flag)
  139. +     ((minibuffer-window-selected
  140. +       (display-minibuffer-mode "m" " ") " ")
  141. +      "-" mode-line-canna-mode))
  142. +    " irchat-pj: Commands" irchat-private-indicator
  143. +    " <" irchat-servername "> " irchat-nickname
  144. +    " (" irchat-chanbuf-indicator (skk-mode skk-input-mode-string) ")"
  145. +    " -%-"))
  146. +
  147. +(defvar irchat-pj-Commands-mode-line-format-alt-mw32
  148. +  '("" irchat-away-indicator irchat-freeze-indicator ""
  149. +    ((if (boundp 'MULE) mc-flag kanji-flag)
  150. +     ((minibuffer-window-selected
  151. +       (display-minibuffer-mode "m" " ") " ")
  152. +        mw32-ime-mode-line-state-indicator))
  153. +    " irchat-pj: Commands" irchat-private-indicator
  154. +    " <" irchat-servername "> " irchat-nickname
  155. +    " (" irchat-chanbuf-indicator  ")"
  156. +    " -%-"))
  157. +
  158. +(defvar irchat-pj-Commands-mode-line-format-alt-simple
  159. +  '("" irchat-away-indicator irchat-freeze-indicator ""
  160. +    " irchat-pj: Commands" irchat-private-indicator
  161. +    " <" irchat-servername "> " irchat-nickname
  162. +    " (" irchat-chanbuf-indicator (skk-mode skk-input-mode-string) ")"
  163. +    " -%-"))
  164. +
  165. +(defvar irchat-pj-Commands-mode-line-format-minor-mode
  166. +  '("" irchat-away-indicator irchat-freeze-indicator ""
  167. +    " irchat-pj: Commands" irchat-private-indicator
  168. +    " <" irchat-servername "> " irchat-nickname
  169. +    " (" irchat-chanbuf-indicator minor-mode-alist ")"
  170. +    " -%-"))
  171. +
  172. +(defvar irchat-pj-Commands-mode-line-format 'irchat-pj-Commands-mode-line-format-default
  173. +  "Mode line format for irchat-pj Command buffer.
  174. +
  175. +We irchat-PJ project provides below:
  176. +\(for most use\)
  177. +  irchat-pj-Commands-mode-line-format-default
  178. +  irchat-pj-Commands-mode-line-format-alternative
  179. +\(for minor-mode kana-kanji converting system, like SKK10\)
  180. +  irchat-pj-Commands-mode-line-format-minor-mode
  181. +\(for non-kana-kanji-conversion, or SKK user\)
  182. +  irchat-pj-Commands-mode-line-format-simple
  183. +  irchat-pj-Commands-mode-line-format-alt-simple
  184. +\(for Wnn user\)
  185. +  irchat-pj-Commands-mode-line-format-for-egg
  186. +  irchat-pj-Commands-mode-line-format-alt-egg
  187. +\(for Canna user\)
  188. +  irchat-pj-Commands-mode-line-format-for-canna
  189. +  irchat-pj-Commands-mode-line-format-alt-canna
  190. +So, choose above, or select your defined mode line.
  191. +
  192. +ex.
  193. +\(setq irchat-pj-Commands-mode-line-format 'irchat-pj-Commands-mode-line-format-minor-mode\)
  194. +
  195. +Default is irchat-pj-Commands-mode-line-format-default.
  196. +")
  197. +
  198. +;;
  199. +;; irchat-pj-Dialogue-mode-line-format
  200. +;;
  201. +
  202. +(defvar irchat-pj-Dialogue-mode-line-format-default
  203. +  '("" irchat-away-indicator irchat-freeze-indicator
  204. +    " {" irchat-chanbufs-indicator "} "
  205. +    (-3 . "%p") " -%-"))
  206. +
  207. +(defvar irchat-pj-Dialogue-mode-line-format-alternative
  208. +  '("" irchat-away-indicator irchat-freeze-indicator
  209. +    " (" irchat-chanbufs-indicator ") "
  210. +    (-3 . "%p") " -%-"))
  211. +
  212. +(defvar irchat-pj-Dialogue-mode-line-format-minor-mode
  213. +  '("" irchat-away-indicator irchat-freeze-indicator
  214. +    " (" irchat-chanbufs-indicator minor-mode-alist ") "
  215. +    (-3 . "%p") " -%-"))
  216. +
  217. +(defvar irchat-pj-Dialogue-mode-line-format 'irchat-pj-Dialogue-mode-line-format-default
  218. +  "Mode line format for irchat-pj Dialogue buffer.
  219. +
  220. +We irchat-PJ project provides below:
  221. +  irchat-pj-Dialogue-mode-line-format-default
  222. +  irchat-pj-Dialogue-mode-line-format-alternative
  223. +  irchat-pj-Dialogue-mode-line-format-minor-mode
  224. +So, choose above, or select your defined mode line.
  225. +
  226. +ex.
  227. +\(setq irchat-pj-Dialogue-mode-line-format 'irchat-pj-Dialogue-mode-line-format-minor-mode\)
  228. +
  229. +Default is irchat-pj-Dialogue-mode-line-format-default.
  230. +")
  231. +
  232. +;;
  233. +;; irchat-pj-Other-mode-line-format
  234. +;;
  235. +
  236. +(defvar irchat-pj-Other-mode-line-format-default
  237. +  '("" irchat-away-indicator "-"
  238. +    " {" irchat-chanbufs-indicator "} "
  239. +    (-3 . "%p") " -%-"))
  240. +
  241. +(defvar irchat-pj-Other-mode-line-format-alternative
  242. +  '("" irchat-away-indicator "-"
  243. +    " (" irchat-chanbufs-indicator ") "
  244. +    (-3 . "%p") " -%-"))
  245. +
  246. +(defvar irchat-pj-Other-mode-line-format-minor-mode
  247. +  '("" irchat-away-indicator "-"
  248. +    " (" irchat-chanbufs-indicator minor-mode-alist ") "
  249. +    (-3 . "%p") " -%-"))
  250. +
  251. +(defvar irchat-pj-Other-mode-line-format 'irchat-pj-Other-mode-line-format-default
  252. +  "Mode line format for irchat-pj Other buffer.
  253. +
  254. +We irchat-PJ project provides below:
  255. +  irchat-pj-Other-mode-line-format-default
  256. +  irchat-pj-Other-mode-line-format-alternative
  257. +  irchat-pj-Other-mode-line-format-minor-mode
  258. +So, choose above, or select your defined mode line.
  259. +
  260. +ex.
  261. +\(setq irchat-pj-Other-mode-line-format 'irchat-pj-Other-mode-line-format-minor-mode\)
  262. +
  263. +Default is irchat-pj-Other-mode-line-format-default.
  264. +")
  265. +
  266. +;;
  267. +;; irchat-pj-Channel-mode-line-format
  268. +;;
  269. +
  270. +(defvar irchat-pj-Channel-mode-line-format-default
  271. +  '("" irchat-beep-indicator-local irchat-freeze-indicator-local
  272. +    irchat-suppress-indicator-local
  273. +    "IRCHAT: Current" 
  274. +    " {" irchat-chanbuf-indicator "} "
  275. +    (-3 . "%p") " -%-"))
  276. +
  277. +(defvar irchat-pj-Channel-mode-line-format-alternative
  278. +  '("" irchat-beep-indicator-local irchat-freeze-indicator-local
  279. +    irchat-suppress-indicator-local
  280. +    "irchat-pj: Current" 
  281. +    " (" irchat-chanbuf-indicator ") "
  282. +    (-3 . "%p") " -%-"))
  283. +
  284. +(defvar irchat-pj-Channel-mode-line-format-minor-mode
  285. +  '("" irchat-beep-indicator-local irchat-freeze-indicator-local
  286. +    irchat-suppress-indicator-local
  287. +    "irchat-pj: Current" 
  288. +    " (" irchat-chanbuf-indicator minor-mode-alist ") "
  289. +    (-3 . "%p") " -%-"))
  290. +
  291. +(defvar irchat-pj-Channel-mode-line-format 'irchat-pj-Channel-mode-line-format-default
  292. +  "Mode line format for irchat-pj Channel buffer.
  293. +
  294. +We irchat-PJ project provides below:
  295. +  irchat-pj-Channel-mode-line-format-default
  296. +  irchat-pj-Channel-mode-line-format-alternative
  297. +  irchat-pj-Channel-mode-line-format-minor-mode
  298. +So, choose above, or select your defined mode line.
  299. +
  300. +ex.
  301. +\(setq irchat-pj-Channel-mode-line-format 'irchat-pj-Channel-mode-line-format-minor-mode\)
  302. +
  303. +Default is irchat-pj-Channel-mode-line-format-default.
  304. +")
  305. diff -urN irchat-pj-2.4.24.21/doc/FAQ-irchat-PJ.txt irchat-pj-2.4.24.22/doc/FAQ-irchat-PJ.txt
  306. --- irchat-pj-2.4.24.21/doc/FAQ-irchat-PJ.txt    Sat Dec 18 04:00:40 1999
  307. +++ irchat-pj-2.4.24.22/doc/FAQ-irchat-PJ.txt    Sun Jul 21 02:08:23 2002
  308. @@ -61,7 +61,6 @@
  309.      $B$+$iF~<j$G$-$^$9(B. $B0BDjHG$H:G?7HG$rMQ0U$7$F$*$j$^$9$,(B,
  310.      $B0BDjHG$h$j$b:G?7HG$N$[$&$,0BDj$7$F$k$H$$$&$3$H$b$"$j$^$9(B (^^;
  311.      $B$^$?(B, $B%_%i!<%5%$%H$H$7$F(B, $BEv%W%m%8%'%/%H$,3NG'$7$F$$$k$H$3$m$G(B
  312. -        (WWW) http://www.isoternet.org/~simm/
  313.          (FTP) ftp://ftp.KU3G.org/pub/irchat-pj/
  314.          (FTP) ftp://ftp.madoka.org/pub/irchat-pj/
  315.          (FTP) ftp://ftp.win.ne.jp/pub/network/irc/irchat-pj/
  316. @@ -73,21 +72,16 @@
  317.      $B$N$$$:$l$+$r3N$+$a$F$$$?$@$1$l$P$o$+$j$^$9(B.
  318.  
  319.      IRC $B>e$G$O(B, Friend Chat $B$N(B #irchat-pj $B%A%c%M%k$N%H%T%C%/$r$4(B
  320. -    $BMw$/$@$5$$(B. $B$^$?(B, $B%P!<%8%g%s%"%C%W$,$"$C$?:]$K$O(B, IRCnet $B$N(B
  321. -    #KU3G $B$N%H%T%C%/$K$b5-=R$7$F$*$j$^$9(B.
  322. +    $BMw$/$@$5$$(B. Friend Chat $B$N(B $B3F%A%c%M%k$N%H%T%C%/$O(B,
  323. +      http://irc.fan.gr.jp/list.html 
  324. +    $B$G3NG'$G$-$^$9(B.
  325. +
  326.      $B$J$*(B, Friend Chat $B$K4X$7$F$O(B, $B2<$N!V6l>p!&MWK>!&%P%0Js9p@h$O(B?$B!W(B
  327.      $B$K>R2p$7$F$*$j$^$9$N$G(B, $B$=$A$i$r$4Mw$/$@$5$$(B.
  328.  
  329.  $B!&%$%s%9%H!<%kJ}K!$O(B?
  330.  
  331.      INSATLL.irchat-pj $B$r;2>H$/$@$5$$(B.
  332. -    Vine Linux $B$G(B XEmacs $B$r$4MxMQ$NJ}$O(B, Vine Plus $B$K%Q%C%1!<%8$,(B
  333. -    $B$4$6$$$^$9$N$G(B, $B$=$l$r$4MxMQ$/$@$5$$(B.
  334. -
  335. -$B!&$[$+$N%Q%C%1!<%8$O$J$$$N(B?
  336. -
  337. -    $B:#$N$H$3$m$"$j$^$;$s(B. $B$[$+$N%Q%C%1!<%8$r$D$/$C$F$d$m$&$H$$$&J}$O(B,
  338. -    $B@'Hs(B simm@irc.fan.gr.jp $B$^$G$4O"Mm$r(B.
  339.  
  340.  $B!&;H$$J}$O(B?
  341.  
  342. @@ -125,8 +119,8 @@
  343.      IRC $B>e(B, $B$b$7$/$O%a!<%k$G$NMWK>!&Js9p$r$*BT$A$7$F$*$j$^$9(B.
  344.  
  345.      IRC $B$G$O(B, $B%5%]!<%H;~4V$,8a8e(B11$B;~:"$K8B$i$l$^$9$,(B, $B8x<0%5%]!<(B
  346. -    $B%H%A%c%M%k$H$7$F(B, Friend Chat (irc.friend.td.nu:6667) $B>e$K(B
  347. -    #irchat-pj $B$rMQ0U$7$F$*$j$^$9(B. $B$J$k$Y$/$3$3$G$*4j$$$7$^$9(B.
  348. +    $B%H%A%c%M%k$H$7$F(B, Friend Chat (irc.friend.td.nu:6660-6669)$B>e(B
  349. +    $B$K(B #irchat-pj $B$rMQ0U$7$F$*$j$^$9(B. $B$J$k$Y$/$3$3$G$*4j$$$7$^$9(B.
  350.      (Friend Chat $B$N>\:Y$O(B http://www.friend.td.nu/ $B;2>H(B)
  351.  
  352.      IRCnet $B$K$O8x<0%A%c%M%k$rMQ0U$7$F$*$j$^$;$s$,(B, #KU3G $B$"$?$j(B
  353. diff -urN irchat-pj-2.4.24.21/doc/INSTALL.irchat-pj irchat-pj-2.4.24.22/doc/INSTALL.irchat-pj
  354. --- irchat-pj-2.4.24.21/doc/INSTALL.irchat-pj    Wed Jan 19 21:08:16 2000
  355. +++ irchat-pj-2.4.24.22/doc/INSTALL.irchat-pj    Sun Jul 21 02:07:19 2002
  356. @@ -81,6 +81,5 @@
  357.     $B$H$-$O(B "XEMACS=..." $B$N5-=R$OI,MW$"$j$^$;$s(B.
  358.  
  359.  5.$B$=$NB>$N%$%s%9%H!<%kJ}K!(B
  360. -  Vine Plus $B$K(B XEmacs $BMQ(B irchat-pj $B$N%Q%C%1!<%8$,MQ0U$5$l$F$*$j$^$9(B.
  361. -  Vine Linux $B$r$4MxMQ$NJ}$O(B, $BB>$N(B rpm $B%Q%C%1!<%8F1MM4JC1$K%$%s%9%H!<%k(B
  362. -  $B$9$k$3$H$,$G$-$^$9(B.
  363. +  irchat-pj $B%Q%C%1!<%8$,B8:_$9$k%G%#%9%H%j%S%e!<%7%g%s$r$*;H$$$N>l9g(B,
  364. +  $B3F%G%#%9%H%j%S%e!<%7%g%s$N%$%s%9%H!<%kJ}K!$K$7$?$,$C$F$/$@$5$$(B.
  365. diff -urN irchat-pj-2.4.24.21/doc/README.irchat-pj irchat-pj-2.4.24.22/doc/README.irchat-pj
  366. --- irchat-pj-2.4.24.21/doc/README.irchat-pj    Tue May  2 02:41:25 2000
  367. +++ irchat-pj-2.4.24.22/doc/README.irchat-pj    Sun Jul 21 02:39:06 2002
  368. @@ -2,7 +2,7 @@
  369.  
  370.  Subject:      irchat-pj $B$NMxMQJ}K!(B
  371.  Author:       $B$7$^$@(B $B$_$D$N$V(B <simm@irc.fan.gr.jp>
  372. -Date:         1999$BG/(B12$B7n(B20$BF|(B($B7n(B)
  373. +Date:         2002$BG/(B7$B7n(B21$BF|(B($BF|(B)
  374.  Organization: irchat-PJ Project
  375.  
  376.  ----------------
  377. @@ -25,7 +25,7 @@
  378.   1. $BF|K\8l%3!<%I$N@_Dj(B
  379.   2. $BH>3Q%+%J$N07$$(B
  380.   3. $B5/F0;~$N(B nickname $B$NJ#?t;XDj(B
  381. - 4. $BF~NO%P%C%U%!$N%b!<%I%i%$%s(B
  382. + 4. $B%b!<%I%i%$%s(B
  383.   5. Sound $B5!G=(B
  384.   6. $BN,8lE83+5!G=(B
  385.   7. $B%a%C%;!<%80l@FAw?.(B
  386. @@ -115,33 +115,35 @@
  387.  
  388.  ----------------
  389.  
  390. -4.$BF~NO%P%C%U%!$N%b!<%I%i%$%s(B
  391. +4.$B%b!<%I%i%$%s(B
  392.  
  393.  irchat-2.4jp24g $B$G$O(B, $BF|K\8lF~NO<jCJ$H$7$F(B Canna $B$d(B SKK10 $B$rMxMQ(B
  394.  $B$9$k$H(B, $BF~NO%P%C%U%!$N%b!<%I%i%$%s$r8+$F$b(B, $BF|K\8lF~NO%b!<%I$J$N(B
  395. -$B$+$I$&$+$NH=JL$,$D$-$^$;$s(B. $B$=$3$G(B, Canna $B$d(B SKK10 $B$G$bF~NO%b!<(B
  396. -$B%I$N>u67$rI=<($9$k$h$&$K$9$k$H$H$b$K(B, $B%b!<%I%i%$%s<+BN$rJQ99$G$-(B
  397. -$B$k$h$&$K$7$^$7$?(B. $BJQ?t(B irchat-pj-Commands-mode-line-format $B$r(B, $B<!(B
  398. -$B$N$$$:$l$+$K@_Dj$9$k$3$H$G(B, $BJQ99$G$-$^$9(B.
  399. -
  400. -$BHFMQ(B : 'irchat-pj-Commands-mode-line-format-default
  401. -       'irchat-pj-Commands-mode-line-format-alternative
  402. -SKK10$BEy%^%$%J!<%b!<%I$rMxMQ$7$F$$$k$b$N(B:
  403. -       'irchat-pj-Commands-mode-line-format-minor-mode
  404. -SKK9 : 'irchat-pj-Commands-mode-line-format-simple
  405. -       'irchat-pj-Commands-mode-line-format-alt-simple
  406. -Egg  : 'irchat-pj-Commands-mode-line-format-for-egg
  407. -       'irchat-pj-Commands-mode-line-format-alt-egg
  408. -Canna: 'irchat-pj-Commands-mode-line-format-for-canna
  409. -       'irchat-pj-Commands-mode-line-format-alt-canna
  410. -Meadow$B;HMQ;~$K$*$1$k(BIME:
  411. -       'irchat-pj-Commands-mode-line-format-for-mw32
  412. -       'irchat-pj-Commands-mode-line-format-alt-mw32
  413. -
  414. -$B$J$*(B, $B%G%U%)%k%H$O(B
  415. -(setq irchat-pj-Commands-mode-line-format
  416. -      'irchat-pj-Commands-mode-line-format-default)
  417. -$B$G$9(B.
  418. +$B$+$I$&$+$NH=JL$,$D$-$^$;$s(B. $B$3$l$O(B, irchat$BB&$GFH<+$K%b!<%I%i%$%s(B
  419. +$B$rDj5A$7$F$*$j(B, $BF|K\8lF~NO%b!<%II=<(@_Dj$,>e=q$-$7$F$7$^$&$?$a$K(B
  420. +$B5/$3$kLdBj$G$9(B.
  421. +
  422. +$B=>Mh$N(B irchat-pj $B$G$O(B, irchat $B$N%b!<%I%i%$%s$KF|K\8lF~NO%b!<%I$r(B
  423. +$BDI2C$9$k$3$H$GBP1~$7$F$*$j$^$7$?$,(B, $B$3$NJ}K!$@$H(B, $BF|K\8lF~NO%7%9(B
  424. +$B%F%`$4$H$K8DJLBP1~$9$kI,MW$,$"$j(B, $B%a%s%F%J%s%9%3%9%H$bGO</$K$J$j(B
  425. +$B$^$;$s(B. $B$^$?(B, $B;~9o$d%P%C%F%jMFNLEy(B, $BI8=`0J30$N>pJs$r%b!<%I%i%$%s(B
  426. +$B$KI=<($5$;$F$$$F$b(B, irchat-pj $B$@$1$OL58z$K$J$k$H$$$&LdBj$b$"$j$^(B
  427. +$B$7$?(B.
  428. +
  429. +irchat-pj-2.4.24.22 $B0J9_$G$O(B, $BI,MWItJ,$N$_%b!<%I%i%$%s$rJQ99$9$k(B
  430. +$B$3$H$K$h$j(B, $B>e5-LdBj$r2r7h$7$^$7$?(B. $B@_Dj$O$H$/$K$9$kI,MW$"$j$^$;(B
  431. +$B$s$,(B, $B%b!<%I%i%$%s$rJQ99$7$?$$>l9g$O(B, $BJQ?t(B
  432. +
  433. +  irchat-pj-modeline-Command-buffer
  434. +  irchat-pj-modeline-Dialogue-buffer
  435. +  irchat-pj-modeline-Others-buffer
  436. +  irchat-pj-modeline-Channel-buffer
  437. +
  438. +$B$r3F<+@_Dj$7$F$/$@$5$$(B. $B3F%P%C%U%!$KBP1~$7$?JQ?t$G(B, $B$3$l$i$NCM$O(B
  439. +
  440. +  mode-line-buffer-identification
  441. +
  442. +$B$H$7$FMxMQ$5$l$^$9(B.
  443.  
  444.  ----------------
  445.  
  446. diff -urN irchat-pj-2.4.24.21/irchat-commands.el irchat-pj-2.4.24.22/irchat-commands.el
  447. --- irchat-pj-2.4.24.21/irchat-commands.el    Fri Jul 19 02:04:44 2002
  448. +++ irchat-pj-2.4.24.22/irchat-commands.el    Sat Jul 20 21:19:37 2002
  449. @@ -26,7 +26,6 @@
  450.      (set-window-point (get-buffer-window irchat-Channel-buffer)
  451.                (point-max)))
  452.      (setq irchat-freeze nil)
  453. -    (setq irchat-freeze-indicator "-")
  454.      (if (get-buffer-window irchat-Dialogue-buffer)
  455.      (let ((owin (selected-window)) win)
  456.        (if (one-window-p)
  457. @@ -689,9 +688,6 @@
  458.    "Toggle the automatic scrolling of the Dialogue window."
  459.    (interactive)
  460.    (setq irchat-freeze (not irchat-freeze))
  461. -  (if irchat-freeze
  462. -      (setq irchat-freeze-indicator "F")
  463. -    (setq irchat-freeze-indicator "-"))
  464.    (set-buffer-modified-p (buffer-modified-p)))
  465.  
  466.  (defun irchat-Channel-freeze (&optional value)
  467. @@ -703,10 +699,7 @@
  468.         (setq irchat-freeze-local t))
  469.        ((eq value 'off)
  470.         (setq irchat-freeze-local nil)))
  471. -    (setq irchat-freeze-local (not irchat-freeze-local))
  472. -    (if irchat-freeze-local
  473. -    (setq irchat-freeze-indicator-local "F")
  474. -      (setq irchat-freeze-indicator-local "-")))
  475. +    (setq irchat-freeze-local (not irchat-freeze-local)))
  476.    (set-buffer-modified-p (buffer-modified-p)))
  477.  
  478.  
  479. @@ -719,10 +712,7 @@
  480.         (setq irchat-beep-local t))
  481.        ((eq value 'off)
  482.         (setq irchat-beep-local nil)))
  483. -    (setq irchat-beep-local (not irchat-beep-local))
  484. -    (if irchat-beep-local
  485. -    (setq irchat-beep-indicator-local "B")
  486. -      (setq irchat-beep-indicator-local "-")))
  487. +    (setq irchat-beep-local (not irchat-beep-local)))
  488.    (set-buffer-modified-p (buffer-modified-p)))
  489.  
  490.  
  491. @@ -735,10 +725,7 @@
  492.         (setq irchat-suppress-local t))
  493.        ((eq value 'off)
  494.         (setq irchat-suppress-local nil)))
  495. -    (setq irchat-suppress-local (not irchat-suppress-local))
  496. -    (if irchat-suppress-local
  497. -    (setq irchat-suppress-indicator-local "S")
  498. -      (setq irchat-suppress-indicator-local " ")))
  499. +    (setq irchat-suppress-local (not irchat-suppress-local)))
  500.    (set-buffer-modified-p (buffer-modified-p)))
  501.  
  502.  
  503. diff -urN irchat-pj-2.4.24.21/irchat-globals.el irchat-pj-2.4.24.22/irchat-globals.el
  504. --- irchat-pj-2.4.24.21/irchat-globals.el    Sun Dec 13 10:40:27 1998
  505. +++ irchat-pj-2.4.24.22/irchat-globals.el    Sat Jul 20 21:20:13 2002
  506. @@ -45,7 +45,6 @@
  507.  
  508.  (defvar irchat-polling)
  509.  
  510. -(defvar irchat-away-indicator)
  511.  (defvar irchat-nick-alist)
  512.  (defvar irchat-channel-alist)
  513.  (defvar irchat-channel-filter)
  514. diff -urN irchat-pj-2.4.24.21/irchat-handle.el irchat-pj-2.4.24.22/irchat-handle.el
  515. --- irchat-pj-2.4.24.21/irchat-handle.el    Wed Sep  6 21:06:57 2000
  516. +++ irchat-pj-2.4.24.22/irchat-handle.el    Sat Jul 20 21:19:56 2002
  517. @@ -885,16 +885,16 @@
  518.  
  519.  (defun irchat-handle-305 (prefix me msg) ; RPL_UNAWAY
  520.    "Handle the 305 reply, UNAWAY reply"
  521. -  (if (string-equal irchat-away-indicator "A")
  522. +  (if irchat-pj-away-p
  523.        (progn
  524. -    (setq irchat-away-indicator "-")
  525. +    (setq irchat-pj-away-p nil)
  526.      (irchat-maybe-poll)
  527.      (irchat-insert0 (format "*** %s (%s)\n"
  528.                  msg (current-time-string))))))
  529.  
  530.  (defun irchat-handle-306 (prefix me msg) ; RPL_NOWAWAY
  531.    "Handle the 306 reply, NOWAWAY reply"
  532. -  (setq irchat-away-indicator "A")
  533. +  (setq irchat-pj-away-p t)
  534.    (irchat-insert0 (format "*** %s (%s)\n"
  535.                msg (current-time-string))))
  536.  
  537. diff -urN irchat-pj-2.4.24.21/irchat-pj-mode-line-format.el irchat-pj-2.4.24.22/irchat-pj-mode-line-format.el
  538. --- irchat-pj-2.4.24.21/irchat-pj-mode-line-format.el    Fri Dec 17 23:36:38 1999
  539. +++ irchat-pj-2.4.24.22/irchat-pj-mode-line-format.el    Thu Jan  1 09:00:00 1970
  540. @@ -1,300 +0,0 @@
  541. -;;;
  542. -;;; irchat-pj-mode-line-format.el
  543. -;;; last modify : Sun, 3 Jan 1999 by simm@irc.fan.gr.jp / irchat-PJ Project
  544. -;;; (date format modification by simm@irc.fan.gr.jp, Sun, 27 Jun 1999)
  545. -;;; see file irchat-copyright.el for change log and copyright info
  546. -;;;
  547. -
  548. -(provide 'irchat-pj-mode-line-format)
  549. -
  550. -;;
  551. -;; irchat-pj-Commands-mode-line-format
  552. -;;
  553. -
  554. -(defvar irchat-pj-Commands-mode-line-format-default
  555. -  (if (featurep 'meadow)
  556. -      '("" irchat-away-indicator irchat-freeze-indicator ""
  557. -        ((if (boundp 'MULE) mc-flag kanji-flag)
  558. -         ((minibuffer-window-selected
  559. -           (display-minibuffer-mode "m" " ") " ")
  560. -          mw32-ime-mode-line-state-indicator))
  561. -        " IRCHAT: Commands" irchat-private-indicator
  562. -        " {" irchat-chanbuf-indicator "} "
  563. -        irchat-nickname " on " irchat-servername
  564. -        (skk-mode skk-input-mode-string)
  565. -        " -%-")
  566. -    '("" irchat-away-indicator irchat-freeze-indicator ""
  567. -      ((if (boundp 'MULE) mc-flag kanji-flag)
  568. -       ((minibuffer-window-selected
  569. -         (display-minibuffer-mode "m" " ") " ")
  570. -        "["
  571. -        (minibuffer-window-selected
  572. -         (display-minibuffer-mode
  573. -          mode-line-egg-mode-in-minibuffer
  574. -          mode-line-egg-mode)
  575. -         mode-line-egg-mode)
  576. -        " ] " mode-line-canna-mode))
  577. -      " IRCHAT: Commands" irchat-private-indicator
  578. -      " {" irchat-chanbuf-indicator "} "
  579. -      irchat-nickname " on " irchat-servername
  580. -      (skk-mode skk-input-mode-string)
  581. -      " -%-")))
  582. -
  583. -(defvar irchat-pj-Commands-mode-line-format-for-egg
  584. -  '("" irchat-away-indicator irchat-freeze-indicator ""
  585. -    ((if (boundp 'MULE) mc-flag kanji-flag)
  586. -     ((minibuffer-window-selected
  587. -       (display-minibuffer-mode "m" " ") " ")
  588. -      "["
  589. -      (minibuffer-window-selected
  590. -       (display-minibuffer-mode
  591. -    mode-line-egg-mode-in-minibuffer
  592. -    mode-line-egg-mode)
  593. -       mode-line-egg-mode)
  594. -      " ]"))
  595. -    " IRCHAT: Commands" irchat-private-indicator
  596. -    " {" irchat-chanbuf-indicator "} "
  597. -    irchat-nickname " on " irchat-servername " -%-"))
  598. -
  599. -(defvar irchat-pj-Commands-mode-line-format-for-canna
  600. -  '("" irchat-away-indicator irchat-freeze-indicator ""
  601. -    ((if (boundp 'MULE) mc-flag kanji-flag)
  602. -     ((minibuffer-window-selected
  603. -       (display-minibuffer-mode "m" " ") " ")
  604. -      "-" mode-line-canna-mode))
  605. -    " IRCHAT: Commands" irchat-private-indicator
  606. -    " {" irchat-chanbuf-indicator "} "
  607. -    irchat-nickname " on " irchat-servername " -%-"))
  608. -
  609. -(defvar irchat-pj-Commands-mode-line-format-for-mw32
  610. -  '("" irchat-away-indicator irchat-freeze-indicator ""
  611. -    ((if (boundp 'MULE) mc-flag kanji-flag)
  612. -     ((minibuffer-window-selected
  613. -       (display-minibuffer-mode "m" " ") " ")
  614. -      mw32-ime-mode-line-state-indicator))
  615. -    " IRCHAT: Commands" irchat-private-indicator
  616. -    " {" irchat-chanbuf-indicator "} "
  617. -    irchat-nickname " on " irchat-servername
  618. -    " -%-"))
  619. -
  620. -(defvar irchat-pj-Commands-mode-line-format-simple
  621. -  '("" irchat-away-indicator irchat-freeze-indicator ""
  622. -    " IRCHAT: Commands" irchat-private-indicator
  623. -    " {" irchat-chanbuf-indicator "} "
  624. -    irchat-nickname " on " irchat-servername
  625. -    (skk-mode skk-input-mode-string)
  626. -    " -%-"))
  627. -
  628. -(defvar irchat-pj-Commands-mode-line-format-alternative
  629. -  (if (featurep 'meadow)
  630. -      '("" irchat-away-indicator irchat-freeze-indicator ""
  631. -        ((if (boundp 'MULE) mc-flag kanji-flag)
  632. -         ((minibuffer-window-selected
  633. -           (display-minibuffer-mode "m" " ") " ")
  634. -          mw32-ime-mode-line-state-indicator))
  635. -        " irchat-pj: Commands" irchat-private-indicator
  636. -        " <" irchat-servername "> " irchat-nickname
  637. -        " (" irchat-chanbuf-indicator (skk-mode skk-input-mode-string) ")"
  638. -        " -%-")
  639. -    '("" irchat-away-indicator irchat-freeze-indicator ""
  640. -      ((if (boundp 'MULE) mc-flag kanji-flag)
  641. -       ((minibuffer-window-selected
  642. -         (display-minibuffer-mode "m" " ") " ")
  643. -        "["
  644. -        (minibuffer-window-selected
  645. -         (display-minibuffer-mode
  646. -          mode-line-egg-mode-in-minibuffer
  647. -          mode-line-egg-mode)
  648. -         mode-line-egg-mode)
  649. -        " ]"))
  650. -      " irchat-pj: Commands" irchat-private-indicator
  651. -      " <" irchat-servername "> " irchat-nickname
  652. -      " (" irchat-chanbuf-indicator (skk-mode skk-input-mode-string) ")"
  653. -      " -%-")))
  654. -
  655. -(defvar irchat-pj-Commands-mode-line-format-alt-egg
  656. -  '("" irchat-away-indicator irchat-freeze-indicator ""
  657. -    ((if (boundp 'MULE) mc-flag kanji-flag)
  658. -     ((minibuffer-window-selected
  659. -       (display-minibuffer-mode "m" " ") " ")
  660. -      "["
  661. -      (minibuffer-window-selected
  662. -       (display-minibuffer-mode
  663. -    mode-line-egg-mode-in-minibuffer
  664. -    mode-line-egg-mode)
  665. -       mode-line-egg-mode)
  666. -      " ] " mode-line-canna-mode))
  667. -    " irchat-pj: Commands" irchat-private-indicator
  668. -    " <" irchat-servername "> " irchat-nickname
  669. -    " (" irchat-chanbuf-indicator ")"
  670. -    " -%-"))
  671. -
  672. -(defvar irchat-pj-Commands-mode-line-format-alt-canna
  673. -  '("" irchat-away-indicator irchat-freeze-indicator ""
  674. -    ((if (boundp 'MULE) mc-flag kanji-flag)
  675. -     ((minibuffer-window-selected
  676. -       (display-minibuffer-mode "m" " ") " ")
  677. -      "-" mode-line-canna-mode))
  678. -    " irchat-pj: Commands" irchat-private-indicator
  679. -    " <" irchat-servername "> " irchat-nickname
  680. -    " (" irchat-chanbuf-indicator (skk-mode skk-input-mode-string) ")"
  681. -    " -%-"))
  682. -
  683. -(defvar irchat-pj-Commands-mode-line-format-alt-mw32
  684. -  '("" irchat-away-indicator irchat-freeze-indicator ""
  685. -    ((if (boundp 'MULE) mc-flag kanji-flag)
  686. -     ((minibuffer-window-selected
  687. -       (display-minibuffer-mode "m" " ") " ")
  688. -        mw32-ime-mode-line-state-indicator))
  689. -    " irchat-pj: Commands" irchat-private-indicator
  690. -    " <" irchat-servername "> " irchat-nickname
  691. -    " (" irchat-chanbuf-indicator  ")"
  692. -    " -%-"))
  693. -
  694. -(defvar irchat-pj-Commands-mode-line-format-alt-simple
  695. -  '("" irchat-away-indicator irchat-freeze-indicator ""
  696. -    " irchat-pj: Commands" irchat-private-indicator
  697. -    " <" irchat-servername "> " irchat-nickname
  698. -    " (" irchat-chanbuf-indicator (skk-mode skk-input-mode-string) ")"
  699. -    " -%-"))
  700. -
  701. -(defvar irchat-pj-Commands-mode-line-format-minor-mode
  702. -  '("" irchat-away-indicator irchat-freeze-indicator ""
  703. -    " irchat-pj: Commands" irchat-private-indicator
  704. -    " <" irchat-servername "> " irchat-nickname
  705. -    " (" irchat-chanbuf-indicator minor-mode-alist ")"
  706. -    " -%-"))
  707. -
  708. -(defvar irchat-pj-Commands-mode-line-format 'irchat-pj-Commands-mode-line-format-default
  709. -  "Mode line format for irchat-pj Command buffer.
  710. -
  711. -We irchat-PJ project provides below:
  712. -\(for most use\)
  713. -  irchat-pj-Commands-mode-line-format-default
  714. -  irchat-pj-Commands-mode-line-format-alternative
  715. -\(for minor-mode kana-kanji converting system, like SKK10\)
  716. -  irchat-pj-Commands-mode-line-format-minor-mode
  717. -\(for non-kana-kanji-conversion, or SKK user\)
  718. -  irchat-pj-Commands-mode-line-format-simple
  719. -  irchat-pj-Commands-mode-line-format-alt-simple
  720. -\(for Wnn user\)
  721. -  irchat-pj-Commands-mode-line-format-for-egg
  722. -  irchat-pj-Commands-mode-line-format-alt-egg
  723. -\(for Canna user\)
  724. -  irchat-pj-Commands-mode-line-format-for-canna
  725. -  irchat-pj-Commands-mode-line-format-alt-canna
  726. -So, choose above, or select your defined mode line.
  727. -
  728. -ex.
  729. -\(setq irchat-pj-Commands-mode-line-format 'irchat-pj-Commands-mode-line-format-minor-mode\)
  730. -
  731. -Default is irchat-pj-Commands-mode-line-format-default.
  732. -")
  733. -
  734. -;;
  735. -;; irchat-pj-Dialogue-mode-line-format
  736. -;;
  737. -
  738. -(defvar irchat-pj-Dialogue-mode-line-format-default
  739. -  '("" irchat-away-indicator irchat-freeze-indicator
  740. -    " {" irchat-chanbufs-indicator "} "
  741. -    (-3 . "%p") " -%-"))
  742. -
  743. -(defvar irchat-pj-Dialogue-mode-line-format-alternative
  744. -  '("" irchat-away-indicator irchat-freeze-indicator
  745. -    " (" irchat-chanbufs-indicator ") "
  746. -    (-3 . "%p") " -%-"))
  747. -
  748. -(defvar irchat-pj-Dialogue-mode-line-format-minor-mode
  749. -  '("" irchat-away-indicator irchat-freeze-indicator
  750. -    " (" irchat-chanbufs-indicator minor-mode-alist ") "
  751. -    (-3 . "%p") " -%-"))
  752. -
  753. -(defvar irchat-pj-Dialogue-mode-line-format 'irchat-pj-Dialogue-mode-line-format-default
  754. -  "Mode line format for irchat-pj Dialogue buffer.
  755. -
  756. -We irchat-PJ project provides below:
  757. -  irchat-pj-Dialogue-mode-line-format-default
  758. -  irchat-pj-Dialogue-mode-line-format-alternative
  759. -  irchat-pj-Dialogue-mode-line-format-minor-mode
  760. -So, choose above, or select your defined mode line.
  761. -
  762. -ex.
  763. -\(setq irchat-pj-Dialogue-mode-line-format 'irchat-pj-Dialogue-mode-line-format-minor-mode\)
  764. -
  765. -Default is irchat-pj-Dialogue-mode-line-format-default.
  766. -")
  767. -
  768. -;;
  769. -;; irchat-pj-Other-mode-line-format
  770. -;;
  771. -
  772. -(defvar irchat-pj-Other-mode-line-format-default
  773. -  '("" irchat-away-indicator "-"
  774. -    " {" irchat-chanbufs-indicator "} "
  775. -    (-3 . "%p") " -%-"))
  776. -
  777. -(defvar irchat-pj-Other-mode-line-format-alternative
  778. -  '("" irchat-away-indicator "-"
  779. -    " (" irchat-chanbufs-indicator ") "
  780. -    (-3 . "%p") " -%-"))
  781. -
  782. -(defvar irchat-pj-Other-mode-line-format-minor-mode
  783. -  '("" irchat-away-indicator "-"
  784. -    " (" irchat-chanbufs-indicator minor-mode-alist ") "
  785. -    (-3 . "%p") " -%-"))
  786. -
  787. -(defvar irchat-pj-Other-mode-line-format 'irchat-pj-Other-mode-line-format-default
  788. -  "Mode line format for irchat-pj Other buffer.
  789. -
  790. -We irchat-PJ project provides below:
  791. -  irchat-pj-Other-mode-line-format-default
  792. -  irchat-pj-Other-mode-line-format-alternative
  793. -  irchat-pj-Other-mode-line-format-minor-mode
  794. -So, choose above, or select your defined mode line.
  795. -
  796. -ex.
  797. -\(setq irchat-pj-Other-mode-line-format 'irchat-pj-Other-mode-line-format-minor-mode\)
  798. -
  799. -Default is irchat-pj-Other-mode-line-format-default.
  800. -")
  801. -
  802. -;;
  803. -;; irchat-pj-Channel-mode-line-format
  804. -;;
  805. -
  806. -(defvar irchat-pj-Channel-mode-line-format-default
  807. -  '("" irchat-beep-indicator-local irchat-freeze-indicator-local
  808. -    irchat-suppress-indicator-local
  809. -    "IRCHAT: Current" 
  810. -    " {" irchat-chanbuf-indicator "} "
  811. -    (-3 . "%p") " -%-"))
  812. -
  813. -(defvar irchat-pj-Channel-mode-line-format-alternative
  814. -  '("" irchat-beep-indicator-local irchat-freeze-indicator-local
  815. -    irchat-suppress-indicator-local
  816. -    "irchat-pj: Current" 
  817. -    " (" irchat-chanbuf-indicator ") "
  818. -    (-3 . "%p") " -%-"))
  819. -
  820. -(defvar irchat-pj-Channel-mode-line-format-minor-mode
  821. -  '("" irchat-beep-indicator-local irchat-freeze-indicator-local
  822. -    irchat-suppress-indicator-local
  823. -    "irchat-pj: Current" 
  824. -    " (" irchat-chanbuf-indicator minor-mode-alist ") "
  825. -    (-3 . "%p") " -%-"))
  826. -
  827. -(defvar irchat-pj-Channel-mode-line-format 'irchat-pj-Channel-mode-line-format-default
  828. -  "Mode line format for irchat-pj Channel buffer.
  829. -
  830. -We irchat-PJ project provides below:
  831. -  irchat-pj-Channel-mode-line-format-default
  832. -  irchat-pj-Channel-mode-line-format-alternative
  833. -  irchat-pj-Channel-mode-line-format-minor-mode
  834. -So, choose above, or select your defined mode line.
  835. -
  836. -ex.
  837. -\(setq irchat-pj-Channel-mode-line-format 'irchat-pj-Channel-mode-line-format-minor-mode\)
  838. -
  839. -Default is irchat-pj-Channel-mode-line-format-default.
  840. -")
  841. diff -urN irchat-pj-2.4.24.21/irchat-pj-modeline.el irchat-pj-2.4.24.22/irchat-pj-modeline.el
  842. --- irchat-pj-2.4.24.21/irchat-pj-modeline.el    Thu Jan  1 09:00:00 1970
  843. +++ irchat-pj-2.4.24.22/irchat-pj-modeline.el    Wed Jan 17 23:36:01 2001
  844. @@ -0,0 +1,82 @@
  845. +;;; irchat-pj-modeline.el --- Mode line format definition for irchat-pj
  846. +
  847. +;; Copyright (C) 2000 by Project Pure.
  848. +
  849. +;; Author: SHIMADA Mitsunobu <simm@irc.fan.gr.jp>
  850. +;; Keywords: IRC, irchat-pj, mode-line-format
  851. +
  852. +;; $Id: irchat-pj-modeline.el,v 1.7 2001/01/17 14:36:01 simm Exp $
  853. +
  854. +;; This file is free software; you can redistribute it and/or modify
  855. +;; it under the terms of the GNU General Public License as published by
  856. +;; the Free Software Foundation; either version 2, or (at your option)
  857. +;; any later version.
  858. +
  859. +;; This file is distributed in the hope that it will be useful,
  860. +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  861. +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  862. +;; GNU General Public License for more details.
  863. +
  864. +;; You should have received a copy of the GNU General Public License
  865. +;; along with GNU Emacs; see the file COPYING.  If not, write to
  866. +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  867. +;; Boston, MA 02111-1307, USA.
  868. +
  869. +;;; Commentary:
  870. +
  871. +;; 
  872. +
  873. +;;; Code:
  874. +
  875. +;; AWAY / FREEZE indicator: used as `mode-line-modified'
  876. +(defvar irchat-pj-modeline-global-status
  877. +  '((irchat-pj-away-p "A" "-")
  878. +    (irchat-freeze "F" "-"))
  879. +  "Global mode line setting, to display IRC status.
  880. +This variable is used as `mode-line-modified', in Commands/Dialogue/Others buffer.")
  881. +(defvar irchat-pj-modeline-local-status
  882. +  '((irchat-pj-away-p "A" "-")
  883. +    (irchat-freeze-local "F" "-")
  884. +    (irchat-beep-local "B" "-")
  885. +    (irchat-suppress-local "S" "-"))
  886. +  "Local mode line setting, to display IRC status.
  887. +This variable is used as `mode-line-modified', in Channel buffer.")
  888. +
  889. +;; NICK / SERVER NAME / CHANNEL indicator: use as `mode-line-buffer-identification'
  890. +(defvar irchat-pj-modeline-Command-buffer
  891. +  '("irchat-pj: " irchat-nickname " <" irchat-servername "> " irchat-chanbuf-indicator)
  892. +  "Local mode line setting, to display IRC informations in Commands buffer.
  893. +This variable is used as `mode-line-buffer-identification'.")
  894. +(defvar irchat-pj-modeline-Dialogue-buffer
  895. +  '("" irchat-chanbufs-indicator)
  896. +  "Local mode setting, to display IRC informations in Dialogue buffer.
  897. +This variable is used as `mode-line-buffer-identification'.")
  898. +(defvar irchat-pj-modeline-Others-buffer
  899. +  '("" irchat-chanbufs-indicator)
  900. +  "Local mode setting, to display IRC informations in Others buffer.
  901. +This variable is used as `mode-line-buffer-identification'.")
  902. +(defvar irchat-pj-modeline-Channel-buffer
  903. +  '("irchat-pj: " irchat-chanbuf-indicator)
  904. +  "Local mode setting, to display IRC informations in Channel buffer.
  905. +This variable is used as `mode-line-buffer-identification'.")
  906. +
  907. +;; set mode line
  908. +(defun irchat-pj-modeline-set (status buffer-info &optional user-define)
  909. +  "Set mode-line-format"
  910. +  ;; common behaviour
  911. +  (setq mode-line-modified              status
  912. +    mode-line-buffer-identification buffer-info)
  913. +  ;; to emulate older irchat-pj-modeline.el
  914. +  (and user-define
  915. +       (boundp user-define)
  916. +       (symbol-value user-define)
  917. +       (let ((candidate (symbol-value user-define)))
  918. +     (if (not (symbolp candidate))
  919. +         (setq mode-line-format candidate)
  920. +       (if (boundp candidate)
  921. +           (setq mode-line-format (symbol-value candidate)))))))
  922. +
  923. +;; That's all
  924. +(provide 'irchat-pj-modeline)
  925. +
  926. +;;; irchat-pj-modeline.el ends here
  927. diff -urN irchat-pj-2.4.24.21/irchat-pj-version-string.el irchat-pj-2.4.24.22/irchat-pj-version-string.el
  928. --- irchat-pj-2.4.24.21/irchat-pj-version-string.el    Fri Jul 19 02:03:15 2002
  929. +++ irchat-pj-2.4.24.22/irchat-pj-version-string.el    Sat Jul 20 21:20:54 2002
  930. @@ -21,7 +21,7 @@
  931.  
  932.  ;; constants and variables
  933.  
  934. -(defconst irchat-client-version-jp ".24.21[2002/07/19]")
  935. +(defconst irchat-client-version-jp ".24.22[2002/07/21]")
  936.  
  937.  (defvar irchat-pj-version-string-hook nil
  938.    "Hook for modification irchat-pj-version-string")
  939. diff -urN irchat-pj-2.4.24.21/irchat.el irchat-pj-2.4.24.22/irchat.el
  940. --- irchat-pj-2.4.24.21/irchat.el    Fri Jul 19 02:18:45 2002
  941. +++ irchat-pj-2.4.24.22/irchat.el    Sat Jul 20 21:19:08 2002
  942. @@ -3,8 +3,8 @@
  943.  ;; irchat-2.4jp version by kick@wide.ad.jp (1994/03/17 - 1998/12/21)
  944.  ;; Copyright (C) 1994,1995,1996,1997,1998 KIKUCHI Takahiro
  945.  
  946. -;; irchat-pj 2.4.24.x version by simm@irc.fan.gr.jp (1999/01/16-2000/01/19)
  947. -;; Copyright (C) 1998-2000 irchat-PJ Project
  948. +;; irchat-pj 2.4.24.x version by simm@irc.fan.gr.jp (1999/01/16-2002/07/19)
  949. +;; Copyright (C) 1998-2002 irchat-PJ Project
  950.  
  951.  ;; modified by simm@irc.fan.gr.jp, Wed, 05 Jan 2000 02:51:10 +0900
  952.  (or (fboundp 'defsubst)
  953. @@ -16,7 +16,7 @@
  954.  (require 'irchat-filter)
  955.  (require 'irchat-vars)
  956.  (require 'irchat-pj-jisx0201)
  957. -(require 'irchat-pj-mode-line-format)
  958. +(require 'irchat-pj-modeline)
  959.  (require 'irchat-pj-coding-system)
  960.  (require 'irchat-pj-version-string)
  961.  (require 'irchat-pj-sound)
  962. @@ -188,9 +188,6 @@
  963.  (defvar irchat-buggy-emacs-pos-visible-in-window-p nil
  964.    "*You should set non-nil if your emacs has buggy pos-visible-in-window-p.")
  965.  
  966. -(defvar irchat-away-indicator)
  967. -(defvar irchat-freeze-indicator)
  968. -
  969.  (defvar irchat-trying-nickname nil
  970.    "the nickname that I'm trying to be.")
  971.  
  972. @@ -253,10 +250,6 @@
  973.  (defvar irchat-chanbufs-indicator "No channel"
  974.    "The channel buffers list, \"pretty-printed.\"")
  975.  
  976. -(defvar irchat-private-indicator nil
  977. -  "A string displayed in the mode line indicating that user is
  978. -currently engaged in a one-to-one conversation.")
  979. -
  980.  (defvar irchat-polling nil
  981.    "T when we are automatically polling the server.")
  982.  
  983. @@ -634,28 +627,15 @@
  984.        (setq irchat-old-window-configuration
  985.          (current-window-configuration)))
  986.    (set-buffer irchat-Command-buffer)
  987. -  (setq mode-line-process (format " {%s}" irchat-server))
  988.    (let ((buffer-read-only nil))
  989.      (erase-buffer)
  990.      (sit-for 0))
  991.    (make-variable-buffer-local 'irchat-freeze-local)
  992.    (set-default 'irchat-freeze-local irchat-default-freeze-local)
  993. -  (make-variable-buffer-local 'irchat-freeze-indicator-local)
  994. -  (if irchat-default-freeze-local
  995. -      (set-default 'irchat-freeze-indicator-local "F")
  996. -    (set-default 'irchat-freeze-indicator-local "-"))
  997.    (make-variable-buffer-local 'irchat-beep-local)
  998.    (set-default 'irchat-beep-local irchat-default-beep-local)
  999. -  (make-variable-buffer-local 'irchat-beep-indicator-local)
  1000. -  (if irchat-default-beep-local
  1001. -      (set-default 'irchat-beep-indicator-local "B")
  1002. -    (set-default 'irchat-beep-indicator-local "-"))
  1003.    (make-variable-buffer-local 'irchat-suppress-local)
  1004.    (set-default 'irchat-suppress-local irchat-default-suppress-local)
  1005. -  (make-variable-buffer-local 'irchat-suppress-indicator-local)
  1006. -  (if irchat-default-suppress-local
  1007. -      (set-default 'irchat-suppress-indicator-local "S")
  1008. -    (set-default 'irchat-suppress-indicator-local " "))
  1009.    (make-variable-buffer-local 'irchat-previous-pattern)
  1010.    (irchat-Dialogue-setup-buffer)
  1011.    (irchat-Others-setup-buffer)
  1012. @@ -722,17 +702,16 @@
  1013.    (define-abbrev-table 'irchat-pj-abbrev-table ())
  1014.  
  1015.    (setq irchat-nick-alist (list (list irchat-nickname))
  1016. -    mode-line-modified "--- "
  1017.      major-mode 'irchat-Command-mode
  1018. -    mode-name "IRCHAT Commands"
  1019. +    mode-name "IRC Commands"
  1020.      irchat-privmsg-partner nil
  1021. -    irchat-private-indicator nil
  1022. -    irchat-away-indicator "-"
  1023. -    irchat-freeze-indicator "-"
  1024. +    irchat-pj-away-p nil
  1025.      ;; modified by negi@KU3G.org, 1 Jun 1999
  1026. -    local-abbrev-table irchat-pj-abbrev-table
  1027. -    ;; modified by simm@irc.fan.gr.jp, 23 Jan 1999
  1028. -    mode-line-format (symbol-value irchat-pj-Commands-mode-line-format))
  1029. +    local-abbrev-table irchat-pj-abbrev-table)
  1030. +  (irchat-pj-modeline-set
  1031. +   irchat-pj-modeline-global-status
  1032. +   irchat-pj-modeline-Command-buffer
  1033. +   'irchat-pj-modeline-Command)
  1034.    (use-local-map irchat-Command-mode-map)
  1035.    (if irchat-blink-parens
  1036.        nil
  1037. @@ -748,11 +727,12 @@
  1038.  Instead, these commands are available:
  1039.  \\{irchat-Dialogue-mode-map}"
  1040.    (kill-all-local-variables)
  1041. -  (setq mode-line-modified "--- "
  1042. -    major-mode 'irchat-Dialogue-mode
  1043. -    mode-name "IRCHAT Dialogue"
  1044. -    ;; modified by simm@irc.fan.gr.jp, 23 Jan 1999
  1045. -    mode-line-format (symbol-value irchat-pj-Dialogue-mode-line-format))
  1046. +  (setq major-mode 'irchat-Dialogue-mode
  1047. +    mode-name "IRC Dialogue")
  1048. +  (irchat-pj-modeline-set
  1049. +   irchat-pj-modeline-global-status
  1050. +   irchat-pj-modeline-Dialogue-buffer
  1051. +   'irchat-pj-modeline-Dialogue)
  1052.    (use-local-map irchat-Dialogue-mode-map)
  1053.    (set-buffer irchat-Dialogue-buffer)
  1054.    (setq buffer-read-only t)
  1055. @@ -765,11 +745,12 @@
  1056.  Instead, these commands are available:
  1057.  \\{irchat-Others-mode-map}"
  1058.    (kill-all-local-variables)
  1059. -  (setq mode-line-modified "--- "
  1060. -    major-mode 'irchat-Others-mode
  1061. -    mode-name "IRCHAT Others"
  1062. -    ;; modified by simm@irc.fan.gr.jp, 23 Jan 1999
  1063. -    mode-line-format (symbol-value irchat-pj-Other-mode-line-format))
  1064. +  (setq major-mode 'irchat-Others-mode
  1065. +    mode-name "IRC Others")
  1066. +  (irchat-pj-modeline-set
  1067. +   irchat-pj-modeline-global-status
  1068. +   irchat-pj-modeline-Others-buffer
  1069. +   'irchat-pj-modeline-Others)
  1070.    (use-local-map irchat-Others-mode-map)
  1071.    (set-buffer irchat-Others-buffer)
  1072.    (setq buffer-read-only t)
  1073. @@ -782,11 +763,12 @@
  1074.  Instead, these commands are available:
  1075.  \\{irchat-Channel-mode-map}"
  1076.    (kill-all-local-variables)
  1077. -  (setq mode-line-modified "--- "
  1078. -    major-mode 'irchat-Channel-mode
  1079. -    mode-name "IRCHAT Current channel"
  1080. -    ;; modified by simm@irc.fan.gr.jp, 23 Jan 1999
  1081. -    mode-line-format (symbol-value irchat-pj-Channel-mode-line-format))
  1082. +  (setq major-mode 'irchat-Channel-mode
  1083. +    mode-name "IRC Current channel")
  1084. +  (irchat-pj-modeline-set
  1085. +   irchat-pj-modeline-local-status
  1086. +   irchat-pj-modeline-Channel-buffer
  1087. +   'irchat-pj-modeline-Channel)
  1088.    (use-local-map irchat-Channel-mode-map)
  1089.    (setq buffer-read-only t)
  1090.    (run-hooks 'irchat-Channel-mode-hook))
  1091. @@ -1211,8 +1193,7 @@
  1092.                                               (current-time-string))))
  1093.                (set-buffer obuf)))))
  1094.      ;; Update names lists
  1095. -    (if (or (not irchat-global-names)
  1096. -            (string-equal "A" irchat-away-indicator))
  1097. +    (if (or (not irchat-global-names) irchat-pj-away-p)
  1098.          ;; not polling or away, forget it
  1099.          nil
  1100.        ;; polling, see if enoung time has  passed since last poll, or this is 
  1101. diff -urN irchat-pj-2.4.24.21/make.el irchat-pj-2.4.24.22/make.el
  1102. --- irchat-pj-2.4.24.21/make.el    Fri Jul 19 02:18:53 2002
  1103. +++ irchat-pj-2.4.24.22/make.el    Sat Jul 20 20:29:42 2002
  1104. @@ -20,7 +20,7 @@
  1105.                          (not (featurep 'mule))))
  1106.      "irchat-pj-coding-system.el"
  1107.      "irchat-pj-jisx0201.el"
  1108. -    "irchat-pj-mode-line-format.el"
  1109. +    "irchat-pj-modeline.el"
  1110.      "irchat-pj-version-string.el"
  1111.      "irchat-pj-sound.el"
  1112.      "irchat-pj-action.el"
  1113. diff -urN irchat-pj-2.4.24.21/shutup.el irchat-pj-2.4.24.22/shutup.el
  1114. --- irchat-pj-2.4.24.21/shutup.el    Tue Jan 25 18:04:15 2000
  1115. +++ irchat-pj-2.4.24.22/shutup.el    Sat Jul 20 21:20:24 2002
  1116. @@ -9,7 +9,7 @@
  1117.  (load-file "irchat-inlines.el")
  1118.  (load-file "irchat-pj-coding-system.el")
  1119.  (load-file "irchat-pj-jisx0201.el")
  1120. -(load-file "irchat-pj-mode-line-format.el")
  1121. +(load-file "irchat-pj-modeline.el")
  1122.  (load-file "irchat-pj-sound.el")
  1123.  (load-file "irchat-pj-version-string.el")
  1124.  (load-file "irchat-pj-sound.el")
  1125. @@ -33,14 +33,9 @@
  1126.  (defvar caesar-translate-table nil)
  1127.  (defvar fun nil)
  1128.  (defvar hook nil)
  1129. -(defvar irchat-away-indicator nil)
  1130. -(defvar irchat-beep-indicator-local nil)
  1131.  (defvar irchat-beep-local nil)
  1132. -(defvar irchat-freeze-indicator nil)
  1133. -(defvar irchat-freeze-indicator-local nil)
  1134.  (defvar irchat-freeze-local nil)
  1135.  (defvar irchat-hoge nil)
  1136. -(defvar irchat-suppress-indicator-local nil)
  1137.  (defvar irchat-suppress-local nil)
  1138.  (defvar lc-jp nil)
  1139.  (defvar mule-version nil)
  1140. @@ -78,6 +73,6 @@
  1141.      (defun char-charset (&rest args)))
  1142.  
  1143.  (and (fboundp 'char-bytes)
  1144. -     (eq 1 (char-bytes ?$(B$"(B))
  1145. +     (eq 1 (char-bytes ?$B$"(B))
  1146.       (get 'char-bytes 'byte-compile)
  1147.       (put 'char-bytes 'byte-compile nil))
  1148.