diff options
author | Kyle Meyer <kyle@kyleam.com> | 2021-02-07 12:39:22 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2021-02-07 12:39:22 -0500 |
commit | 2339ba46872bf990129275771306182c82235dbf (patch) | |
tree | 456917ee4cb83a2c7ff3494b1f9e23eea06d7fe9 /piem-notmuch.el | |
parent | 0cc9929f21448e7cb34ecc23bf9ff4fc7bef4773 (diff) | |
parent | f4975ba183c54ec364827380ee70c5ccc426e06f (diff) | |
download | piem-2339ba46872bf990129275771306182c82235dbf.tar.gz |
Merge branch 'km/copy-mid-url'
Diffstat (limited to 'piem-notmuch.el')
-rw-r--r-- | piem-notmuch.el | 10 |
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 |