Return-Path: X-Original-To: notmuch@notmuchmail.org Delivered-To: notmuch@notmuchmail.org Received: from localhost (localhost [127.0.0.1]) by olra.theworths.org (Postfix) with ESMTP id BAB5D40D17C for ; Fri, 12 Nov 2010 00:09:03 -0800 (PST) X-Virus-Scanned: Debian amavisd-new at olra.theworths.org X-Spam-Flag: NO X-Spam-Score: -1.9 X-Spam-Level: X-Spam-Status: No, score=-1.9 tagged_above=-999 required=5 tests=[BAYES_00=-1.9, RCVD_IN_DNSWL_NONE=-0.0001] autolearn=ham Received: from olra.theworths.org ([127.0.0.1]) by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 0rx2Vb8MyJMV for ; Fri, 12 Nov 2010 00:08:52 -0800 (PST) Received: from mail-wy0-f181.google.com (mail-wy0-f181.google.com [74.125.82.181]) by olra.theworths.org (Postfix) with ESMTP id 1733140DAD3 for ; Fri, 12 Nov 2010 00:08:51 -0800 (PST) Received: by mail-wy0-f181.google.com with SMTP id 40so3118963wyb.26 for ; Fri, 12 Nov 2010 00:08:51 -0800 (PST) Received: by 10.227.145.193 with SMTP id e1mr1972738wbv.226.1289549330934; Fri, 12 Nov 2010 00:08:50 -0800 (PST) Received: from ut.hh.sledj.net (host81-149-164-25.in-addr.btopenworld.com [81.149.164.25]) by mx.google.com with ESMTPS id x28sm1919087weq.40.2010.11.12.00.08.48 (version=TLSv1/SSLv3 cipher=RC4-MD5); Fri, 12 Nov 2010 00:08:49 -0800 (PST) Received: by ut.hh.sledj.net (Postfix, from userid 1000) id 26638594098; Fri, 12 Nov 2010 08:07:06 +0000 (GMT) From: David Edmondson To: notmuch@notmuchmail.org Subject: [PATCH 2/2] emacs: Use truenames for Fcc paths. Date: Fri, 12 Nov 2010 08:07:02 +0000 Message-Id: <1289549222-10882-2-git-send-email-dme@dme.org> X-Mailer: git-send-email 1.7.2.3 In-Reply-To: <1289549222-10882-1-git-send-email-dme@dme.org> References: <1289549222-10882-1-git-send-email-dme@dme.org> X-BeenThere: notmuch@notmuchmail.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: "Use and development of the notmuch mail system." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 12 Nov 2010 08:09:04 -0000 Appease the test suite by using the true name for the Fcc directory path, otherwise a value for `notmuch-database-path' which includes symbolic links causes test suite failures. --- emacs/notmuch-maildir-fcc.el | 11 ++++++----- 1 files changed, 6 insertions(+), 5 deletions(-) diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el index e5e0549..3f1c124 100644 --- a/emacs/notmuch-maildir-fcc.el +++ b/emacs/notmuch-maildir-fcc.el @@ -110,11 +110,12 @@ will NOT be removed or replaced." (when subdir (message-add-header (concat "Fcc: " - ;; If the resulting directory is not an absolute path, - ;; prepend the standard notmuch database path. - (if (= (elt subdir 0) ?/) - subdir - (concat (notmuch-database-path) "/" subdir)))) + (file-truename + ;; If the resulting directory is not an absolute path, + ;; prepend the standard notmuch database path. + (if (= (elt subdir 0) ?/) + subdir + (concat (notmuch-database-path) "/" subdir))))) ;; finally test if fcc points to a valid maildir (let ((fcc-header (message-fetch-field "Fcc"))) -- 1.7.2.3