- (let ((match-data (match-data)))
- (if (re-search-forward "(from [^)]+)$" limit t)
- (if (get-text-property (match-beginning 0) 'riece-server-name)
- t
- (store-match-data match-data)))))
+ (and (re-search-forward "(from [^)]+)$" limit t)
+ (get-text-property (match-beginning 0) 'riece-server-name)))