From: Carl Worth <cworth@cworth.org>
Date: Wed, 4 Nov 2009 23:45:33 +0000 (-0800)
Subject: notmuch.el: Don't use defvar for undocumented variables.
X-Git-Tag: 0.1~576
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=9f668b3d56baed92937180622462b7e1cca6b001;p=notmuch.git

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

Make at least some attempt to distinguish internal variables from
those that the user is expected to fiddle with.
---

diff --git a/notmuch.el b/notmuch.el
index 20436f83..7459d786 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -49,20 +49,20 @@
 (defvar notmuch-show-signature-lines-max 6
   "Maximum length of signature that will be hidden by default.")
 
-(defvar notmuch-show-message-begin-regexp    "message{")
-(defvar notmuch-show-message-end-regexp      "message}")
-(defvar notmuch-show-header-begin-regexp     "header{")
-(defvar notmuch-show-header-end-regexp       "header}")
-(defvar notmuch-show-body-begin-regexp       "body{")
-(defvar notmuch-show-body-end-regexp         "body}")
-(defvar notmuch-show-attachment-begin-regexp "attachment{")
-(defvar notmuch-show-attachment-end-regexp   "attachment}")
-(defvar notmuch-show-part-begin-regexp       "part{")
-(defvar notmuch-show-part-end-regexp         "part}")
-(defvar notmuch-show-marker-regexp "\\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$")
-
-(defvar notmuch-show-id-regexp "ID: \\(.*\\)$")
-(defvar notmuch-show-tags-regexp "(\\([^)]*\\))$")
+(set 'notmuch-show-message-begin-regexp    "message{")
+(set 'notmuch-show-message-end-regexp      "message}")
+(set 'notmuch-show-header-begin-regexp     "header{")
+(set 'notmuch-show-header-end-regexp       "header}")
+(set 'notmuch-show-body-begin-regexp       "body{")
+(set 'notmuch-show-body-end-regexp         "body}")
+(set 'notmuch-show-attachment-begin-regexp "attachment{")
+(set 'notmuch-show-attachment-end-regexp   "attachment}")
+(set 'notmuch-show-part-begin-regexp       "part{")
+(set 'notmuch-show-part-end-regexp         "part}")
+(set 'notmuch-show-marker-regexp "\\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$")
+
+(set 'notmuch-show-id-regexp "ID: \\(.*\\)$")
+(set 'notmuch-show-tags-regexp "(\\([^)]*\\))$")
 
 ; XXX: This should be a generic function in emacs somewhere, not here
 (defun point-invisible-p ()