/[erbot]/erbot/erbot.el
ViewVC logotype

Diff of /erbot/erbot.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by deego, Wed Jan 5 16:39:08 2005 UTC revision 1.27 by deego, Sat Jan 8 17:53:08 2005 UTC
# Line 1  Line 1 
1  ;;; erbot.el --- Another robot for ERC.  ;;; erbot.el --- Another robot for ERC.
2  ;; Time-stamp: <2005-01-05 11:15:08 deego>  ;; Time-stamp: <2005-01-08 12:52:18 deego>
3  ;; Emacs Lisp Archive entry  ;; Emacs Lisp Archive entry
4  ;; Filename: erbot.el  ;; Filename: erbot.el
5  ;; Package: erbot  ;; Package: erbot
# Line 468  For newer erc, see `erbot-on-new-erc-p' Line 468  For newer erc, see `erbot-on-new-erc-p'
468  the new erc-backend functions."  the new erc-backend functions."
469    (set-buffer (process-buffer proc))    (set-buffer (process-buffer proc))
470    (let* (    (let* (
471           (erbnoc-buffer (erc-server-buffer))           (erbn-buffer (erc-server-buffer))
472           (sspec (cond (erbot-on-new-erc-p           (sspec (cond (erbot-on-new-erc-p
473                         (erc-response.sender parsed))                         (erc-response.sender parsed))
474                        (t (aref parsed 1))))                        (t (aref parsed 1))))
# Line 478  the new erc-backend functions." Line 478  the new erc-backend functions."
478           ;; independent and do not affect each other.. when it is           ;; independent and do not affect each other.. when it is
479           ;; parsing too many messages once..           ;; parsing too many messages once..
480           (fs-nick nick)           (fs-nick nick)
481           (erbnoc-nick nick)           (erbn-nick nick)
482           (cmdargs (and erbot-on-new-erc-p           (cmdargs (and erbot-on-new-erc-p
483                         (erc-response.command-args parsed)))                         (erc-response.command-args parsed)))
484           (tgta (cond (cmdargs           (tgta (cond (cmdargs
# Line 487  the new erc-backend functions." Line 487  the new erc-backend functions."
487           (tgt (if (equalp tgta (or (erc-current-nick) erbot-nick))           (tgt (if (equalp tgta (or (erc-current-nick) erbot-nick))
488                    nick                    nick
489                  tgta))                  tgta))
490           (erbnoc-tgt tgt)           (erbn-tgt tgt)
491           (fs-tgt tgt)           (fs-tgt tgt)
492           (msg (cond (cmdargs           (msg (cond (cmdargs
493                       (nth 1 cmdargs))                       (nth 1 cmdargs))
# Line 503  the new erc-backend functions." Line 503  the new erc-backend functions."
503    
504      (setq erbot-end-user-nick-latest erbot-end-user-nick)      (setq erbot-end-user-nick-latest erbot-end-user-nick)
505      ;;(setq fs-tgt tgt)      ;;(setq fs-tgt tgt)
506      ;;(setq erbnoc-tgt tgt)      ;;(setq erbn-tgt tgt)
507    
508      ;;(setq fs-nick nick)      ;;(setq fs-nick nick)
509      ;;(setq erbnoc-nick nick)      ;;(setq erbn-nick nick)
510    
511      (let ((msgg      (let ((msgg
512             (erbeng-main msg proc nick tgt nil userinfo)))             (erbeng-main msg proc nick tgt nil userinfo)))
# Line 520  the new erc-backend functions." Line 520  the new erc-backend functions."
520          nil)          nil)
521         (t (erbot-reply         (t (erbot-reply
522             msgg             msgg
523             proc erbnoc-nick erbnoc-tgt msg nil             proc erbn-nick erbn-tgt msg nil
524             )))             )))
525    
526        ))        ))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26