* sample.lpath.el: Remove.

[elisp/gnus.git-] / lisp / nnmaildir.el

diff --git a/lisp/nnmaildir.el b/lisp/nnmaildir.el
index 65bb5bd..5391192 100644 (file)
--- a/lisp/nnmaildir.el
+++ b/lisp/nnmaildir.el
@@ -768,9 +768,7 @@ by nnmaildir-request-article.")
 
 (defun nnmaildir-request-scan (&optional scan-group server)
   (let ((coding-system-for-write nnheader-file-coding-system)
-       (output-coding-system nnheader-file-coding-system)
        (buffer-file-coding-system nil)
-       (file-coding-system nil)
        (file-coding-system-alist nil)
        (nnmaildir-get-new-mail t)
        (nnmaildir-group-alist nil)
@@ -1007,9 +1005,7 @@ by nnmaildir-request-article.")
 (defun nnmaildir-request-rename-group (gname new-name &optional server)
   (let ((group (nnmaildir--prepare server gname))
        (coding-system-for-write nnheader-file-coding-system)
-       (output-coding-system nnheader-file-coding-system)
        (buffer-file-coding-system nil)
-       (file-coding-system nil)
        (file-coding-system-alist nil)
        srv-dir x groups)
     (catch 'return
@@ -1221,9 +1217,7 @@ by nnmaildir-request-article.")
 (defun nnmaildir-request-replace-article (number gname buffer)
   (let ((group (nnmaildir--prepare nil gname))
        (coding-system-for-write nnheader-file-coding-system)
-       (output-coding-system nnheader-file-coding-system)
        (buffer-file-coding-system nil)
-       (file-coding-system nil)
        (file-coding-system-alist nil)
        dir file article suffix tmpfile deactivate-mark)
     (catch 'return
@@ -1299,9 +1293,7 @@ by nnmaildir-request-article.")
 (defun nnmaildir-request-accept-article (gname &optional server last)
   (let ((group (nnmaildir--prepare server gname))
        (coding-system-for-write nnheader-file-coding-system)
-       (output-coding-system nnheader-file-coding-system)
        (buffer-file-coding-system nil)
-       (file-coding-system nil)
        (file-coding-system-alist nil)
        srv-dir dir file time tmpfile curfile 24h article)
     (catch 'return
@@ -1489,9 +1481,7 @@ by nnmaildir-request-article.")
 (defun nnmaildir-request-set-mark (gname actions &optional server)
   (let ((group (nnmaildir--prepare server gname))
        (coding-system-for-write nnheader-file-coding-system)
-       (output-coding-system nnheader-file-coding-system)
        (buffer-file-coding-system nil)
-       (file-coding-system nil)
        (file-coding-system-alist nil)
        del-mark del-action add-action set-action marksdir markfile nlist
        ranges begin end article all-marks todo-marks did-marks mdir mfile