diff options
| author | jao <jao@gnu.org> | 2022-08-06 20:17:37 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-08-06 20:18:05 +0100 |
| commit | 983e7375af65594411c842503e1a8e46086df50b (patch) | |
| tree | b6e28cd5687278aea746bdeeae6dfc96e8d87c18 /attic | |
| parent | b889be5a91b968d8364152e6691d5b08757fefe9 (diff) | |
| download | elibs-983e7375af65594411c842503e1a8e46086df50b.tar.gz elibs-983e7375af65594411c842503e1a8e46086df50b.tar.bz2 | |
gnus: simpler open email function
Diffstat (limited to 'attic')
| -rw-r--r-- | attic/misc.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/attic/misc.el b/attic/misc.el index 9c3488f..a26f130 100644 --- a/attic/misc.el +++ b/attic/misc.el @@ -205,6 +205,13 @@ (add-hook 'gnus-part-display-hook 'jao-gnus-remove-anchors) +;;;; find message id +(defun jao-gnus-file-message-id (filename) + (with-temp-buffer + (insert-file filename) + (goto-char (point-min)) + (when (re-search-forward "^[Mm]essage-[Ii][Dd]: <?\\([^><]+\\)>?" nil t) + (match-string 1)))) ;;; mu4e (jao-load-path "mu4e") (use-package mu4e |