From mboxrd@z Thu Jan  1 00:00:00 1970
From: Thomas Baumann <dtbaumann@yahoo.de>
Subject: Re: Link to MH-E message that has been refiled
Date: Fri, 13 Jun 2008 20:47:01 +0200
Message-ID: <28089.1213382821@norvel.baumann-gauting.site>
Reply-To: dtbaumann@yahoo.de
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1K7EJr-0003bz-Vd
	for emacs-orgmode@gnu.org; Fri, 13 Jun 2008 14:48:16 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1K7EJn-0003Xv-7i
	for emacs-orgmode@gnu.org; Fri, 13 Jun 2008 14:48:15 -0400
Received: from [199.232.76.173] (port=44557 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1K7EJn-0003Xj-1i
	for emacs-orgmode@gnu.org; Fri, 13 Jun 2008 14:48:11 -0400
Received: from mail.gmx.net ([213.165.64.20]:33925)
	by monty-python.gnu.org with smtp (Exim 4.60)
	(envelope-from <thomas@baumann-gauting.net>) id 1K7EJl-00017e-SV
	for emacs-orgmode@gnu.org; Fri, 13 Jun 2008 14:48:10 -0400
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: Carsten Dominik <carsten@orgmode.org>
Cc: emacs-orgmode@gnu.org

and there's a bug with org-mhe-get-message-folder-from-index returning
"nil" instead of nil

fixed with the patch below

diff --git a/lisp/org-mhe.el b/lisp/org-mhe.el
index eb2c9ab..7f0d7f4 100644
--- a/lisp/org-mhe.el
+++ b/lisp/org-mhe.el
@@ -141,8 +141,8 @@ So if you use sequences, it will now work."
   "Return the name of the message folder in a index folder buffer."
   (save-excursion
     (mh-index-previous-folder)
-    (re-search-forward "^\\(+.*\\)$" nil t)
-    (message "%s" (match-string 1))))
+    (if (re-search-forward "^\\(+.*\\)$" nil t)
+    (message "%s" (match-string 1)))))
 
 (defun org-mhe-get-message-folder ()
   "Return the name of the current message folder.