mirror of https://codeberg.org/cage/tinmop/
- [gemini] fixed canceling subscription to gemlogs.
This commit is contained in:
parent
17401274b5
commit
52393e2a5e
|
@ -1252,8 +1252,7 @@ certificate).
|
||||||
|
|
||||||
(defun gemlog-cancel-subscription ()
|
(defun gemlog-cancel-subscription ()
|
||||||
(with-selected-gemlog-id (fields gemlog-id)
|
(with-selected-gemlog-id (fields gemlog-id)
|
||||||
(when-let* ((entries (db:gemlog-entries gemlog-id))
|
(when-let* ((event (make-instance 'program-events:gemlog-cancel-subscription-event
|
||||||
(event (make-instance 'program-events:gemlog-cancel-subscription-event
|
|
||||||
:payload gemlog-id)))
|
:payload gemlog-id)))
|
||||||
(with-blocking-notify-procedure ((format nil (_ "Canceling subscription for ~s") gemlog-id))
|
(with-blocking-notify-procedure ((format nil (_ "Canceling subscription for ~s") gemlog-id))
|
||||||
(program-events:push-event event)))))
|
(program-events:push-event event)))))
|
||||||
|
|
Loading…
Reference in New Issue