- (let* ((completion-ignore-case t)
- (target
- (completing-read "Channel/User: "
- (mapcar #'list riece-current-channels)
- nil t (cons riece-current-channel 0)))
- message)
- (if (and current-prefix-arg
- (riece-channel-p target))
- (setq message (read-string "Message: ")))
- (list target message)))
- (if (riece-identity-member-safe target riece-current-channels)
- (if (riece-channel-p target)
+ (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))))
+ (if (riece-identity-member target riece-current-channels)
+ (if (riece-channel-p (riece-identity-prefix target))