diff options
| author | jao <jao@gnu.org> | 2025-11-13 20:09:31 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-11-13 20:09:31 +0000 |
| commit | a479b2dd82cb8985fceffc8a329cc4bb12765679 (patch) | |
| tree | ae69886e04d76e6105c6ff2839d7a54b2ca5fcd8 /lib/net | |
| parent | 2f4caff918d9b5e70419d7bc7a4887e09bdfdb8a (diff) | |
| download | elibs-a479b2dd82cb8985fceffc8a329cc4bb12765679.tar.gz elibs-a479b2dd82cb8985fceffc8a329cc4bb12765679.tar.bz2 | |
mail: better open email url in notmuchmain
Diffstat (limited to 'lib/net')
| -rw-r--r-- | lib/net/jao-notmuch.el | 7 | ||||
| -rw-r--r-- | lib/net/jao-url.el | 9 |
2 files changed, 13 insertions, 3 deletions
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 73f6420..404eab7 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -212,7 +212,7 @@ (with-current-buffer notmuch-tree-message-buffer (jao-notmuch--view-html)))))) -;;; header line with thread message counts +;;; header and mode lines with thread message counts (defun jao-notmuch--looking-at-new-p (&optional p) (when-let (ts (if p (plist-get p :tags) (notmuch-show-get-tags))) @@ -266,7 +266,8 @@ (with-current-buffer b (and (derived-mode-p 'notmuch-tree-mode) b))) (buffer-list)))) - `((:eval (jao-notmuch--format-header-line ,(buffer-name tb) ,cb ,subject))) + `((:eval + (jao-notmuch--format-header-line ,(buffer-name tb) ,cb ,subject))) (concat " " subject))) (defun jao-notmuch--format-lighter () @@ -353,7 +354,7 @@ ;;; fcc (defvar jao-notmuch-tags-not-inherited - '("attachment" "sent" "new" "trove" "flagged" "drivel")) + '("attachment" "sent" "new" "trove" "flagged" "drivel" "replied")) (defvar jao-notmuch-sent-dir "sent") diff --git a/lib/net/jao-url.el b/lib/net/jao-url.el index 9e58f99..ac66cef 100644 --- a/lib/net/jao-url.el +++ b/lib/net/jao-url.el @@ -32,5 +32,14 @@ (and (derived-mode-p 'eww-mode) (plist-get eww-data :url)))))) +(defun jao-url-email-url () + (save-excursion + (goto-char (point-min)) + (when (or (search-forward-regexp "^Via: h" nil t) + (search-forward-regexp "^URL:[\n ]h" nil t) + (and (search-forward-regexp "^Link$" nil t) + (not (beginning-of-line)))) + (jao-url-around-point)))) + (provide 'jao-url) ;;; jao-url.el ends here |