diff options
Diffstat (limited to 'attic/misc.el')
| -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 |