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

emacs: Use consistent naming for the two new poll functions.

Browse source 
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.
This commit is contained in:
Carl Worth 2010-04-22 14:24:37 -07:00
parent f373ed0792
commit 577a6906ce
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/notmuch.el
View file

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