debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 20:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch-maildir-fcc: elisp syntax fixes

Browse source 
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 <Sebastian@SSpaeth.de>
This commit is contained in:
Sebastian Spaeth 2010-04-26 10:23:17 +02:00 committed by Carl Worth
parent 36245db69d
commit c000c4b394
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
emacs/notmuch-maildir-fcc.el
View file

@ -52,7 +52,7 @@
(defun notmuch-maildir-fcc-make-uniq-maildir-id () (defun notmuch-maildir-fcc-make-uniq-maildir-id ()
(let* ((ct (current-time)) (let* ((ct (current-time))
(timeid (+ (* (car ct) 65536) (cadr ct))) (timeid (+ (* (car ct) 65536) (cadr ct)))
(microseconds (caddr ct)) (microseconds (car (cdr (cdr ct))))
(hostname (notmuch-maildir-fcc-host-fixer system-name))) (hostname (notmuch-maildir-fcc-host-fixer system-name)))
(setq notmuch-maildir-fcc-count (+ notmuch-maildir-fcc-count 1)) (setq notmuch-maildir-fcc-count (+ notmuch-maildir-fcc-count 1))
(format "%d.%d_%d_%d.%s" (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." return t if successful, and nil otherwise."
(let ((orig-buffer (buffer-name))) (let ((orig-buffer (buffer-name)))
(with-temp-buffer (with-temp-buffer
(insert-buffer orig-buffer) (insert-buffer-substring orig-buffer)
(catch 'link-error (catch 'link-error
(let ((msg-id (notmuch-maildir-fcc-save-buffer-to-tmp destdir))) (let ((msg-id (notmuch-maildir-fcc-save-buffer-to-tmp destdir)))
(when msg-id (when msg-id