diff options
Diffstat (limited to 'custom')
| -rw-r--r-- | custom/jao-custom-gnus.el | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el index cf50ed3..732c358 100644 --- a/custom/jao-custom-gnus.el +++ b/custom/jao-custom-gnus.el @@ -1,4 +1,5 @@ -;;; gnus configuration -*- lexical-binding: t -*- +;; gnus configuration -*- lexical-binding: t -*- + ;;; Feature switching vars (defvar jao-gnus-use-local-imap nil) @@ -405,7 +406,7 @@ (g (directory-file-name (file-name-directory file))) (g (replace-regexp-in-string (file-name-as-directory maildir) "" g)) (g (replace-regexp-in-string (file-name-as-directory newsdir) "" g)) - (g (cond (nntp (concat n-server g)) + (g (cond (nntp (concat n-server ":" g)) ((file-name-directory g) (replace-regexp-in-string "^\\([^/]+\\)/" (concat m-server ":\\1/") @@ -417,16 +418,9 @@ (nntp g) (t (replace-regexp-in-string ":\\." ":" g))))) -(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)))) - (defun jao-gnus-goto-file (filename &optional _page) (let ((group (jao-gnus-file-to-group filename)) - (id (jao-gnus-file-message-id filename))) + (id (file-name-nondirectory filename))) (if (and group id) (org-gnus-follow-link group id) (message "Couldn't get relevant info for switching to Gnus.")))) |