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

notmuch.el: Don't use defvar for undocumented variables.

Browse source 
Make at least some attempt to distinguish internal variables from
those that the user is expected to fiddle with.
This commit is contained in:
Carl Worth 2009-11-04 15:45:33 -08:00
parent 97b5f81533
commit 9f668b3d56
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
notmuch.el
View file

@ -49,20 +49,20 @@
(defvar notmuch-show-signature-lines-max 6 (defvar notmuch-show-signature-lines-max 6
"Maximum length of signature that will be hidden by default.") "Maximum length of signature that will be hidden by default.")
(defvar notmuch-show-message-begin-regexp " message{") (set 'notmuch-show-message-begin-regexp " message{")
(defvar notmuch-show-message-end-regexp " message}") (set 'notmuch-show-message-end-regexp " message}")
(defvar notmuch-show-header-begin-regexp " header{") (set 'notmuch-show-header-begin-regexp " header{")
(defvar notmuch-show-header-end-regexp " header}") (set 'notmuch-show-header-end-regexp " header}")
(defvar notmuch-show-body-begin-regexp " body{") (set 'notmuch-show-body-begin-regexp " body{")
(defvar notmuch-show-body-end-regexp " body}") (set 'notmuch-show-body-end-regexp " body}")
(defvar notmuch-show-attachment-begin-regexp " attachment{") (set 'notmuch-show-attachment-begin-regexp " attachment{")
(defvar notmuch-show-attachment-end-regexp " attachment}") (set 'notmuch-show-attachment-end-regexp " attachment}")
(defvar notmuch-show-part-begin-regexp " part{") (set 'notmuch-show-part-begin-regexp " part{")
(defvar notmuch-show-part-end-regexp " part}") (set 'notmuch-show-part-end-regexp " part}")
(defvar notmuch-show-marker-regexp " \\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$") (set 'notmuch-show-marker-regexp " \\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$")
(defvar notmuch-show-id-regexp "ID: \\(.*\\)$") (set 'notmuch-show-id-regexp "ID: \\(.*\\)$")
(defvar notmuch-show-tags-regexp "(\\([^)]*\\))$") (set 'notmuch-show-tags-regexp "(\\([^)]*\\))$")
; 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 ()