aboutsummaryrefslogtreecommitdiff
path: root/piem-notmuch.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2021-02-07 12:39:22 -0500
committerKyle Meyer <kyle@kyleam.com>2021-02-07 12:39:22 -0500
commit2339ba46872bf990129275771306182c82235dbf (patch)
tree456917ee4cb83a2c7ff3494b1f9e23eea06d7fe9 /piem-notmuch.el
parent0cc9929f21448e7cb34ecc23bf9ff4fc7bef4773 (diff)
parentf4975ba183c54ec364827380ee70c5ccc426e06f (diff)
downloadpiem-2339ba46872bf990129275771306182c82235dbf.tar.gz
Merge branch 'km/copy-mid-url'
Diffstat (limited to 'piem-notmuch.el')
-rw-r--r--piem-notmuch.el10
1 files changed, 3 insertions, 7 deletions
diff --git a/piem-notmuch.el b/piem-notmuch.el
index a222f3f..2a5c525 100644
--- a/piem-notmuch.el
+++ b/piem-notmuch.el
@@ -109,13 +109,9 @@ message itself if it looks like a patch."
(defun piem-notmuch-show-get-public-inbox-link (mid)
"Given the message-id MID, return the public-inbox url.
This will lookup the url in the `piem-inboxes' variable."
- (let* ((inbox (or (piem-notmuch-get-inbox)
- (user-error "No inbox associated with current buffer")))
- (link (or (piem-inbox-get :url inbox)
- (user-error "No url was found for %s" inbox))))
- (concat
- (piem--ensure-trailing-slash link)
- (piem-escape-mid mid))))
+ (piem-mid-url mid
+ (or (piem-notmuch-get-inbox)
+ (user-error "No inbox associated with current buffer"))))
;;;###autoload
(define-minor-mode piem-notmuch-mode