;;
;; zenirc-fortran-mode.el - ben@piglet.cr.usgs.gov
;;
;; $Revision: 1.4 $
;;
;; example hook code to override something internal to zenirc.
;; note that if you override the -hook function with your own definition,
;; you can still call the internal subroutine w/o the hook extension.
;;
(defun zenirc-server-PRIVMSG-hook (proc parsedmsg)
  (if (string-match "FORTRAN" (aref parsedmsg 3))
      (process-send-string 
       proc 
       (concat 
	"PRIVMSG " 
	(if (string= (downcase (aref parsedmsg 2))
		     (downcase zenirc-nick))
	    (zenirc-extract-nick (aref parsedmsg 1))
	  (aref parsedmsg 2))
	       " :YES I AM REALLY WRITTEN IN 3L33T FORTRAN 77!!!!!!!!!111\n")))
  (zenirc-server-PRIVMSG proc parsedmsg))
