X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-uu.el;h=c1960f6057f7427933a676601eb37227bd80a955;hb=900ad3f5d3501d2f7ba0bfb6307dc63b876a0bd5;hp=6796d071d33a4365d3014913e1c1a106151c7627;hpb=7385c879ed551dd21ccc18de2d2c45746a920b1a;p=gnus

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 6796d071d..c1960f605 100644
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -823,8 +823,9 @@ When called interactively, prompt for REGEXP."
    (gnus-uu-save-separate-articles
     (save-excursion
       (set-buffer buffer)
-      (gnus-write-buffer
-       (concat gnus-uu-saved-article-name gnus-current-article))
+      (let ((coding-system-for-write mm-text-coding-system))
+	(gnus-write-buffer
+	 (concat gnus-uu-saved-article-name gnus-current-article)))
       (cond ((eq in-state 'first) (list gnus-uu-saved-article-name 'begin))
 	    ((eq in-state 'first-and-last) (list gnus-uu-saved-article-name
 						 'begin 'end))
@@ -951,7 +952,8 @@ When called interactively, prompt for REGEXP."
 		(with-current-buffer gnus-uu-digest-buffer
 		  (erase-buffer)
 		  (insert-buffer "*gnus-uu-pre*"))
-	      (gnus-write-buffer gnus-uu-saved-article-name)))
+	      (let ((coding-system-for-write mm-text-coding-system))
+		(gnus-write-buffer gnus-uu-saved-article-name))))
 	  (save-excursion
 	    (set-buffer "*gnus-uu-body*")
 	    (goto-char (point-max))
@@ -963,8 +965,10 @@ When called interactively, prompt for REGEXP."
 		(with-current-buffer gnus-uu-digest-buffer
 		  (goto-char (point-max))
 		  (insert-buffer "*gnus-uu-body*"))
-	      (write-region
-	       (point-min) (point-max) gnus-uu-saved-article-name t))))
+	      (let ((coding-system-for-write mm-text-coding-system) 
+		    (file-name-coding-system nnmail-pathname-coding-system))
+		(write-region
+		 (point-min) (point-max) gnus-uu-saved-article-name t)))))
 	(gnus-kill-buffer "*gnus-uu-pre*")
 	(gnus-kill-buffer "*gnus-uu-body*")
 	(push 'end state))