From: Carl Worth <cworth@cworth.org>
Date: Thu, 22 Apr 2010 21:46:15 +0000 (-0700)
Subject: emacs: Add customize treatment and rename refresh-script to notmuch-poll-script
X-Git-Tag: 0.3~111
X-Git-Url: https://git.cworth.org/git?a=commitdiff_plain;h=0b2cf3527e71d06e560ef9875ac3c9b53a7bf3d0;p=notmuch

emacs: Add customize treatment and rename refresh-script to notmuch-poll-script

With defcustom the user can easily find this variable (and its
documentation) within "M-x customize-group" "notmuch" (though finding
*that* is still tricky).

The new name of notmuch-poll-script is also easier to remember, (for
me at least).
---

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 2bf5f040..e947e5d8 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -745,15 +745,33 @@ same relative position within the new buffer."
     (goto-char (point-min))
     ))
 
-(defun notmuch-search-poll-and-refresh-view ()
-  "Run external script to import mail and refresh the current view.
+(defcustom notmuch-poll-script ""
+  "An external script to incorporate new mail into the notmuch database.
+
+If this variable is non empty, then it should name a script to be
+invoked by `notmuch-search-poll-and-refresh-view' and
+`notmuch-folder-poll-and-refresh-view' (each have a default
+keybinding of 'G'). The 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"
+  :type 'string
+  :group 'notmuch)
 
-Checks if the variable 'notmuch-external-refresh-script is defined
-and runs the external program defined it provides. Then calls
-notmuch-search-refresh-view to refresh the current view."
+(defun notmuch-poll ()
+  "Run external script to import mail.
+
+Invokes `notmuch-poll-script' if it is not set to an empty string."
   (interactive)
-  (if (boundp 'notmuch-external-refresh-script)
-      (call-process notmuch-external-refresh-script nil nil))
+  (if (not (string= notmuch-poll-script ""))
+      (call-process notmuch-poll-script nil nil)))
+
+(defun notmuch-search-poll-and-refresh-view ()
+  "Invoke `notmuch-poll' to import mail, then refresh the current view."
+  (interactive)
+  (notmuch-poll)
   (notmuch-search-refresh-view))
 
 (defun notmuch-search-toggle-order ()
@@ -929,14 +947,9 @@ Currently available key bindings:
 	(notmuch-search (cdr search) notmuch-search-oldest-first))))
 
 (defun notmuch-folder-poll-and-refresh-view ()
-  "Run external script to import mail and refresh the folder view.
-
-Checks if the variable 'notmuch-external-refresh-script is defined
-and runs the external program defined it provides. Then calls
-notmuch-folder to refresh the current view."
+  "Invoke `notmuch-poll' to import mail, then refresh the folder view."
   (interactive)
-  (if (boundp 'notmuch-external-refresh-script)
-      (call-process notmuch-external-refresh-script nil nil))
+  (notmuch-poll)
   (notmuch-folder))
 
 ;;;###autoload