*** empty log message ***

[gnus] / lisp / gnus-dup.el

diff --git a/lisp/gnus-dup.el b/lisp/gnus-dup.el
index c2cc879..e001c19 100644 (file)
--- a/lisp/gnus-dup.el
+++ b/lisp/gnus-dup.el
@@ -84,8 +84,7 @@ seen in the same session.")
 (defun gnus-dup-save ()
   "Save the duplicate suppression list."
   (nnheader-temp-write gnus-duplicate-file
-    (prin1 `(setq gnus-duplicate-file ',gnus-duplicate-file)
-          (current-buffer))))
+    (gnus-prin1 `(setq gnus-duplicate-file ',gnus-duplicate-file))))
 
 ;;;
 ;;; Interface functions