From 4d7daccb67849f981443aa0c6214baab34c38dd3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 6 Apr 2003 14:22:51 +0000 Subject: [PATCH] Synch to Oort Gnus 200304061231. --- lisp/ChangeLog | 6 +++++- lisp/mm-bodies.el | 7 +++++-- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0393170..ab89fa2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2003-04-06 Jesper Harder + * mm-bodies.el (mm-decode-body): last-coding-system-used doesn't + exist in XEmacs. + (mm-decode-body): Add missing quote. + * mm-uu.el (mm-uu-pgp-signed-extract-1): Set buffer-file-coding-system. @@ -18,7 +22,7 @@ (pgg-pgp5-snarf-keys-region, pgg-pgp5-process-region): do. * pgg.el (pgg-make-temp-file, pgg-temporary-file-directory): do. - + 2003-04-05 Teodor Zlatanov * spam.el (spam-split): (save-excursion) around (widen) diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el index ebadc4d..5d4e132 100644 --- a/lisp/mm-bodies.el +++ b/lisp/mm-bodies.el @@ -276,8 +276,11 @@ use the supplied charset unconditionally." (mm-decode-coding-region (point-min) (point-max) coding-system) (mm-decode-coding-region-safely (point-min) (point-max) - coding-system)))) - (setq buffer-file-coding-system last-coding-system-used)))) + coding-system))) + (setq buffer-file-coding-system + (if (boundp 'last-coding-system-used) + last-coding-system-used + coding-system)))))) (defun mm-decode-coding-region-safely (start end coding-system) "Decode region between START and END with CODING-SYSTEM. -- 1.7.10.4