[Emacs-diffs] /srv/bzr/emacs/trunk r103155: * lisp/net/rcirc.el (rcirc-handler-317): New function. (Bug#6507)

[Deniz Dogan]

------------------------------------------------------------
revno: 103155
committer: Deniz Dogan <address@hidden>
branch nick: emacs-trunk
timestamp: Mon 2011-02-07 01:12:17 +0100
message:
  * lisp/net/rcirc.el (rcirc-handler-317): New function. (Bug#6507)
modified:
  lisp/ChangeLog
  lisp/net/rcirc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-06 22:44:01 +0000
+++ b/lisp/ChangeLog    2011-02-07 00:12:17 +0000
@@ -1,3 +1,7 @@
+2011-02-07  Deniz Dogan  <address@hidden>
+
+       * net/rcirc.el (rcirc-handler-317): New function (Bug#6507).
+
 2011-02-06  Jay Belanger  <address@hidden>
 
        * calc/calc.el (calc-logunits-field-reference) Renamed from

=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2011-02-05 21:07:26 +0000
+++ b/lisp/net/rcirc.el 2011-02-07 00:12:17 +0000
@@ -2592,6 +2592,20 @@
        (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))