Mercurial > emacs

diff lisp/erc/erc-track.el @ 86836:11b4896b439a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sync from upstream ERC - Parse 307 (nick has identified) responses. - Only activate some things if the connection has been established.
author Michael Olson <mwolson@gnu.org>
date Thu, 29 Nov 2007 22:36:38 +0000
parents a7aa5ee6bc3a
children 107ccd98fa12
line wrap: on
line diff
--- a/lisp/erc/erc-track.el	Thu Nov 29 21:57:25 2007 +0000
+++ b/lisp/erc/erc-track.el	Thu Nov 29 22:36:38 2007 +0000
@@ -665,8 +665,9 @@
 
 (defun erc-user-is-active (&rest ignore)
   "Set `erc-buffer-activity'."
-  (setq erc-buffer-activity (erc-current-time))
-  (erc-track-modified-channels))
+  (when erc-server-connected
+    (setq erc-buffer-activity (erc-current-time))
+    (erc-track-modified-channels)))
 
 (defun erc-track-get-buffer-window (buffer frame-param)
   (if (eq frame-param 'selected-visible)