- (riece-insert-info
- (list riece-dialogue-buffer riece-others-buffer)
- (concat
- (riece-concat-server-name
- (format "%s is (%s) [%s, %s]"
- (match-string 1 (car replies))
- (riece-strip-user-at-host (match-string 4 (car replies)))
- (if (match-beginning 2)
- "operator"
- "not operator")
- (if (eq (match-string 3 (car replies)) ?-)
- "away"
- "not away")))
- "\n")))
+ (let ((user (match-string 1 (car replies)))
+ (away (eq (match-string 3 (car replies)) ?-)))
+ (riece-insert-info
+ (list riece-dialogue-buffer riece-others-buffer)
+ (concat
+ (riece-concat-server-name
+ (format "%s is (%s) [%s, %s]"
+ user
+ (riece-strip-user-at-host
+ (match-string 4 (car replies)))
+ (if (match-beginning 2)
+ "operator"
+ "not operator")
+ (if away
+ "away"
+ "not away")))
+ "\n"))
+ (riece-user-set-away (riece-get-user user) away)))