Commit c5aff743 authored by Deniz Dogan's avatar Deniz Dogan
Browse files

* lisp/net/rcirc.el (rcirc-handler-317): New function. (Bug#6507)

parent 03925868
2011-02-07 Deniz Dogan <deniz.a.m.dogan@gmail.com>
* net/rcirc.el (rcirc-handler-317): New function (Bug#6507).
2011-02-06 Jay Belanger <jay.p.belanger@gmail.com>
 
* calc/calc.el (calc-logunits-field-reference) Renamed from
......
......@@ -2592,6 +2592,20 @@ keywords when no KEYWORD is given."
(setq rcirc-nick-away-alist (cons (cons nick away-message)
rcirc-nick-away-alist))))))
(defun rcirc-handler-317 (process sender args text)
"RPL_WHOISIDLE"
(let* ((nick (nth 1 args))
(idle-secs (string-to-number (nth 2 args)))
(idle-string
(if (< idle-secs most-positive-fixnum)
(format-seconds "%yy %dd %hh %mm %z%ss" idle-secs)
"a very long time"))
(signon-time (seconds-to-time (string-to-number (nth 3 args))))
(signon-string (format-time-string "%c" signon-time))
(message (format "%s idle for %s, signed on %s"
nick idle-string signon-string)))
(rcirc-print process sender "317" nil message t)))
(defun rcirc-handler-332 (process sender args text)
"RPL_TOPIC"
(let ((buffer (or (rcirc-get-buffer process (cadr args))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment