From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Subject: Re: Fw: Mew and org-mode Date: Sun, 10 Feb 2008 10:57:08 +0000 Message-ID: <874pchjczf.fsf@bzg.ath.cx> References: <20070708.195438.238446629.Christophe.Troestler@umh.ac.be> 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 1JO9s2-0002FT-2B for emacs-orgmode@gnu.org; Sun, 10 Feb 2008 05:57:14 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JO9s0-0002F9-Gi for emacs-orgmode@gnu.org; Sun, 10 Feb 2008 05:57:13 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JO9s0-0002F6-6N for emacs-orgmode@gnu.org; Sun, 10 Feb 2008 05:57:12 -0500 Received: from py-out-1112.google.com ([64.233.166.183]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JO9rz-0001P8-LW for emacs-orgmode@gnu.org; Sun, 10 Feb 2008 05:57:11 -0500 Received: by py-out-1112.google.com with SMTP id u52so4547592pyb.1 for ; Sun, 10 Feb 2008 02:57:11 -0800 (PST) In-Reply-To: <20070708.195438.238446629.Christophe.Troestler@umh.ac.be> (Christophe TROESTLER's message of "Sun, 08 Jul 2007 19:54:38 +0200 (CEST)") 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: Christophe TROESTLER Cc: emacs-orgmode@gnu.org --=-=-= Hi Christophe, Christophe TROESTLER writes: >> I recently dicovered org-mode which comes with Emacs 22. It is >> possible to make links for most of Emacs mailing programs but, >> unfortunately, not mew. It would be really nice if a mew:... type >> link was developed. I don't know if you still need a Mew link type, but I've been adding one recently. Since I am not an everyday user of Mew, could you check if it works? Thanks! --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; 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 --=-=-=--