Require notmuch-maildir-fcc and also install it.
Rename all jkr/* functions to notmuch-maildir-fcc-*
Signed-off-by: Sebastian Spaeth <Sebastian@SSpaeth.de>
$(dir)/notmuch-hello.el \
$(dir)/notmuch-mua.el \
$(dir)/notmuch-address.el \
$(dir)/notmuch-hello.el \
$(dir)/notmuch-mua.el \
$(dir)/notmuch-address.el \
+ $(dir)/notmuch-maildir-fcc.el \
$(dir)/coolj.el
emacs_images := \
$(dir)/coolj.el
emacs_images := \
;;
;; (setq message-fcc-handler-function
;; '(lambda (destdir)
;;
;; (setq message-fcc-handler-function
;; '(lambda (destdir)
-;; (jkr/maildir-write-buffer-to-maildir destdir t)))
+;; (notmuch-maildir-fcc-write-buffer-to-maildir destdir t)))
;;
;; if you want Fcc'd messages to be marked as new:
;;
;; (setq message-fcc-handler-function
;; '(lambda (destdir)
;;
;; if you want Fcc'd messages to be marked as new:
;;
;; (setq message-fcc-handler-function
;; '(lambda (destdir)
-;; (jkr/maildir-write-buffer-to-maildir destdir nil)))
+;; (notmuch-maildir-fcc-write-buffer-to-maildir destdir nil)))
-(defvar jkr/maildir-count 0)
+(defvar notmuch-maildir-fcc-count 0)
-(defun jkr/maildir-host-fixer (hostname)
+(defun notmuch-maildir-fcc-host-fixer (hostname)
(replace-regexp-in-string "/\\|:"
'(lambda (s)
(cond ((string-equal s "/") "\\057")
(replace-regexp-in-string "/\\|:"
'(lambda (s)
(cond ((string-equal s "/") "\\057")
-(defun jkr/maildir-make-uniq-maildir-id ()
+(defun notmuch-maildir-fcc-make-uniq-maildir-id ()
(let* ((ct (current-time))
(timeid (+ (* (car ct) 65536) (cadr ct)))
(microseconds (caddr ct))
(let* ((ct (current-time))
(timeid (+ (* (car ct) 65536) (cadr ct)))
(microseconds (caddr ct))
- (hostname (jkr/maildir-host-fixer system-name)))
- (setq jkr/maildir-count (+ jkr/maildir-count 1))
+ (hostname (notmuch-maildir-fcc-host-fixer system-name)))
+ (setq notmuch-maildir-fcc-count (+ notmuch-maildir-fcc-count 1))
(format "%d.%d_%d_%d.%s"
timeid
(emacs-pid)
microseconds
(format "%d.%d_%d_%d.%s"
timeid
(emacs-pid)
microseconds
+ notmuch-maildir-fcc-count
-(defun jkr/maildir-dir-is-maildir-p (dir)
+(defun notmuch-maildir-fcc-dir-is-maildir-p (dir)
(and (file-exists-p (concat dir "/cur/"))
(file-exists-p (concat dir "/new/"))
(file-exists-p (concat dir "/tmp/"))))
(and (file-exists-p (concat dir "/cur/"))
(file-exists-p (concat dir "/new/"))
(file-exists-p (concat dir "/tmp/"))))
-(defun jkr/maildir-save-buffer-to-tmp (destdir)
+(defun notmuch-maildir-fcc-save-buffer-to-tmp (destdir)
"Returns the msg id of the message written to the temp directory
if successful, nil if not."
"Returns the msg id of the message written to the temp directory
if successful, nil if not."
- (let ((msg-id (jkr/maildir-make-uniq-maildir-id)))
+ (let ((msg-id (notmuch-maildir-fcc-make-uniq-maildir-id)))
(while (file-exists-p (concat destdir "/tmp/" msg-id))
(while (file-exists-p (concat destdir "/tmp/" msg-id))
- (setq msg-id (jkr/maildir-make-uniq-maildir-id)))
- (cond ((jkr/maildir-dir-is-maildir-p destdir)
+ (setq msg-id (notmuch-maildir-fcc-make-uniq-maildir-id)))
+ (cond ((notmuch-maildir-fcc-dir-is-maildir-p destdir)
(write-file (concat destdir "/tmp/" msg-id))
msg-id)
(t
(write-file (concat destdir "/tmp/" msg-id))
msg-id)
(t
-(defun jkr/maildir-move-tmp-to-new (destdir msg-id)
+(defun notmuch-maildir-fcc-move-tmp-to-new (destdir msg-id)
(add-name-to-file
(concat destdir "/tmp/" msg-id)
(concat destdir "/new/" msg-id ":2,")))
(add-name-to-file
(concat destdir "/tmp/" msg-id)
(concat destdir "/new/" msg-id ":2,")))
-(defun jkr/maildir-move-tmp-to-cur (destdir msg-id &optional mark-seen)
+(defun notmuch-maildir-fcc-move-tmp-to-cur (destdir msg-id &optional mark-seen)
(add-name-to-file
(concat destdir "/tmp/" msg-id)
(concat destdir "/cur/" msg-id ":2," (when mark-seen "S"))))
(add-name-to-file
(concat destdir "/tmp/" msg-id)
(concat destdir "/cur/" msg-id ":2," (when mark-seen "S"))))
-(defun jkr/maildir-write-buffer-to-maildir (destdir &optional mark-seen)
+(defun notmuch-maildir-fcc-write-buffer-to-maildir (destdir &optional mark-seen)
"Writes the current buffer to maildir destdir. If mark-seen is
non-nil, it will write it to cur/, and mark it as read. It should
return t if successful, and nil otherwise."
"Writes the current buffer to maildir destdir. If mark-seen is
non-nil, it will write it to cur/, and mark it as read. It should
return t if successful, and nil otherwise."
(with-temp-buffer
(insert-buffer orig-buffer)
(catch 'link-error
(with-temp-buffer
(insert-buffer orig-buffer)
(catch 'link-error
- (let ((msg-id (jkr/maildir-save-buffer-to-tmp destdir)))
+ (let ((msg-id (notmuch-maildir-fcc-save-buffer-to-tmp destdir)))
(when msg-id
(cond (mark-seen
(condition-case err
(when msg-id
(cond (mark-seen
(condition-case err
- (jkr/maildir-move-tmp-to-cur destdir msg-id t)
+ (notmuch-maildir-fcc-move-tmp-to-cur destdir msg-id t)
(file-already-exists
(throw 'link-error nil))))
(t
(condition-case err
(file-already-exists
(throw 'link-error nil))))
(t
(condition-case err
- (jkr/maildir-move-tmp-to-new destdir msg-id)
+ (notmuch-maildir-fcc-move-tmp-to-new destdir msg-id)
(file-already-exists
(throw 'link-error nil))))))
(delete-file (concat destdir "/tmp/" msg-id))))
(file-already-exists
(throw 'link-error nil))))))
(delete-file (concat destdir "/tmp/" msg-id))))
- t)))
\ No newline at end of file
+ t)))
+
+(provide 'notmuch-maildir-fcc)
(require 'notmuch-show)
(require 'notmuch-mua)
(require 'notmuch-hello)
(require 'notmuch-show)
(require 'notmuch-mua)
(require 'notmuch-hello)
+(require 'notmuch-maildir-fcc)
(defcustom notmuch-search-result-format
`(("date" . "%s ")
(defcustom notmuch-search-result-format
`(("date" . "%s ")