(mm-uu-copy-to-buffer): buffer-file-coding-system

might be unbound in non-MULE XEmacsen.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cce4efa..f985678 100644 (file)
--- 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 186e219..accc32d 100644 (file)
--- 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)