47/06287026d9512b41d420f8977af12fa2a8762b

   1 Return-Path: <Sebastian@SSpaeth.de>\r
   2 X-Original-To: notmuch@notmuchmail.org\r
   3 Delivered-To: notmuch@notmuchmail.org\r
   4 Received: from localhost (localhost [127.0.0.1])\r
   5         by olra.theworths.org (Postfix) with ESMTP id DA32B4196F4\r
   6         for <notmuch@notmuchmail.org>; Mon, 26 Apr 2010 01:23:26 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: -1.9\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-1.9 tagged_above=-999 required=5\r
  12         tests=[BAYES_00=-1.9, RCVD_IN_DNSWL_NONE=-0.0001] autolearn=ham\r
  13 Received: from olra.theworths.org ([127.0.0.1])\r
  14         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  15         with ESMTP id v-Wzq9yS71-y for <notmuch@notmuchmail.org>;\r
  16         Mon, 26 Apr 2010 01:23:25 -0700 (PDT)\r
  17 Received: from homiemail-a15.g.dreamhost.com (mailbigip.dreamhost.com\r
  18         [208.97.132.5])\r
  19         by olra.theworths.org (Postfix) with ESMTP id B315A431FC1\r
  20         for <notmuch@notmuchmail.org>; Mon, 26 Apr 2010 01:23:25 -0700 (PDT)\r
  21 Received: from localhost.localdomain (mtec-hg-docking-1-dhcp-204.ethz.ch\r
  22         [129.132.133.204]) (Authenticated sender: sebastian@sspaeth.de)\r
  23         by homiemail-a15.g.dreamhost.com (Postfix) with ESMTPA id 85ED276C062; \r
  24         Mon, 26 Apr 2010 01:23:24 -0700 (PDT)\r
  25 From: Sebastian Spaeth <Sebastian@SSpaeth.de>\r
  26 To: Notmuch developer list <notmuch@notmuchmail.org>\r
  27 Subject: [PATCH v3 3/4] notmuch-maildir-fcc: elisp syntax fixes\r
  28 Date: Mon, 26 Apr 2010 10:23:17 +0200\r
  29 Message-Id: <1272270198-28357-3-git-send-email-Sebastian@SSpaeth.de>\r
  30 X-Mailer: git-send-email 1.7.0.4\r
  31 In-Reply-To: <m3bpd8tpjk.fsf@x200.gr8dns.org>\r
  32 References: <m3bpd8tpjk.fsf@x200.gr8dns.org>\r
  33 X-BeenThere: notmuch@notmuchmail.org\r
  34 X-Mailman-Version: 2.1.13\r
  35 Precedence: list\r
  36 List-Id: "Use and development of the notmuch mail system."\r
  37         <notmuch.notmuchmail.org>\r
  38 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  39         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  40 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  41 List-Post: <mailto:notmuch@notmuchmail.org>\r
  42 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  43 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  44         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  45 X-List-Received-Date: Mon, 26 Apr 2010 08:23:27 -0000\r
  46 \r
  47 1)use insert-buffer-substring\r
  48 \r
  49 Rather than the insert-buffer. Emacs complains that it is for interactive use\r
  50 and not for use within elisp. So use insert-buffer-substring which does the\r
  51 same thing when not handed any 'begin' 'end' parameters.\r
  52 \r
  53 2)replace caddr with (car (cdr (cdr)))\r
  54 \r
  55 The former requires 'cl to be loaded and during make install emacs complained\r
  56 about not knowing it.\r
  57 \r
  58 Signed-off-by: Sebastian Spaeth <Sebastian@SSpaeth.de>\r
  59 ---\r
  60  emacs/notmuch-maildir-fcc.el |    4 ++--\r
  61  1 files changed, 2 insertions(+), 2 deletions(-)\r
  62 \r
  63 diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el\r
  64 index 2117f54..84f4187 100644\r
  65 --- a/emacs/notmuch-maildir-fcc.el\r
  66 +++ b/emacs/notmuch-maildir-fcc.el\r
  67 @@ -52,7 +52,7 @@\r
  68  (defun notmuch-maildir-fcc-make-uniq-maildir-id ()\r
  69     (let* ((ct (current-time))\r
  70           (timeid (+ (* (car ct) 65536) (cadr ct)))\r
  71 -         (microseconds (caddr ct))\r
  72 +         (microseconds (car (cdr (cdr ct))))\r
  73           (hostname (notmuch-maildir-fcc-host-fixer system-name)))\r
  74       (setq notmuch-maildir-fcc-count (+ notmuch-maildir-fcc-count 1))\r
  75       (format "%d.%d_%d_%d.%s"\r
  76 @@ -97,7 +97,7 @@ non-nil, it will write it to cur/, and mark it as read. It should\r
  77  return t if successful, and nil otherwise."\r
  78    (let ((orig-buffer (buffer-name)))\r
  79      (with-temp-buffer\r
  80 -      (insert-buffer orig-buffer)\r
  81 +      (insert-buffer-substring orig-buffer)\r
  82        (catch 'link-error\r
  83         (let ((msg-id (notmuch-maildir-fcc-save-buffer-to-tmp destdir)))\r
  84           (when msg-id\r
  85 -- \r
  86 1.7.0.4\r
  87 \r