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

notmuch.el: Add many missing defvar calls.

Browse source 
Without these, emacs was complaining about "assignment to free variable",
(though only when byte compiling, which is why we didn't notice earlier).
This commit is contained in:
Carl Worth 2009-11-21 00:52:23 +01:00
parent 59c241ebd0
commit d295f50ac7
1 changed files with 24 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
notmuch.el
View file

@ -74,22 +74,28 @@ pattern can still test against the entire line).")
(defvar notmuch-command "notmuch" (defvar notmuch-command "notmuch"
"Command to run the notmuch binary.") "Command to run the notmuch binary.")
(set 'notmuch-show-message-begin-regexp "\fmessage{") (defvar notmuch-show-message-begin-regexp "\fmessage{")
(set 'notmuch-show-message-end-regexp "\fmessage}") (defvar notmuch-show-message-end-regexp "\fmessage}")
(set 'notmuch-show-header-begin-regexp "\fheader{") (defvar notmuch-show-header-begin-regexp "\fheader{")
(set 'notmuch-show-header-end-regexp "\fheader}") (defvar notmuch-show-header-end-regexp "\fheader}")
(set 'notmuch-show-body-begin-regexp "\fbody{") (defvar notmuch-show-body-begin-regexp "\fbody{")
(set 'notmuch-show-body-end-regexp "\fbody}") (defvar notmuch-show-body-end-regexp "\fbody}")
(set 'notmuch-show-attachment-begin-regexp "\fattachment{") (defvar notmuch-show-attachment-begin-regexp "\fattachment{")
(set 'notmuch-show-attachment-end-regexp "\fattachment}") (defvar notmuch-show-attachment-end-regexp "\fattachment}")
(set 'notmuch-show-part-begin-regexp "\fpart{") (defvar notmuch-show-part-begin-regexp "\fpart{")
(set 'notmuch-show-part-end-regexp "\fpart}") (defvar notmuch-show-part-end-regexp "\fpart}")
(set 'notmuch-show-marker-regexp "\f\\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$") (defvar notmuch-show-marker-regexp "\f\\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$")
(set 'notmuch-show-id-regexp "\\(id:[^ ]*\\)") (defvar notmuch-show-id-regexp "\\(id:[^ ]*\\)")
(set 'notmuch-show-depth-regexp " depth:\\([0-9]*\\) ") (defvar notmuch-show-depth-regexp " depth:\\([0-9]*\\) ")
(set 'notmuch-show-filename-regexp "filename:\\(.*\\)$") (defvar notmuch-show-filename-regexp "filename:\\(.*\\)$")
(set 'notmuch-show-tags-regexp "(\\([^)]*\\))$") (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 ; XXX: This should be a generic function in emacs somewhere, not here
(defun point-invisible-p () (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.") "Keymap for \"notmuch search\" buffers.")
(fset 'notmuch-search-mode-map notmuch-search-mode-map) (fset 'notmuch-search-mode-map notmuch-search-mode-map)
(defvar notmuch-search-query-string)
(defvar notmuch-search-oldest-first)
(defun notmuch-search-scroll-up () (defun notmuch-search-scroll-up ()
"Scroll up, moving point to last message in thread if at end." "Scroll up, moving point to last message in thread if at end."
(interactive) (interactive)