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

2 files changed, 3 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4e0dc57c1b7..dd3bb3d475c 100644
--- 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 246f6335134..62fa7eb0feb 100644
--- 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))))