|
|
@@ -480,7 +480,7 @@
|
|
|
(dolist (url args)
|
|
|
(handler-case
|
|
|
(let ((idx (parse-integer url)))
|
|
|
- (db-vk-remove-chat-wall chat-id (nth (1- idx) domains)))
|
|
|
+ (db-vk-remove-chat-domain chat-id (nth (1- idx) domains)))
|
|
|
(parse-error ()
|
|
|
(let* ((domain (%ensure-domain (%find-vk-domain url)))
|
|
|
(existing (find domain domains :test #'equal)))
|
