* riece-keepalive.el (riece-keepalive-after-login-hook): Suppress

[riece] / lisp / riece-keepalive.el

diff --git a/lisp/riece-keepalive.el b/lisp/riece-keepalive.el
index 955b6ab..c0c25a6 100644 (file)
--- a/lisp/riece-keepalive.el
+++ b/lisp/riece-keepalive.el
@@ -53,8 +53,7 @@
          (riece-run-at-time
           riece-keepalive-ping-repeat riece-keepalive-ping-repeat
           (lambda (buffer)
-            (save-excursion
-              (set-buffer buffer)
+            (with-current-buffer buffer
               (riece-send-string "PING riece-keepalive\r\n")))
           (current-buffer)))))