From: yamaoka <yamaoka>
Date: Wed, 9 Apr 2003 11:11:20 +0000 (+0000)
Subject: Synch to Oort Gnus 200304091054.
X-Git-Tag: t-gnus-6_15_19-00-quimby~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4a50645c1fed10d403825bb289aa98006221de98;p=elisp%2Fgnus.git-

Synch to Oort Gnus 200304091054.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cce4efa..f985678 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-09  Jesper Harder  <harder@ifa.au.dk>
+
+	* mm-uu.el (mm-uu-copy-to-buffer): buffer-file-coding-system
+	might be unbound in non-MULE XEmacsen.
+
 2003-04-08  Jesper Harder  <harder@ifa.au.dk>
 
 	* mm-uu.el (mm-uu-diff-groups-regexp, mm-uu-type-alist)
diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index 10c8aa3..a3cad89 100644
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -187,7 +187,10 @@ To disable dissecting shar codes, for instance, add
 Return that buffer."
   (save-excursion
     (let ((obuf (current-buffer))
-	  (coding-system buffer-file-coding-system))
+	  (coding-system
+	   ;; Might not exist in non-MULE XEmacs
+	   (when (boundp 'buffer-file-coding-system)
+	     buffer-file-coding-system)))
       (set-buffer (generate-new-buffer " *mm-uu*"))
       (setq buffer-file-coding-system coding-system)
       (insert-buffer-substring obuf from to)