X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=notmuch.el;h=7459d786f5586622044dc85237ac249f711572b8;hp=20436f83a5ca5a89f3b4c3e4cdee4f82a7af4bc5;hb=9f668b3d56baed92937180622462b7e1cca6b001;hpb=97b5f8153399d57bb9db643e778b06e23387110c 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 ()