aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorArash Esbati2019-06-25 23:24:47 +0200
committerLars Ingebrigtsen2019-06-25 23:24:47 +0200
commit52e17e53b7dbafb4877d98d99188c335db6a3b5b (patch)
tree9c42d0862b3801760d80b94ec6f903b084a0712c
parent394282142563fe1341eba1845672e2412bf8c7d9 (diff)
downloademacs-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.el3
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