From mboxrd@z Thu Jan 1 00:00:00 1970 From: Tokuya Kameshima Subject: Re: new version of org-mew.el Date: Tue, 12 Mar 2013 00:44:17 +0900 (JST) Message-ID: <20130312.004417.1242803083175502607.kametoku@gmail.com> References: <20130225.203652.1880414702745010956.kametoku@gmail.com> Mime-Version: 1.0 Content-Type: Multipart/Mixed; boundary="--Next_Part(Tue_Mar_12_00_44_17_2013_822)--" Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([208.118.235.92]:40188) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UF4tr-0000rl-HK for emacs-orgmode@gnu.org; Mon, 11 Mar 2013 11:44:35 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UF4to-0006Kq-1P for emacs-orgmode@gnu.org; Mon, 11 Mar 2013 11:44:31 -0400 Received: from mail-da0-x232.google.com ([2607:f8b0:400e:c00::232]:49125) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UF4tn-0006Ka-RS for emacs-orgmode@gnu.org; Mon, 11 Mar 2013 11:44:27 -0400 Received: by mail-da0-f50.google.com with SMTP id t1so526127dae.9 for ; Mon, 11 Mar 2013 08:44:26 -0700 (PDT) In-Reply-To: <20130225.203652.1880414702745010956.kametoku@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: bzg@altern.org Cc: kametoku@gmail.com, emacs-orgmode@gnu.org ----Next_Part(Tue_Mar_12_00_44_17_2013_822)-- Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit Hi Bastien, Could you apply the attached patch to org-mew.el? This will fix a problem where `org-mew-store-link' does not care the Mew's case feature. Thank you, --Tokuya On Mon, 25 Feb 2013 20:36:52 +0900 (JST), Tokuya Kameshima wrote: > The attached is the new version of org-mew.el with several new features. > I would appreciate it if some of Mew users could try this. ----Next_Part(Tue_Mar_12_00_44_17_2013_822)-- Content-Type: Text/X-Patch; charset=us-ascii Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="org-mew.el.patch" diff --git a/contrib/lisp/org-mew.el b/contrib/lisp/org-mew.el index 1fa6fc2..fae6898 100644 --- a/contrib/lisp/org-mew.el +++ b/contrib/lisp/org-mew.el @@ -195,7 +195,8 @@ with \"t\" key." (mark-info (mew-summary-get-mark))) (if (and org-mew-link-to-refile-destination (eq mark-info ?o)) ; marked as refile - (nth 1 (mew-refile-get msgnum)) + (mew-case-folder (mew-sinfo-get-case) + (nth 1 (mew-refile-get msgnum))) (let ((folder-or-path (mew-summary-folder-name))) (mew-folder-path-to-folder folder-or-path t)))))) ----Next_Part(Tue_Mar_12_00_44_17_2013_822)----