From 9f668b3d56baed92937180622462b7e1cca6b001 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Wed, 4 Nov 2009 15:45:33 -0800 Subject: [PATCH] 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. --- notmuch.el | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) 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 () -- 2.26.2