From c000c4b394132536eed5cfadbeec58f9c7fb5056 Mon Sep 17 00:00:00 2001 From: Sebastian Spaeth Date: Mon, 26 Apr 2010 10:23:17 +0200 Subject: [PATCH] notmuch-maildir-fcc: elisp syntax fixes 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 file changed, 2 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el index 2117f54a..84f4187a 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