60/d3b09b94eaa653eb8034c199d4e5d4e206c6b5

   1 Return-Path: <prvs=504c64974=jrosenthal@jhu.edu>\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 107EC431FB6\r
   6         for <notmuch@notmuchmail.org>; Wed, 13 Jun 2012 14:09:16 -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: -2.3\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-2.3 tagged_above=-999 required=5\r
  12         tests=[RCVD_IN_DNSWL_MED=-2.3] autolearn=disabled\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 T7OEqlhr8QAB for <notmuch@notmuchmail.org>;\r
  16         Wed, 13 Jun 2012 14:09:15 -0700 (PDT)\r
  17 X-Greylist: delayed 3603 seconds by postgrey-1.32 at olra;\r
  18         Wed, 13 Jun 2012 14:09:15 PDT\r
  19 Received: from smtpauth.johnshopkins.edu (smtpauth.johnshopkins.edu\r
  20         [162.129.8.200]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
  21         (No client certificate requested)\r
  22         by olra.theworths.org (Postfix) with ESMTPS id 58DAE431FAE\r
  23         for <notmuch@notmuchmail.org>; Wed, 13 Jun 2012 14:09:15 -0700 (PDT)\r
  24 X-IronPort-Anti-Spam-Filtered: true\r
  25 X-IronPort-Anti-Spam-Result:\r
  26  AtoPAObl2E8KoSES/2dsb2JhbABFpRoBjnADgjqDQBQ0ASw0uUSJBIs6boF/gxsDmxcDjH+BOg\r
  27 X-IronPort-AV: E=Sophos;i="4.75,765,1330923600"; d="scan'208";a="158399065"\r
  28 Received: from unknown (HELO watt) ([10.161.33.18])\r
  29         by ipex1.johnshopkins.edu with ESMTP/TLS/AES256-SHA;\r
  30         13 Jun 2012 16:09:11 -0400\r
  31 Received: from jkr by watt with local (Exim 4.76)\r
  32         (envelope-from <jrosenthal@jhu.edu>)\r
  33         id 1SetsN-0001r8-S6; Wed, 13 Jun 2012 16:09:11 -0400\r
  34 From: Jesse Rosenthal <jrosenthal@jhu.edu>\r
  35 To: notmuch@notmuchmail.org\r
  36 Subject: [PATCH] emacs: derive correct timestamp in FCC unique name\r
  37 Date: Wed, 13 Jun 2012 16:01:27 -0400\r
  38 Message-ID: <87d353ezyw.fsf@jhu.edu>\r
  39 MIME-Version: 1.0\r
  40 Content-Type: text/plain\r
  41 X-BeenThere: notmuch@notmuchmail.org\r
  42 X-Mailman-Version: 2.1.13\r
  43 Precedence: list\r
  44 List-Id: "Use and development of the notmuch mail system."\r
  45         <notmuch.notmuchmail.org>\r
  46 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  47         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  48 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  49 List-Post: <mailto:notmuch@notmuchmail.org>\r
  50 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  51 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  52         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  53 X-List-Received-Date: Wed, 13 Jun 2012 21:09:16 -0000\r
  54 \r
  55 \r
  56 Previously, the timestamp at the beginning of the FCC maildir unique\r
  57 maildir name was derived incorrectly, thanks to an integer\r
  58 overflow. This changes the derivation of timestamp to float\r
  59 arithmetic, and so gets the number correct. (It is still formatted\r
  60 with "%d" so it will show up as an integer.)\r
  61 \r
  62 This change is mostly a question of consistency, since the unique name\r
  63 is arbitrary anyway. But since most people use timestamps, and that was\r
  64 the original intention here as well, we might as well.\r
  65 \r
  66 Signed-off-by: Jesse Rosenthal <jrosenthal@jhu.edu>\r
  67 ---\r
  68  emacs/notmuch-maildir-fcc.el |    2 +-\r
  69  1 file changed, 1 insertion(+), 1 deletion(-)\r
  70 \r
  71 diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el\r
  72 index dcfbc4b..6fd8ff9 100644\r
  73 --- a/emacs/notmuch-maildir-fcc.el\r
  74 +++ b/emacs/notmuch-maildir-fcc.el\r
  75 @@ -141,7 +141,7 @@ will NOT be removed or replaced."\r
  76  \r
  77  (defun notmuch-maildir-fcc-make-uniq-maildir-id ()\r
  78     (let* ((ct (current-time))\r
  79 -         (timeid (+ (* (car ct) 65536) (cadr ct)))\r
  80 +         (timeid (+ (* (car ct) 65536.0) (cadr ct)))\r
  81           (microseconds (car (cdr (cdr ct))))\r
  82           (hostname (notmuch-maildir-fcc-host-fixer system-name)))\r
  83       (setq notmuch-maildir-fcc-count (+ notmuch-maildir-fcc-count 1))\r
  84 -- \r
  85 1.7.9.5\r
  86 \r
  87 \r