- '(let* ((server (erc-response.sender parsed))
- (ison-list (delete "" (split-string
- (erc-response.contents parsed))))
- (new-list ison-list)
- (old-list (erc-with-server-buffer erc-last-ison)))
- (while new-list
- (when (not (erc-member-ignore-case (car new-list) old-list))
- (run-hook-with-args 'erc-notify-signon-hook server (car new-list))
- (erc-display-message
- parsed 'notice proc
- 'notify_on ?n (car new-list) ?m (erc-network-name)))
- (setq new-list (cdr new-list)))
- (while old-list
- (when (not (erc-member-ignore-case (car old-list) ison-list))
- (run-hook-with-args 'erc-notify-signoff-hook server (car old-list))
- (erc-display-message
- parsed 'notice proc
- 'notify_off ?n (car old-list) ?m (erc-network-name)))
- (setq old-list (cdr old-list)))
- (setq erc-last-ison ison-list)
- t))
+ (lambda (proc parsed)
+ (let* ((server (erc-response.sender parsed))
+ (ison-list (delete "" (split-string
+ (erc-response.contents parsed))))
+ (new-list ison-list)
+ (old-list (erc-with-server-buffer erc-last-ison)))
+ (while new-list
+ (when (not (erc-member-ignore-case (car new-list) old-list))
+ (run-hook-with-args 'erc-notify-signon-hook server (car new-list))
+ (erc-display-message
+ parsed 'notice proc
+ 'notify_on ?n (car new-list) ?m (erc-network-name)))
+ (setq new-list (cdr new-list)))
+ (while old-list
+ (when (not (erc-member-ignore-case (car old-list) ison-list))
+ (run-hook-with-args 'erc-notify-signoff-hook server (car old-list))
+ (erc-display-message
+ parsed 'notice proc
+ 'notify_off ?n (car old-list) ?m (erc-network-name)))
+ (setq old-list (cdr old-list)))
+ (setq erc-last-ison ison-list)
+ t)))