* lisp/net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4e0dc57c1b71bbe7af5385d0477fdb5f65d0510e..dd3bb3d475ceedaca9d30e28ca94f94777d63e9a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-02-09  Deniz Dogan  <deniz.a.m.dogan@gmail.com>
 
+       * net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying.
+
        * net/rcirc.el (rcirc-cmd-ctcp): Use dedicated function when
        available.
        (rcirc-ctcp-sender-PING): New function.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 246f6335134c85179521065adac63406e0fdabaf..62fa7eb0feb618a8dd9af021ce5f9e1618694234 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2198,7 +2198,7 @@ With a prefix arg, prompt for new topic."
 
 (defun rcirc-ctcp-sender-PING (process target request)
   "Send a CTCP PING message to TARGET."
-  (let ((timestamp (car (split-string (number-to-string (float-time)) "\\."))))
+  (let ((timestamp (format "%.0f" (float-time))))
     (rcirc-send-string process
                        (format "PRIVMSG %s :\C-aPING %s\C-a" target timestamp))))