[PATCH 6/6] notmuch-maildir-fcc: replace caddr with (car (cdr (cdr)))
Sebastian Spaeth
Sebastian at SSpaeth.de
Thu Apr 22 02:07:31 PDT 2010
The former requires 'cl to be loaded and during make install emacs complained about not knowing it.
Signed-off-by: Sebastian Spaeth <Sebastian at SSpaeth.de>
---
emacs/notmuch-maildir-fcc.el | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el
index c47bfb3..3dc8283 100644
--- a/emacs/notmuch-maildir-fcc.el
+++ b/emacs/notmuch-maildir-fcc.el
@@ -58,7 +58,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"
--
1.7.0.4
More information about the notmuch
mailing list