Arkady Grudzinsky <[email protected]> writes: > On Fri, Sep 23 2016, Adam Sjøgren wrote: > >> Rainer writes: >> >>> As far as I understand, the notmuch search only works on a maildir >>> (nnmaildir I think?) and not nnimap. >> >> Side note: notmuch search also works with nnml. > > Notmuch works on any local maildir directory. So, if mail is > retrieved by offlineimap and stored locally in maildir, notmuch > will work even though Gnus is accessing the maildir through > Dovecot and nnimap backend. Notmuch is separate from Gnus.
Correct. > > I got it working. The code from https://goo.gl/VAXWxk works > perfectly. Could you please post the un-shortened URL as it has been disabled by google? > The idea is to map GG to notmuch-search. Notmuch > does its job and shows the messages in its own buffer. Then in > notmuch view buffer, I can press C-c C-c and go to that message > in Gnus. The trick is to replace the file name with Gnus news > group name. This is what replace-regexp-in-string code does. > Yup - correct. > Notmuch searches all groups regardless of their status in Gnus > and shows the whole message thread. The C-c C-c combination > opens the message in Gnus even if the message is located in a > killed group. > >> (require 'notmuch) >> (add-hook 'gnus-group-mode-hook 'lld-notmuch-shortcut) >> (require 'org-gnus) > >> (defun lld-notmuch-shortcut () >> (define-key gnus-group-mode-map "GG" 'notmuch-search) >> ) > >> (defun lld-notmuch-file-to-group (file) >> "Calculate the Gnus group name from the given file name. >> " >> (let ((group (file-name-directory (directory-file-name >> (file-name-directory file))))) >> (setq group (replace-regexp-in-string ".*/Maildir/" "nnimap+local:" >> group)) >> (setq group (replace-regexp-in-string "/$" "" group)) >> (if (string-match ":$" group) >> (concat group "INBOX") >> (replace-regexp-in-string ":\\." ":" group)))) > >> (defun lld-notmuch-goto-message-in-gnus () >> "Open a summary buffer containing the current notmuch >> article." >> (interactive) >> (let ((group (lld-notmuch-file-to-group (notmuch-show-get-filename))) >> (message-id (replace-regexp-in-string >> "^id:" "" (notmuch-show-get-message-id)))) >> (setq message-id (replace-regexp-in-string "\"" "" message-id)) >> (if (and group message-id) >> (progn >> (switch-to-buffer "*Group*") >> (org-gnus-follow-link group message-id)) >> (message "Couldn't get relevant infos for switching to Gnus.")))) > >> (define-key notmuch-show-mode-map (kbd "C-c C-c") >> 'lld-notmuch-goto-message-in-gnus) -- Rainer M. Krug email: Rainer<at>krugs<dot>de PGP: 0x0F52F982
signature.asc
Description: PGP signature
_______________________________________________ info-gnus-english mailing list [email protected] https://lists.gnu.org/mailman/listinfo/info-gnus-english
