mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 16:32:51 +00:00
This fixes a wrong merge that should not have happened: commit 7e903a merges the master branch into the maint branch, while we really want to keep the maint branch a bugfix-only branch. This commit reverts back the maint branch to its state before merging the master branch. From there, we will fix remaining problems with the maint branch (e.g. copyright issues) then release this maint branch as Org-mode 7.8.05.
106 lines
3.6 KiB
EmacsLisp
106 lines
3.6 KiB
EmacsLisp
;;; org-notmuch.el --- Support for links to notmuch messages from within Org-mode
|
||
|
||
;; Copyright (C) 2010-2012 Matthieu Lemerre
|
||
|
||
;; Author: Matthieu Lemerre <racin@free.fr>
|
||
;; Keywords: outlines, hypermedia, calendar, wp
|
||
;; Homepage: http://orgmode.org
|
||
|
||
;; This file is not part of GNU Emacs.
|
||
|
||
;; This file is free software; you can redistribute it and/or modify
|
||
;; it under the terms of the GNU General Public License as published by
|
||
;; the Free Software Foundation; either version 2, or (at your option)
|
||
;; any later version.
|
||
|
||
;; This file is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;; GNU General Public License for more details.
|
||
|
||
;; You should have received a copy of the GNU General Public License
|
||
;; along with GNU Emacs; see the file COPYING. If not, write to
|
||
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||
;; Boston, MA 02110-1301, USA.
|
||
|
||
;;; Commentary:
|
||
|
||
;; This file implements links to notmuch messages and "searchs". A
|
||
;; search is a query to be performed by notmuch; it is the equivalent
|
||
;; to folders in other mail clients. Similarly, mails are refered to
|
||
;; by a query, so both a link can refer to several mails.
|
||
|
||
;; Links have one the following form
|
||
;; notmuch:<search terms>
|
||
;; notmuch-search:<search terms>.
|
||
|
||
;; The first form open the queries in notmuch-show mode, whereas the
|
||
;; second link open it in notmuch-search mode. Note that queries are
|
||
;; performed at the time the link is opened, and the result may be
|
||
;; different from whet the link was stored.
|
||
|
||
;;; Code:
|
||
|
||
(require 'org)
|
||
|
||
;; Install the link type
|
||
(org-add-link-type "notmuch" 'org-notmuch-open)
|
||
(add-hook 'org-store-link-functions 'org-notmuch-store-link)
|
||
|
||
(defun org-notmuch-store-link ()
|
||
"Store a link to a notmuch search or message."
|
||
(when (eq major-mode 'notmuch-show-mode)
|
||
(let* ((message-id (notmuch-show-get-prop :id))
|
||
(subject (notmuch-show-get-subject))
|
||
(to (notmuch-show-get-to))
|
||
(from (notmuch-show-get-from))
|
||
desc link)
|
||
(org-store-link-props :type "notmuch" :from from :to to
|
||
:subject subject :message-id message-id)
|
||
(setq desc (org-email-link-description))
|
||
(setq link (org-make-link "notmuch:" "id:" message-id))
|
||
(org-add-link-props :link link :description desc)
|
||
link)))
|
||
|
||
(defun org-notmuch-open (path)
|
||
"Follow a notmuch message link specified by PATH."
|
||
(org-notmuch-follow-link path))
|
||
|
||
(defun org-notmuch-follow-link (search)
|
||
"Follow a notmuch link to SEARCH.
|
||
|
||
Can link to more than one message, if so all matching messages are shown."
|
||
(require 'notmuch)
|
||
(notmuch-show (org-link-unescape search)))
|
||
|
||
|
||
|
||
|
||
(org-add-link-type "notmuch-search" 'org-notmuch-search-open)
|
||
(add-hook 'org-store-link-functions 'org-notmuch-search-store-link)
|
||
|
||
(defun org-notmuch-search-store-link ()
|
||
"Store a link to a notmuch search or message."
|
||
(when (eq major-mode 'notmuch-search-mode)
|
||
(let ((link (org-make-link "notmuch-search:"
|
||
(org-link-escape notmuch-search-query-string)))
|
||
(desc (concat "Notmuch search: " notmuch-search-query-string)))
|
||
(org-store-link-props :type "notmuch-search"
|
||
:link link
|
||
:description desc)
|
||
link)))
|
||
|
||
(defun org-notmuch-search-open (path)
|
||
"Follow a notmuch message link specified by PATH."
|
||
(message path)
|
||
(org-notmuch-search-follow-link path))
|
||
|
||
(defun org-notmuch-search-follow-link (search)
|
||
"Follow a notmuch link by displaying SEARCH in notmuch-search mode."
|
||
(require 'notmuch)
|
||
(notmuch-search (org-link-unescape search)))
|
||
|
||
(provide 'org-notmuch)
|
||
|
||
;;; org-notmuch.el ends here
|