From 4a50645c1fed10d403825bb289aa98006221de98 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 9 Apr 2003 11:11:20 +0000 Subject: [PATCH] Synch to Oort Gnus 200304091054. --- lisp/ChangeLog | 5 +++++ lisp/mm-uu.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * mm-uu.el (mm-uu-copy-to-buffer): buffer-file-coding-system + might be unbound in non-MULE XEmacsen. + 2003-04-08 Jesper Harder * 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) -- 1.7.10.4