¾å¸¶¤Ç¤¹¡£
stk¥æ¡¼¥¶¤Î³§ÍÍ¡¢¤¢¤±¤Þ¤·¤Æ¤ª¤á¤Ç¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¿·Ç¯¤ª³Ú¤·¤ß´ë²è¤ÈÂê¤·¤Þ¤·¤Æ¡¢

¡Ö¥Ï¥ó¥É¥ë¤Î°¸Àè¤òwnn¤Î´Á»úÊÑ´¹»þ¤ß¤¿¤¯ÁªÂò¤¹¤ë¥Ñ¥Ã¥Á(Èó¸ø¼°)¡×

¤òºî¤ê¤Þ¤·¤¿¡£

¡Úpatch¤Î¤¢¤ÆÊý¡Û

¤³¤Î¥á¡¼¥ë¤Î¸å¤í¤ÎÊý¤òÀÚ¤ê¼è¤Ã¤Æ¡¢Îã¤¨¤Ðpat¤È¤¤¤¦¥Õ¥¡¥¤¥ëÌ¾¤Ç¥»¡¼¥Ö¤·¡¢
stk.el¤Î¤¢¤ë¥Ç¥£¥ì¥¯¥È¥ê¤Ç

     patch < pat

¤È¤¹¤ë¤Èstk.el¤¬½ñ¤­ÊÑ¤ï¤ê¤Þ¤¹¡£¤â¤È¤Îstk.el¤òÊÝÂ¸¤·¤Æ¤ª¤¯»ö¤òËº¤ì¤Ê¤¤
¤è¤¦¤Ë¡£

¡Ú»È¤¤Êý¡Û

     >

¤¬¥Ï¥ó¥É¥ë¤ÎÁªÂò¥³¥Þ¥ó¥É¤Ë³ä¤êÅö¤Æ¤é¤ì¤Þ¤¹¡£ÁªÂòÃæ¤Ë»ß¤á¤¿¤¤¤È¤­¤Ï

     C-g

¤ò²¡¤»¤Ð¤¤¤¤¤Ç¤¹¡£">"¼«ÂÎ¤òÆþÎÏ¤·¤¿¤¤»þ¤Ï

    C-q >

¤ÇÎÉ¤¤¤Ç¤·¤ç¤¦¡£canna¤ò»È¤Ã¤Æ¤¤¤ë¾ì¹ç¡¢¥Õ¥§¥ó¥¹¥â¡¼¥É¤Ç¤Î

     >

¤¬³ÎÄê¤È¥Ï¥ó¥É¥ëÁªÂò¤ò¹Ô¤¤¤Þ¤¹¡£


¡ÚÌäÂêÅÀ¡Û

canna¤ò»È¤Ã¤Æ¤¤¤ë¾ì¹ç¡¢ wnn¤òÆÉ¤ß¹þ¤à»ö¤Ç¤Ê¤ó¤«canna¤¬Æ°¤«¤Ê¤¯¤Ê¤ë¤ó¤Ç¡¢
²þ¤á¤ÆM-x canna¤·¤Æ¤¯¤À¤µ¤¤¡£

¡ÚÍ¾ÃÌ¡Û

wnn v4¤Î¥á¥Ë¥å¡¼´Ø¿ô¤ò»È¤Ã¤Æ¤Þ¤¹¤Î¤Ç¡¢¸Å¤¤nemacs¤Ç¤ÏÆ°¤¯¤«¤É¤¦¤«¡Ä¡£¤Þ
¤¿¥á¥Ë¥å¡¼´Ø¿ô¤ò»È¤¦¤¿¤á¤Ë egg¤Î¥Ñ¥Ã¥±¡¼¥¸¤Þ¤ë¤´¤È¥í¡¼¥É¤·¤Æ¤¤¤ë¤Î¤Ç 
canna¤ÎÍøÍÑ¼Ô¤Ë¤È¤Ã¤Æ¤ÏÈó¸úÎ¨µç¤Þ¤ê¤Ê¤¤¤Ç¤¹¡£¤Ê¤¼¤³¤¦¤¤¤¦¤Õ¤¦¤Ë¤·¤¿¤«
¤È¤¤¤¦¤È canna¤Î¥á¥Ë¥å¡¼´Ø¿ô¤ÎÍøÍÑÊýË¡¤¬Ê¬¤«¤é¤Ê¤«¤Ã¤¿¤«¤é¤Ç¤¹¡£ËÜÍè¤Ê
¤é¥á¥Ë¥å¡¼´Ø¿ô¤ò¼«Á°¤Ç½ñ¤­²¼¤·¤¿¤ê¤¹¤ë¤Î¤¬´Ä¶­¤Ë°ÍÂ¸¤·¤Ê¤¯¤Æ¤¤¤¤¤È»×¤¤
¤Þ¤¹¡£
¡Ú¼Â¹Ô³ÎÇ§¡Û

¼Â¹Ô³ÎÇ§¤ÏcannaÈÇmule¤Ç¹Ô¤¤¤Þ¤·¤¿¡£


*** stk.el.org  Fri Oct 15 10:12:49 1993
--- stk.el      Tue Jan  4 23:21:48 1994
***************
*** 350,355 ****
--- 350,360 ----
  ;;; chat (rtc or cb at nifty) mode
  ;;; 
  
+ (if (boundp 'WNN4)
+     nil
+   (require 'egg)
+   (load "wnn4-egg"))
+ 
  (defvar handle-regexp-list nil) ;; see pickup-handle
  (defvar reply-regexp-list nil) ;; see auto-reply
  (defvar handle-list nil) ; see clear-handle-list
***************
*** 361,369 ****
  (defvar chat-mode-map nil)
  (defvar chat-saving-config nil)
  
! (defvar handle-calling-prefix ">")
! (defvar handle-calling-postfix "")
! (defvar chat-window-height 4)
  (defvar handle-window-width 16)
  
  (defvar kermit-reply-list 
--- 366,374 ----
  (defvar chat-mode-map nil)
  (defvar chat-saving-config nil)
  
! (defvar handle-calling-prefix "¡ä")
! (defvar handle-calling-postfix "¤µ¤ó")
! (defvar chat-window-height 10)
  (defvar handle-window-width 16)
  
  (defvar kermit-reply-list 
***************
*** 516,522 ****
    (auto-reply-body kermit-reply-list))
  
  (defvar is-window-handle nil)
! (defvar handle-window-visible t)
  
  (defun stk-switch-handle ()
    (interactive)
--- 521,527 ----
    (auto-reply-body kermit-reply-list))
  
  (defvar is-window-handle nil)
! (defvar handle-window-visible nil)
  
  (defun stk-switch-handle ()
    (interactive)
***************
*** 524,529 ****
--- 529,585 ----
    (setup-screen)
    handle-window-visible)
  
+ ;;
+ ;; °¸Àè¥Ï¥ó¥É¥ë»ØÄê¤Î¥á¥Ë¥å¡¼ÁªÂò
+ ;; '94 1/4 by J.Uehara
+ ;; 
+ (defun grep(expr list)
+   "perl¤Îgrep´Ø¿ô¡¢¤Î¤è¤¦¤Ê¤â¤Î"
+   (cond ((null list)
+        nil)
+       ((apply expr (list (car list)))
+        (cons (car list)
+              (grep expr (cdr list))))
+       (t
+        (grep expr (cdr list)))
+       ))
+ 
+ (defun popup-used-handle(item list)
+   "¥Ï¥ó¥É¥ë¥ê¥¹¥ÈLIST¤ÎÀèÆ¬¤ËITEM¤ò°ÜÆ°¡£¤¹¤²¤¨¸úÎ¨¤¬°­¤¤ ^^;"
+   (append
+    (grep '(lambda (x) (string= item (car (cdr x)))) list)
+    (grep '(lambda (x) (not (string= item (car (cdr x))))) list)))
+ 
+ (defun chat-select-and-insert-handle(arg)
+   "È¯¸À¤Î°¸Àè¤ò¥á¥Ë¥å¡¼¤«¤éÁªÂò¤¹¤ë"
+   (interactive "p")
+   (condition-case
+       ERR
+       (let ((select
+            ;; wnn¤Î¤«¤Ê´Á»úÊÑ´¹¥á¥Ë¥å¡¼´Ø¿ô¤À¤è
+            (menu:select-from-menu
+             (list 'menu
+                   "¥Ï¥ó¥É¥ë:"
+                   (mapcar '(lambda (e) (car (cdr e)))
+                           handle-list)))))
+       ;; ÁªÂò¤·¤¿¥Ï¥ó¥É¥ë¤Ëprefix¤Èpostfix¤ò¤Ä¤±¤ÆÁÞÆþ
+       (insert-string handle-calling-prefix
+                      select
+                      handle-calling-postfix)
+       ;; ÁªÂò¤·¤¿¥Ï¥ó¥É¥ë¤ò¸õÊä¤Î¥È¥Ã¥×¤Ë
+       (setq handle-list (popup-used-handle select handle-list)))
+     (quit
+        (self-insert-command arg))))
+ 
+ ;; canna¤Î¥Õ¥§¥ó¥¹¥â¡¼¥É¤ÇÆ±ÍÍ¤Ë">"¤ò»È¤¦¤¿¤á¤Î¥Ï¥Ã¥­¥ó¥°
+ (if (boundp 'CANNA)
+     (define-key canna-mode-map ">"
+       '(lambda (arg) (interactive "p")
+        (let ((last-command-char 13))
+          (canna-functional-insert-command arg))
+        (canna-do-function canna-func-kakutei)
+        (chat-select-and-insert-handle arg))))
+ 
  (defun setup-screen()
    "Setup and redraw screen all."
    (interactive)
***************
*** 634,639 ****
--- 690,696 ----
    (define-key chat-mode-map "\C-cf" 'get-char)
    (define-key chat-mode-map "\C-c\C-c" 'kermit-send-command)
    (define-key chat-mode-map "\C-c\C-q" 'chat-quit)
+   (define-key chat-mode-map ">" 'chat-select-and-insert-handle)
  
    (setq chat-saving-config (current-window-configuration))
    (setq kermit-filter-hook nil)  ;; ¤¦¤¦¤¦¤¦
***************
*** 802,808 ****
          (kermit-send-string 
           (format "%s[%02d:%02d:%02d]" 
                   stk-string hour minute second))
!         (kermit-send-string "/ust2")
          (kermit-send-string "/u")
          (sit-for stk-time)
          (setq second (+ second stk-time))
--- 859,865 ----
          (kermit-send-string 
           (format "%s[%02d:%02d:%02d]" 
                   stk-string hour minute second))
! ;       (kermit-send-string "/ust2")
          (kermit-send-string "/u")
          (sit-for stk-time)
          (setq second (+ second stk-time))
-----------------------------------------------
January (GCC03454, uehara@yh.ntts.co.jp)
