branch: elpa/mastodon
commit a369dc61782c9225afed7350ca63d16ffacd09d7
Author: Dave Marquardt <davem...@linux.ibm.com>
Commit: Dave Marquardt <davem...@linux.ibm.com>
Fixed poll expiry minimum time
- Enforce at 300 seconds
- Construct default minimum value directly rather than depend on
(car (mastodon-toot--poll-expiry-options-alist))
---
lisp/mastodon-toot.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index e50d42d718..5381c0ff98 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -1486,8 +1486,8 @@ Return a cons of a human readable string, and a
seconds-from-now string."
(response (completing-read "poll ends in [or enter seconds]: "
options nil 'confirm)))
(or (assoc response options #'string=)
- (if (< (string-to-number response) 600)
- (car options) ;; min 5 mins
+ (if (< (string-to-number response) 300)
+ (cons "5 minutes" (number-to-string (* 60 5))) ;; min 5 mins
(cons (format "%s seconds" response) response)))))
(defun mastodon-toot--poll-expiry-options-alist ()
