X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnmbox.el;h=fe4a30bc32d7332f928c359259b9f4ee3a392d08;hb=9b741e050b400987d68ff761c6cc3276c932839c;hp=33986cc2afc84d47404da92597defa7429a31636;hpb=0f3cc6b1d71301ad28d75dd2adb38ff2d51a838c;p=elisp%2Fgnus.git-

diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el
index 33986cc..fe4a30b 100644
--- a/lisp/nnmbox.el
+++ b/lisp/nnmbox.el
@@ -189,18 +189,11 @@
 		       (1+ (- (cdr active) (car active)))
 		       (car active) (cdr active) group)))))
 
-(static-if (boundp 'MULE)
-    (defun nnmbox-save-buffer ()
-      (let ((output-coding-system
-	     (or nnmbox-file-coding-system-for-write
-		 nnmbox-file-coding-system)))
-	(save-buffer)))
-  (defun nnmbox-save-buffer ()
-    (let ((coding-system-for-write
-	   (or nnmbox-file-coding-system-for-write
-	       nnmbox-file-coding-system)))
-      (save-buffer)))
-  )
+(defun nnmbox-save-buffer ()
+  (let* ((coding-system-for-write (or nnmbox-file-coding-system-for-write
+				      nnmbox-file-coding-system))
+	 (output-coding-system coding-system-for-write))
+    (save-buffer)))
 
 (defun nnmbox-save-active (group-alist active-file)
   (let ((nnmail-active-file-coding-system