diff options
author | Austin Clements <amdragon@MIT.EDU> | 2013-09-03 17:45:21 -0400 |
---|---|---|
committer | David Bremner <bremner@debian.org> | 2013-09-10 08:06:52 -0300 |
commit | ebd8a2e344bcbf2a4385e56d9328fae5b617e566 (patch) | |
tree | 3c680e937ce3cbac24f0f213c18b2ac17ab069a2 /emacs/notmuch.el | |
parent | ecdfa9a6b0d92ebc9bb0a41b597ad7420883d9ca (diff) |
emacs: Move `notmuch-poll' to notmuch-lib
Diffstat (limited to 'emacs/notmuch.el')
-rw-r--r-- | emacs/notmuch.el | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/emacs/notmuch.el b/emacs/notmuch.el index 00cf271a..82cece80 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -959,44 +959,6 @@ same relative position within the new buffer." (notmuch-search query oldest-first target-thread target-line) (goto-char (point-min)))) -(defcustom notmuch-poll-script nil - "An external script to incorporate new mail into the notmuch database. - -This variable controls the action invoked by -`notmuch-search-poll-and-refresh-view' and -`notmuch-hello-poll-and-update' (each have a default keybinding -of 'G') to incorporate new mail into the notmuch database. - -If set to nil (the default), new mail is processed by invoking -\"notmuch new\". Otherwise, this should be set to a string that -gives the name of an external script that processes new mail. If -set to the empty string, no command will be run. - -The external script could do any of the following depending on -the user's needs: - -1. Invoke a program to transfer mail to the local mail store -2. Invoke \"notmuch new\" to incorporate the new mail -3. Invoke one or more \"notmuch tag\" commands to classify the mail - -Note that the recommended way of achieving the same is using -\"notmuch new\" hooks." - :type '(choice (const :tag "notmuch new" nil) - (const :tag "Disabled" "") - (string :tag "Custom script")) - :group 'notmuch-external) - -(defun notmuch-poll () - "Run \"notmuch new\" or an external script to import mail. - -Invokes `notmuch-poll-script', \"notmuch new\", or does nothing -depending on the value of `notmuch-poll-script'." - (interactive) - (if (stringp notmuch-poll-script) - (unless (string= notmuch-poll-script "") - (call-process notmuch-poll-script nil nil)) - (call-process notmuch-command nil nil nil "new"))) - (defun notmuch-search-poll-and-refresh-view () "Invoke `notmuch-poll' to import mail, then refresh the current view." (interactive) |