diff options
author | Carl Worth <cworth@cworth.org> | 2009-11-21 00:52:23 +0100 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-11-21 00:52:23 +0100 |
commit | d295f50ac7f9c61e7c8e3551f4fca6cd903707fe (patch) | |
tree | 26fbc7f2c14cd4c2586f0379743907a21f800743 /notmuch.el | |
parent | 59c241ebd0e05abb38e1feb510116b4b97b2baa6 (diff) |
notmuch.el: Add many missing defvar calls.
Without these, emacs was complaining about "assignment to free variable",
(though only when byte compiling, which is why we didn't notice earlier).
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 41 |
1 files changed, 25 insertions, 16 deletions
@@ -74,22 +74,28 @@ pattern can still test against the entire line).") (defvar notmuch-command "notmuch" "Command to run the notmuch binary.") -(set 'notmuch-show-message-begin-regexp "\fmessage{") -(set 'notmuch-show-message-end-regexp "\fmessage}") -(set 'notmuch-show-header-begin-regexp "\fheader{") -(set 'notmuch-show-header-end-regexp "\fheader}") -(set 'notmuch-show-body-begin-regexp "\fbody{") -(set 'notmuch-show-body-end-regexp "\fbody}") -(set 'notmuch-show-attachment-begin-regexp "\fattachment{") -(set 'notmuch-show-attachment-end-regexp "\fattachment}") -(set 'notmuch-show-part-begin-regexp "\fpart{") -(set 'notmuch-show-part-end-regexp "\fpart}") -(set 'notmuch-show-marker-regexp "\f\\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$") - -(set 'notmuch-show-id-regexp "\\(id:[^ ]*\\)") -(set 'notmuch-show-depth-regexp " depth:\\([0-9]*\\) ") -(set 'notmuch-show-filename-regexp "filename:\\(.*\\)$") -(set 'notmuch-show-tags-regexp "(\\([^)]*\\))$") +(defvar notmuch-show-message-begin-regexp "\fmessage{") +(defvar notmuch-show-message-end-regexp "\fmessage}") +(defvar notmuch-show-header-begin-regexp "\fheader{") +(defvar notmuch-show-header-end-regexp "\fheader}") +(defvar notmuch-show-body-begin-regexp "\fbody{") +(defvar notmuch-show-body-end-regexp "\fbody}") +(defvar notmuch-show-attachment-begin-regexp "\fattachment{") +(defvar notmuch-show-attachment-end-regexp "\fattachment}") +(defvar notmuch-show-part-begin-regexp "\fpart{") +(defvar notmuch-show-part-end-regexp "\fpart}") +(defvar notmuch-show-marker-regexp "\f\\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$") + +(defvar notmuch-show-id-regexp "\\(id:[^ ]*\\)") +(defvar notmuch-show-depth-regexp " depth:\\([0-9]*\\) ") +(defvar notmuch-show-filename-regexp "filename:\\(.*\\)$") +(defvar notmuch-show-tags-regexp "(\\([^)]*\\))$") + +(defvar notmuch-show-parent-buffer nil) +(defvar notmuch-show-body-read-visible nil) +(defvar notmuch-show-citations-visible nil) +(defvar notmuch-show-signatures-visible nil) +(defvar notmuch-show-headers-visible nil) ; XXX: This should be a generic function in emacs somewhere, not here (defun point-invisible-p () @@ -741,6 +747,9 @@ thread from that buffer can be show when done with this one)." "Keymap for \"notmuch search\" buffers.") (fset 'notmuch-search-mode-map notmuch-search-mode-map) +(defvar notmuch-search-query-string) +(defvar notmuch-search-oldest-first) + (defun notmuch-search-scroll-up () "Scroll up, moving point to last message in thread if at end." (interactive) |