diff options
| author | Arash Esbati | 2019-06-25 23:24:47 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-25 23:24:47 +0200 |
| commit | 52e17e53b7dbafb4877d98d99188c335db6a3b5b (patch) | |
| tree | 9c42d0862b3801760d80b94ec6f903b084a0712c | |
| parent | 394282142563fe1341eba1845672e2412bf8c7d9 (diff) | |
| download | emacs-52e17e53b7dbafb4877d98d99188c335db6a3b5b.tar.gz emacs-52e17e53b7dbafb4877d98d99188c335db6a3b5b.zip | |
Suppress warning about unix-sync in nnmaildir.el
* nnmaildir.el (nnmaildir-request-replace-article): Check if the
function `unix-sync' is bound before running it.
| -rw-r--r-- | lisp/gnus/nnmaildir.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/nnmaildir.el b/lisp/gnus/nnmaildir.el index ac125c905a5..3becee35112 100644 --- a/lisp/gnus/nnmaildir.el +++ b/lisp/gnus/nnmaildir.el | |||
| @@ -1396,7 +1396,8 @@ This variable is set by `nnmaildir-request-article'.") | |||
| 1396 | (with-current-buffer buffer | 1396 | (with-current-buffer buffer |
| 1397 | (write-region (point-min) (point-max) tmpfile nil 'no-message nil | 1397 | (write-region (point-min) (point-max) tmpfile nil 'no-message nil |
| 1398 | 'excl)) | 1398 | 'excl)) |
| 1399 | (unix-sync) ;; no fsync :( | 1399 | (when (fboundp 'unix-sync) |
| 1400 | (unix-sync)) ;; no fsync :( | ||
| 1400 | (rename-file tmpfile (concat (nnmaildir--cur dir) file suffix) 'replace) | 1401 | (rename-file tmpfile (concat (nnmaildir--cur dir) file suffix) 'replace) |
| 1401 | t))) | 1402 | t))) |
| 1402 | 1403 | ||