nits

1 files changed, 6 insertions, 4 deletions

diff --git a/init.org b/init.org
index e590bba..dc9553f 100644
--- a/init.org
+++ b/init.org
@@ -1484,18 +1484,20 @@
           (insert "\nmaildir-mailbox = " mbox "\n\n")
           (save-buffer)))
 
-      (defun jao-rss-subscribe ()
+      (defun jao-rss-subscribe (&optional url)
+        "Subscribe to a given RSS URL.  If URL not given, look for it."
         (interactive)
-        (let* ((url (or (jao-url-around-point)
+        (let* ((url (or url
+                        (jao-url-around-point)
                         (jao-rss--find-url)
                         (read-string "Feed URL: ")))
-               (url+title (if (consp url) url (cons url (read-string "Feed name: "))))
+               (url+title (if (consp url) url (list url)))
                (url (car url+title))
                (title (cdr url+title)))
           (if url
               (let ((url (if (string-match "^feed:" url) (substring url 5) url)))
                 (when (y-or-n-p (format "Subscribe to <%s>? " url))
-                  (let* ((name (read-string "Name: " title))
+                  (let* ((name (read-string "Feed name: " title))
                          (cat (completing-read "Category: "
                                                (jao-list-mailboxes "feeds")
                                                nil t)))