From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Subject: org-mew.el Date: Sat, 09 Feb 2008 18:11:29 +0000 Message-ID: <87zlua80fi.fsf@bzg.ath.cx> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JNuAp-0001CT-8o for emacs-orgmode@gnu.org; Sat, 09 Feb 2008 13:11:35 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JNuAn-0001AY-Eu for emacs-orgmode@gnu.org; Sat, 09 Feb 2008 13:11:34 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JNuAn-0001AE-9T for emacs-orgmode@gnu.org; Sat, 09 Feb 2008 13:11:33 -0500 Received: from ug-out-1314.google.com ([66.249.92.170]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JNuAn-0007MI-2V for emacs-orgmode@gnu.org; Sat, 09 Feb 2008 13:11:33 -0500 Received: by ug-out-1314.google.com with SMTP id a2so80177ugf.48 for ; Sat, 09 Feb 2008 10:11:32 -0800 (PST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Here is org-mew.el: it lets you create links from and to Mew messages. Mew is another mailer for Emacs, written by Kazu Yamamoto. http://www.mew.org This is very basic for now, and I will improve it if requested. Enjoy! --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline; filename=org-mew.el ;;; org-mew.el --- Support for links to messages in Mew ;; ;; Copyright 2008 Bastien Guerry ;; ;; Emacs Lisp Archive Entry ;; Filename: org-mew.el ;; Version: 0.1 ;; Author: Bastien Guerry ;; Maintainer: Bastien Guerry ;; Keywords: org, mail, Mew ;; ;; This program 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 3, or (at your option) ;; any later version. ;; ;; This program 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 this program; if not, write to the Free Software ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ;; ;;; Commentary: ;; ;; Mew is an Emacs mailer written by Kazu Yamamoto: http://www.mew.org ;; ;; This Org add-on provides a way to link to Mew messages. ;; ;; PUT this file into your load-path and the following into your ~/.emacs: ;; (require 'org-mew) ;; ;;; Code: (eval-when-compile (require 'cl)) (require 'org) (org-add-link-type "mew" 'org-mew-open) (add-hook 'org-store-link-functions 'org-mew-store-link) (defun org-mew-open (mew-link) "Visit the message MSG-NUMBER in FOLDER." (when (string-match "\\(+.*\\)+\\+\\([0-9]+\\)" mew-link) (let ((folder (match-string 1 mew-link)) (msg-num (match-string 2 mew-link))) (mew-summary-visit-folder folder) (when (mew-summary-search-msg msg-num) (if mew-summary-goto-line-then-display (mew-summary-display)))))) (defun org-mew-store-link () "Store a link to a Mew message." (when (mew-summary-p) (let ((folder (mew-summary-folder-name)) (number (mew-summary-message-number)) (subject (mew-summary-get-subject))) (org-store-link-props :type "mew" :link (concat "mew:" folder "+" number) :description subject)))) (provide 'org-mew) ;;; User Options, Variables ;;; org-mew.el ends here --=-=-= -- Bastien --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--