andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reposition call to set-buffer-modified-p in sieve-upload

Browse source 
* lisp/net/sieve.el (sieve-upload): It's meant to affect the script
buffer, not sieve-buffer, so needs to be outside the call to
with-current-buffer.
This commit is contained in:
Eric Abrahamsen 2021-01-02 11:05:38 -08:00
parent 6b10ce867f
commit bfb4db5e44
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/net/sieve.el
View file

@ -360,8 +360,8 @@ Used to bracket operations which move point in the sieve-buffer."
(if (not (sieve-manage-ok-p err))
(message "Sieve upload failed: %s" (nth 2 err))
(message "Sieve upload done. Use %s to manage scripts."
(substitute-command-keys "\\[sieve-manage]"))
(set-buffer-modified-p nil))))))
(substitute-command-keys "\\[sieve-manage]"))))
(set-buffer-modified-p nil))))
;;;###autoload
(defun sieve-upload-and-bury (&optional name)