diff options
Diffstat (limited to 'lisp/mastodon-views.el')
| -rw-r--r-- | lisp/mastodon-views.el | 6 | 
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 790c548..7d5ac1e 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -291,7 +291,7 @@ If ID is provided, use that list."           (name-choice (read-string "List name: " name-old))           (replies-policy (completing-read "Replies policy: " ; give this a proper name                                            '("followed" "list" "none") -                                          nil :match nil nil "list")) +                                          nil t nil nil "list"))           (url (mastodon-http--api (format "lists/%s" id)))           (response (mastodon-http--put url                                         `(("title" . ,name-choice) @@ -333,7 +333,7 @@ Prompt for name and replies policy."    (let* ((title (read-string "New list name: "))           (replies-policy (completing-read "Replies policy: " ; give this a proper name                                            '("followed" "list" "none") -                                          nil :match nil nil "list")) ; default +                                          nil t nil nil "list")) ; default           (response (mastodon-http--post (mastodon-http--api "lists")                                          `(("title" . ,title)                                            ("replies_policy" . ,replies-policy)) @@ -621,7 +621,7 @@ Prompt for a context, must be a list containting at least one of \"home\",              (completing-read-multiple               "Contexts to filter [TAB for options]: "               '("home" "notifications" "public" "thread") -             nil :match))) +             nil t)))           (contexts-processed            (if (equal nil contexts)                (error "You must select at least one context for a filter")  | 
