]> git.notmuchmail.org Git - notmuch/commitdiff
emacs: Use consistent naming for the two new poll functions.
authorCarl Worth <cworth@cworth.org>
Thu, 22 Apr 2010 21:24:37 +0000 (14:24 -0700)
committerCarl Worth <cworth@cworth.org>
Thu, 22 Apr 2010 21:24:37 +0000 (14:24 -0700)
Emacs scoping rules strongly encourage us to have fully-namespaced
function names. A prefix like "notmuch-search" is a pretty ugly
namespace name, but it's what we have for now.

emacs/notmuch.el

index 365757ead52b7321634cd05beabd82c003f8f871..2bf5f040a3f23881c9f8dc2445a6261969ceae6a 100644 (file)
@@ -224,7 +224,7 @@ For a mouse binding, return nil."
     (define-key map "s" 'notmuch-search)
     (define-key map "o" 'notmuch-search-toggle-order)
     (define-key map "=" 'notmuch-search-refresh-view)
-    (define-key map "G" 'notmuch-poll-and-search-refresh-view)
+    (define-key map "G" 'notmuch-search-poll-and-refresh-view)
     (define-key map "t" 'notmuch-search-filter-by-tag)
     (define-key map "f" 'notmuch-search-filter)
     (define-key map [mouse-1] 'notmuch-search-show-thread)
@@ -745,7 +745,7 @@ same relative position within the new buffer."
     (goto-char (point-min))
     ))
 
-(defun notmuch-poll-and-search-refresh-view ()
+(defun notmuch-search-poll-and-refresh-view ()
   "Run external script to import mail and refresh the current view.
 
 Checks if the variable 'notmuch-external-refresh-script is defined
@@ -814,7 +814,7 @@ current search results AND that are tagged with the given tag."
     (define-key map ">" 'notmuch-folder-last)
     (define-key map "<" 'notmuch-folder-first)
     (define-key map "=" 'notmuch-folder)
-    (define-key map "G" 'notmuch-poll-and-folder)
+    (define-key map "G" 'notmuch-folder-poll-and-refresh-view)
     (define-key map "s" 'notmuch-search)
     (define-key map [mouse-1] 'notmuch-folder-show-search)
     (define-key map (kbd "RET") 'notmuch-folder-show-search)
@@ -928,7 +928,7 @@ Currently available key bindings:
     (if search
        (notmuch-search (cdr search) notmuch-search-oldest-first))))
 
-(defun notmuch-poll-and-folder ()
+(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