- (if liece-highlight-mode
- (liece-widget-convert-button 'url-link
- (match-beginning 0)(match-end 0)
- (match-string 0)))
- (unless (assoc url liece-url-alist)
- (push (list url) liece-url-alist)
- (run-hook-with-args 'liece-url-add-hook url)))))
+ (let ((url (match-string 0)))
+ (if liece-highlight-mode
+ (liece-widget-convert-button
+ 'url-link (match-beginning 0)(match-end 0) url))
+ (unless (assoc url liece-url-alist)
+ (push (list url) liece-url-alist)
+ (run-hook-with-args 'liece-url-add-hook url))))))