[Emacs-diffs] Changes to emacs/lisp/gnus/nnmaildir.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     06/10/15 02:49:46

Index: lisp/gnus/nnmaildir.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnmaildir.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- lisp/gnus/nnmaildir.el      4 Jul 2005 17:55:16 -0000       1.5
+++ lisp/gnus/nnmaildir.el      15 Oct 2006 02:49:45 -0000      1.6
@@ -428,7 +428,8 @@
        (prin1 (vector storage-version num msgid nov) (current-buffer))
        (setq file (concat novfile ":"))
        (nnmaildir--unlink file)
-       (write-region (point-min) (point-max) file nil 'no-message nil 'excl))
+       (gmm-write-region (point-min) (point-max) file nil 'no-message nil
+                         'excl))
       (rename-file file novfile 'replace)
       (setf (nnmaildir--art-msgid article) msgid)
       nov)))
@@ -1246,7 +1247,7 @@
        (throw 'return nil))
       (save-excursion
        (set-buffer buffer)
-       (write-region (point-min) (point-max) tmpfile nil 'no-message nil
+       (gmm-write-region (point-min) (point-max) tmpfile nil 'no-message nil
                      'excl))
       (unix-sync) ;; no fsync :(
       (rename-file tmpfile (concat (nnmaildir--cur dir) file suffix) 'replace)
@@ -1341,7 +1342,7 @@
       (condition-case nil
          (add-name-to-file nnmaildir--file tmpfile)
        (error
-        (write-region (point-min) (point-max) tmpfile nil 'no-message nil
+        (gmm-write-region (point-min) (point-max) tmpfile nil 'no-message nil
                       'excl)
         (unix-sync))) ;; no fsync :(
       (nnheader-cancel-timer 24h)