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 7CCC7418C25 for ; Fri, 23 Apr 2010 12:01:21 -0700 (PDT) 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] 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 W7MvliBhcW79 for ; Fri, 23 Apr 2010 12:01:20 -0700 (PDT) Received: from homiemail-a15.g.dreamhost.com (caiajhbdcagg.dreamhost.com [208.97.132.66]) by olra.theworths.org (Postfix) with ESMTP id A165F431FC1 for ; Fri, 23 Apr 2010 12:01:20 -0700 (PDT) Received: from localhost.localdomain (unknown [195.190.188.219]) (Authenticated sender: sebastian@sspaeth.de) by homiemail-a15.g.dreamhost.com (Postfix) with ESMTPA id 1D81276C014; Fri, 23 Apr 2010 12:01:18 -0700 (PDT) From: Sebastian Spaeth To: Notmuch developer list Subject: [PATCH 3/4] notmuch-maildir-fcc: elisp syntax fixes Date: Fri, 23 Apr 2010 21:01:10 +0200 Message-Id: <1272049271-20049-3-git-send-email-Sebastian@SSpaeth.de> X-Mailer: git-send-email 1.7.0.4 In-Reply-To: References: 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, 23 Apr 2010 19:01:21 -0000 1)use insert-buffer-substring Rather than the insert-buffer. Emacs complains that it is for interactive use and not for use within elisp. So use insert-buffer-substring which does the same thing when not handed any 'begin' 'end' parameters. 2)replace caddr with (car (cdr (cdr))) The former requires 'cl to be loaded and during make install emacs complained about not knowing it. Signed-off-by: Sebastian Spaeth --- emacs/notmuch-maildir-fcc.el | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el index 2117f54..84f4187 100644 --- a/emacs/notmuch-maildir-fcc.el +++ b/emacs/notmuch-maildir-fcc.el @@ -52,7 +52,7 @@ (defun notmuch-maildir-fcc-make-uniq-maildir-id () (let* ((ct (current-time)) (timeid (+ (* (car ct) 65536) (cadr ct))) - (microseconds (caddr ct)) + (microseconds (car (cdr (cdr ct)))) (hostname (notmuch-maildir-fcc-host-fixer system-name))) (setq notmuch-maildir-fcc-count (+ notmuch-maildir-fcc-count 1)) (format "%d.%d_%d_%d.%s" @@ -97,7 +97,7 @@ non-nil, it will write it to cur/, and mark it as read. It should return t if successful, and nil otherwise." (let ((orig-buffer (buffer-name))) (with-temp-buffer - (insert-buffer orig-buffer) + (insert-buffer-substring orig-buffer) (catch 'link-error (let ((msg-id (notmuch-maildir-fcc-save-buffer-to-tmp destdir))) (when msg-id -- 1.7.0.4