[PATCH] piem-inject-thread-into-maildir: Let Lisp callers specify inbox

[Kyle Meyer <kyle@kyleam.com>]

piem-inject-thread-into-maildir expects to be able to determine the
inbox by calling piem-inbox.  That's fine for interactive use, but
wrapper functions may want to determine the inbox in another way.

Suggested-by: zimoun <zimon.toutoune@gmail.com>
Link: https://yhetil.org/guix-devel/86sfpo5q8w.fsf@gmail.com
---
 piem.el | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/piem.el b/piem.el
index f91e3e64..e72f41b6 100644
--- a/piem.el
+++ b/piem.el
@@ -772,26 +772,31 @@ (defun piem--write-mbox-to-maildir (maildir-directory)
     (cons n-added n-skipped)))
 
 ;;;###autoload
-(defun piem-inject-thread-into-maildir (mid &optional message-only)
+(defun piem-inject-thread-into-maildir (mid &optional inbox message-only)
   "Inject thread containing MID into `piem-inbox-maildir-directory'.
 
-If prefix argument MESSAGE-ONLY is non-nil, inject just the
-message for MID, not the entire thread.
+Download the message from the :url value configured for INBOX in
+`piem-inboxes'.  INBOX is passed to
+`piem-inbox-maildir-directory' to determine where to inject the
+message.  If INBOX is nil, the inbox returned by `piem-inbox' is
+used.
 
-This function depends on :url being configured for entries in
-`piem-inboxes'."
+If prefix argument MESSAGE-ONLY is non-nil, inject just the
+message for MID, not the entire thread."
   (interactive
    (list (or (piem-mid)
              (user-error "No message ID found for the current buffer"))
+         nil
          current-prefix-arg))
-  (let ((maildir-directory (piem-inbox-maildir-directory)))
+  (let* ((inbox (or inbox (piem-inbox)))
+         (maildir-directory (piem-inbox-maildir-directory inbox)))
     (cond
      ((not maildir-directory)
       (user-error "No directory returned by `piem-inbox-maildir-directory'"))
      ((not (piem-maildir-dir-is-maildir-p maildir-directory))
       (user-error
        "Does not look like a Maildir directory: %s" maildir-directory)))
-    (let ((url (concat (piem-mid-url mid)
+    (let ((url (concat (piem-mid-url mid inbox)
                        (if message-only "/raw" "/t.mbox.gz"))))
       (piem-with-url-contents url
         (unless message-only

base-commit: cbddebaa8e535e94d95510f02ebe8152c5d1a0b8
-- 
2.36.0