diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-12-05 10:54:14 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-12-05 10:54:14 +0100 |
| commit | f254c8b5f3df13bdee246fd9217870fa74dceea6 (patch) | |
| tree | d6541bd8777dcbcab769c61263beaca1727ff0d1 /lisp/mail/emacsbug.el | |
| parent | 5ef30fbf11c3ee0ff1c30061dab554b9bd3ce841 (diff) | |
| download | emacs-f254c8b5f3df13bdee246fd9217870fa74dceea6.tar.gz emacs-f254c8b5f3df13bdee246fd9217870fa74dceea6.tar.bz2 emacs-f254c8b5f3df13bdee246fd9217870fa74dceea6.zip | |
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.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 9 |
1 files changed, 4 insertions, 5 deletions
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 () |