- (set (make-local-variable 'erc-list-last-argument) line)
- (erc-once-with-server-event
- 321
- (list 'progn
- (list 'erc-list-install-322-handler (current-buffer)))))
+ (set (make-local-variable 'erc-list-last-argument) line)
+ (erc-once-with-server-event
+ 321
+ (let ((buf (current-buffer)))
+ (lambda (_proc _parsed)
+ (erc-list-install-322-handler buf)))))