Synch to No Gnus 200401081739.

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

diff --git a/lisp/nnkiboze.el b/lisp/nnkiboze.el
index 07aa565..d522c55 100644 (file)
--- a/lisp/nnkiboze.el
+++ b/lisp/nnkiboze.el
@@ -32,7 +32,6 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
-(eval-when-compile (require 'gnus-clfns))
 
 (require 'nntp)
 (require 'nnheader)
@@ -150,8 +149,7 @@
   ;; Remove NOV lines of articles that are marked as read.
   (when (and (file-exists-p (nnkiboze-nov-file-name))
             nnkiboze-remove-read-articles)
-    (let ((coding-system-for-write nnkiboze-file-coding-system)
-         (output-coding-system nnkiboze-file-coding-system))
+    (let ((coding-system-for-write nnkiboze-file-coding-system))
       (with-temp-file (nnkiboze-nov-file-name)
        (let ((cur (current-buffer))
              (nnheader-file-coding-system nnkiboze-file-coding-system))
@@ -255,8 +253,7 @@ Finds out what articles are to be part of the nnkiboze groups."
     (mm-with-unibyte
      (when (file-exists-p newsrc-file)
        (load newsrc-file))
-     (let ((coding-system-for-write nnkiboze-file-coding-system)
-          (output-coding-system nnkiboze-file-coding-system))
+     (let ((coding-system-for-write nnkiboze-file-coding-system))
        (gnus-make-directory (file-name-directory nov-file))
        (with-temp-file nov-file
         (when (file-exists-p nov-file)