- (riece-check-channel-commands-are-usable)
- (let* ((completion-ignore-case t)
- (target
- (riece-completing-read-identity
- (format "Channel/User (default %s): "
- (riece-format-identity riece-current-channel))
- riece-current-channels nil nil nil nil
- (riece-format-identity riece-current-channel)))
- message)
- (if (and current-prefix-arg
- (riece-channel-p (riece-identity-prefix target)))
- (setq message (read-string "Message: ")))
- (list target message)))
+ (progn
+ (riece-check-channel-commands-are-usable)
+ (let* ((completion-ignore-case t)
+ (target
+ (riece-completing-read-identity
+ (format "Channel/User (default %s): "
+ (riece-format-identity riece-current-channel))
+ riece-current-channels nil nil nil nil
+ (riece-format-identity riece-current-channel)))
+ message)
+ (if (and current-prefix-arg
+ (riece-channel-p (riece-identity-prefix target)))
+ (setq message (read-string "Message: ")))
+ (list target message))))