Changeset 4200 for trunk/lisp/erc/erc-notify.el
- Timestamp:
- 04/07/07 15:49:28 (2 years ago)
- Files:
-
- trunk/lisp/erc/erc-notify.el (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/erc/erc-notify.el
r4190 r4200 122 122 (erc-response.contents parsed)))) 123 123 (new-list ison-list) 124 (old-list (with-current-buffer (erc-server-buffer) 125 erc-last-ison))) 124 (old-list (erc-with-server-buffer erc-last-ison))) 126 125 (while new-list 127 126 (when (not (erc-member-ignore-case (car new-list) old-list)) … … 205 204 ((null args) 206 205 ;; Print current notificated people (online) 207 (let ((ison ( with-current-buffer (erc-server-buffer)erc-last-ison)))206 (let ((ison (erc-with-server-buffer erc-last-ison))) 208 207 (if (not ison) 209 208 (erc-display-message
