diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-10-18 01:33:21 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-10-18 01:40:00 +0200 |
| commit | 140e587dd505849cb09c5b3f183bbc686ac020b7 (patch) | |
| tree | 2cf17ec9092f38c922e360b554b5b24852d62a80 /lisp/mh-e/mh-identity.el | |
| parent | 7a876397b271c52d603381858750c0224e600e3b (diff) | |
| download | emacs-140e587dd505849cb09c5b3f183bbc686ac020b7.tar.gz | |
Prefer defvar-local in MH-E
* lisp/mh-e/mh-comp.el (mh-insert-auto-fields-done-local):
* lisp/mh-e/mh-e.el (mh-thread-scan-line-map)
(mh-thread-scan-line-map-stack):
* lisp/mh-e/mh-identity.el (mh-identity-pgg-default-user-id)
(mh-identity-local):
* lisp/mh-e/mh-scan.el (mh-cmd-note):
* lisp/mh-e/mh-seq.el (mh-non-seq-mode-line-annotation):
* lisp/mh-e/mh-thread.el (mh-thread-id-hash)
(mh-thread-subject-hash, mh-thread-id-table)
(mh-thread-index-id-map, mh-thread-id-index-map)
(mh-thread-subject-container-hash, mh-thread-duplicates)
(mh-thread-history): Prefer defvar-local.
Diffstat (limited to 'lisp/mh-e/mh-identity.el')
| -rw-r--r-- | lisp/mh-e/mh-identity.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/mh-e/mh-identity.el b/lisp/mh-e/mh-identity.el index 3643e462318..994ab713915 100644 --- a/lisp/mh-e/mh-identity.el +++ b/lisp/mh-e/mh-identity.el @@ -39,11 +39,10 @@ (autoload 'mml-insert-tag "mml") -(defvar mh-identity-pgg-default-user-id nil +(defvar-local mh-identity-pgg-default-user-id nil "Holds the GPG key ID to be used by pgg.el. This is normally set as part of an Identity in `mh-identity-list'.") -(make-variable-buffer-local 'mh-identity-pgg-default-user-id) (defvar mh-identity-menu nil "The Identity menu.") @@ -90,9 +89,8 @@ See `mh-identity-make-menu'." (declare (obsolete nil "29.1")) nil) -(defvar mh-identity-local nil +(defvar-local mh-identity-local nil "Buffer-local variable that holds the identity currently in use.") -(make-variable-buffer-local 'mh-identity-local) (defun mh-header-field-delete (field value-only) "Delete header FIELD, or only its value if VALUE-ONLY is t. |