aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sx-compose.el3
-rw-r--r--sx-interaction.el1
2 files changed, 3 insertions, 1 deletions
diff --git a/sx-compose.el b/sx-compose.el
index 5201435..ab4a58d 100644
--- a/sx-compose.el
+++ b/sx-compose.el
@@ -149,7 +149,8 @@ respectively added locally to `sx-compose-before-send-hook' and
(error "Invalid PARENT"))
(let ((is-question
(and (listp parent)
- (cdr (assoc 'title parent)))))
+ (or (null parent)
+ (cdr (assoc 'title parent))))))
(with-current-buffer (sx-compose--get-buffer-create site parent)
(sx-compose-mode)
(setq sx-compose--send-function
diff --git a/sx-interaction.el b/sx-interaction.el
index 2768c8d..372a5b1 100644
--- a/sx-interaction.el
+++ b/sx-interaction.el
@@ -345,6 +345,7 @@ from context at point."
(sx-site-get-api-tokens) nil t nil nil
default)))
+;;;###autoload
(defun sx-ask (site)
"Start composing a question for SITE.
SITE is a string, indicating where the question will be posted."