diff options
author | Stefan Kangas <stefan@marxist.se> | 2020-12-04 18:43:06 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2020-12-04 18:43:06 +0100 |
commit | f0db9ae2139c4a437a9bc08b44d94dbdb3d39c6c (patch) | |
tree | f7d29ec0d9dfe80938b845964b1df2858ef89330 /lisp/net/sieve.el | |
parent | 7bdc40e8d10488745355376981793a4d1e823f19 (diff) | |
download | emacs-f0db9ae2139c4a437a9bc08b44d94dbdb3d39c6c.tar.gz emacs-f0db9ae2139c4a437a9bc08b44d94dbdb3d39c6c.tar.bz2 emacs-f0db9ae2139c4a437a9bc08b44d94dbdb3d39c6c.zip |
Prefer setq-local in net/*.el
* lisp/net/ange-ftp.el (ange-ftp-process-handle-line):
(internal-ange-ftp-mode):
* lisp/net/imap.el (imap-fetch-safe):
* lisp/net/net-utils.el (net-utils-mode):
(nslookup-mode, network-connection-mode-setup):
* lisp/net/newst-plainview.el (newsticker-mode):
(newsticker-buffer-update):
* lisp/net/newst-treeview.el (newsticker--treeview-item-show):
(newsticker-treeview-mode):
* lisp/net/rlogin.el (rlogin):
* lisp/net/secrets.el (secrets-mode):
* lisp/net/sieve-mode.el (sieve-mode):
* lisp/net/sieve.el (sieve-setup-buffer, sieve-open-server):
* lisp/net/snmp-mode.el (snmp-common-mode, snmp-mode, snmpv2-mode):
* lisp/net/telnet.el (telnet-mode):
* lisp/net/tramp.el (tramp-get-debug-buffer): Prefer setq-local.
Diffstat (limited to 'lisp/net/sieve.el')
-rw-r--r-- | lisp/net/sieve.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el index 75bb4e242e2..ae96134a18f 100644 --- a/lisp/net/sieve.el +++ b/lisp/net/sieve.el @@ -272,8 +272,7 @@ Used to bracket operations which move point in the sieve-buffer." (let* ((port (or port sieve-manage-default-port)) (header (format "Server : %s:%s\n\n" server port))) (insert header)) - (set (make-local-variable 'sieve-buffer-header-end) - (point-max))) + (setq-local sieve-buffer-header-end (point-max))) (defun sieve-script-at-point (&optional pos) "Return name of sieve script at point POS, or nil." @@ -304,8 +303,8 @@ Used to bracket operations which move point in the sieve-buffer." "Open SERVER (on PORT) and authenticate." (with-current-buffer (or ;; open server - (set (make-local-variable 'sieve-manage-buffer) - (sieve-manage-open server port)) + (setq-local sieve-manage-buffer + (sieve-manage-open server port)) (error "Error opening server %s" server)) (sieve-manage-authenticate))) |