diff options
| author | Eric Abrahamsen | 2021-01-02 11:05:38 -0800 |
|---|---|---|
| committer | Eric Abrahamsen | 2021-01-02 11:05:38 -0800 |
| commit | bfb4db5e4464e834224fd668a6e9c949e03393d6 (patch) | |
| tree | 2348875b0d426b712e4ffa68a0ac317e370e9b61 | |
| parent | 6b10ce867f2130532b82d32865b74ec270515809 (diff) | |
| download | emacs-bfb4db5e4464e834224fd668a6e9c949e03393d6.tar.gz emacs-bfb4db5e4464e834224fd668a6e9c949e03393d6.zip | |
Reposition call to set-buffer-modified-p in sieve-upload
* 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.
| -rw-r--r-- | lisp/net/sieve.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el index e46f4daae20..ca100267f67 100644 --- a/lisp/net/sieve.el +++ b/lisp/net/sieve.el | |||
| @@ -360,8 +360,8 @@ Used to bracket operations which move point in the sieve-buffer." | |||
| 360 | (if (not (sieve-manage-ok-p err)) | 360 | (if (not (sieve-manage-ok-p err)) |
| 361 | (message "Sieve upload failed: %s" (nth 2 err)) | 361 | (message "Sieve upload failed: %s" (nth 2 err)) |
| 362 | (message "Sieve upload done. Use %s to manage scripts." | 362 | (message "Sieve upload done. Use %s to manage scripts." |
| 363 | (substitute-command-keys "\\[sieve-manage]")) | 363 | (substitute-command-keys "\\[sieve-manage]")))) |
| 364 | (set-buffer-modified-p nil)))))) | 364 | (set-buffer-modified-p nil)))) |
| 365 | 365 | ||
| 366 | ;;;###autoload | 366 | ;;;###autoload |
| 367 | (defun sieve-upload-and-bury (&optional name) | 367 | (defun sieve-upload-and-bury (&optional name) |