diff options
Diffstat (limited to 'lisp/erc/erc-match.el')
| -rw-r--r-- | lisp/erc/erc-match.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/erc/erc-match.el b/lisp/erc/erc-match.el index 50e4cfbc521..35ba1b13492 100644 --- a/lisp/erc/erc-match.el +++ b/lisp/erc/erc-match.el @@ -1,6 +1,7 @@ ;;; erc-match.el --- Highlight messages matching certain regexps -;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005, 2006, +;; 2007 Free Software Foundation, Inc. ;; Author: Andreas Fuchs <asf@void.at> ;; Keywords: comm, faces @@ -540,7 +541,7 @@ deactivate/activate match logging in the latter. See (when (and (or (eq erc-log-matches-flag t) (and (eq erc-log-matches-flag 'away) - erc-away)) + (erc-away-time))) match-buffer-name) (let ((line (format-spec erc-log-match-format (format-spec-make @@ -572,7 +573,7 @@ deactivate/activate match logging in the latter. See (defun erc-log-matches-come-back (proc parsed) "Display a notice that messages were logged while away." - (when (and erc-away + (when (and (erc-away-time) (eq erc-log-matches-flag 'away)) (mapc (lambda (match-type) @@ -583,7 +584,7 @@ deactivate/activate match logging in the latter. See (with-current-buffer buffer (get-text-property (1- (point-max)) 'timestamp)))) - (away-time (erc-emacs-time-to-erc-time erc-away))) + (away-time (erc-emacs-time-to-erc-time (erc-away-time)))) (when (and away-time last-msg-time (erc-time-gt last-msg-time away-time)) (erc-display-message |