From 21888fb52971b4f6bdd8f01f54f6790a222bc7bf Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 31 Jan 2006 11:36:42 +0000 Subject: [PATCH] Synch to No Gnus 200601311136. --- lisp/ChangeLog | 8 ++++++++ lisp/mm-uu.el | 4 ++-- lisp/mm-view.el | 3 ++- 3 files changed, 12 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b2e0050..354a86f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2006-01-31 Katsumi Yamaoka + + * mm-uu.el (mm-uu-emacs-sources-extract): Say the part has been + decoded. + (mm-uu-diff-extract): Ditto. + + * mm-view.el (mm-display-inline-fontify): Get decoded part rightly. + 2006-01-31 Kevin Ryde * mailcap.el (mailcap-viewer-passes-test): Don't put "(nil t)" into diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el index d6e0f49..af41774 100644 --- a/lisp/mm-uu.el +++ b/lisp/mm-uu.el @@ -370,7 +370,7 @@ apply the face `mm-uu-extract'." (defun mm-uu-emacs-sources-extract () (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) - '("application/emacs-lisp") + '("application/emacs-lisp" (charset . gnus-decoded)) nil nil (list mm-dissect-disposition (cons 'filename file-name)))) @@ -386,7 +386,7 @@ apply the face `mm-uu-extract'." (defun mm-uu-diff-extract () (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) - '("text/x-patch"))) + '("text/x-patch" (charset . gnus-decoded)))) (defun mm-uu-diff-test () (and gnus-newsgroup-name diff --git a/lisp/mm-view.el b/lisp/mm-view.el index 319acf7..1d180bb 100644 --- a/lisp/mm-view.el +++ b/lisp/mm-view.el @@ -540,7 +540,8 @@ (buffer-disable-undo) (mm-enable-multibyte) (insert (cond ((eq charset 'gnus-decoded) - (mm-insert-part handle)) + (with-current-buffer (mm-handle-buffer handle) + (buffer-string))) (coding-system (mm-decode-coding-string text coding-system)) (charset -- 1.7.10.4