From f254c8b5f3df13bdee246fd9217870fa74dceea6 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sat, 5 Dec 2020 10:54:14 +0100 Subject: Prefer setq-local in mail/*.el * lisp/mail/emacsbug.el (report-emacs-bug): * lisp/mail/rfc822.el (rfc822-addresses): * lisp/mail/rmail.el (rmail-perm-variables, rmail-show-message-1): * lisp/mail/rmailedit.el (rmail-edit-mode): (rmail-edit-current-message, rmail-cease-edit): * lisp/mail/rmailsum.el (rmail-new-summary-1, rmail-summary-mode): (rmail-summary-update-highlight): * lisp/mail/sendmail.el (mail-mode): Prefer setq-local. --- lisp/mail/emacsbug.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'lisp/mail/emacsbug.el') diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index d524b26f1b9..5ad1b9821f4 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -241,12 +241,12 @@ Already submitted bugs can be found in the Emacs bug tracker: ;; that report-emacs-bug-orig-text remains valid. (Bug#5178) (message-sort-headers) ;; Stop message-mode stealing the properties we will add. - (set (make-local-variable 'message-strip-special-text-properties) nil) + (setq-local message-strip-special-text-properties nil) ;; Make sure we default to the From: address as envelope when sending ;; through sendmail. FIXME: Why? (when (and (not (message--sendmail-envelope-from)) (message-bogus-recipient-p (message-make-address))) - (set (make-local-variable 'message-sendmail-envelope-from) 'header))) + (setq-local message-sendmail-envelope-from 'header))) (rfc822-goto-eoh) (forward-line 1) ;; Move the mail signature to the proper place. @@ -381,9 +381,8 @@ usually do not have translators for other languages.\n\n"))) (add-hook report-emacs-bug-send-hook 'report-emacs-bug-hook nil t)) (goto-char (point-max)) (skip-chars-backward " \t\n") - (make-local-variable 'report-emacs-bug-orig-text) - (setq report-emacs-bug-orig-text - (buffer-substring-no-properties (point-min) (point))) + (setq-local report-emacs-bug-orig-text + (buffer-substring-no-properties (point-min) (point))) (goto-char user-point))) (defun emacs-bug--system-description () -- cgit v1.2.3