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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69ed03e7cba0360e7b65939a179e16675f1267e0..3d20d7001d6ba4010e15bcd5cedbd3ae851ece79 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 87db130f1ea4ec638779f555f44ae4e192b738e2..21934ce8b01d45e74e4615bc044a4ea63e8bdd6e 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -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))