From d42d12a0888ebd196ed1f29c7d662dc5db1bd278 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 3 May 2000 18:44:54 +0000 Subject: [PATCH] * gnus-msg.el (gnus-inews-do-gcc): Set mail-parse-charset. * gnus-int.el (gnus-request-accept-article): Ditto. (gnus-request-replace-article): Ditto. * mm-util.el (mm-mime-mule-charset-alist): Add a fake mule-charset. --- lisp/ChangeLog | 7 +++++++ lisp/gnus-int.el | 6 ++++-- lisp/gnus-msg.el | 3 ++- lisp/mm-util.el | 5 ++++- 4 files changed, 17 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 72a7b31a2..96d3acd85 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2000-05-03 14:23:38 Shenghuo ZHU + + * gnus-msg.el (gnus-inews-do-gcc): Set mail-parse-charset. + * gnus-int.el (gnus-request-accept-article): Ditto. + (gnus-request-replace-article): Ditto. + * mm-util.el (mm-mime-mule-charset-alist): Add a fake mule-charset. + 2000-05-03 14:11:23 Shenghuo ZHU * rfc2047.el (rfc2047-encode): Test the validity of coding-system. diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index 5f3f384a8..bdd0227b8 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -460,7 +460,8 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." (unless no-encode (save-restriction (message-narrow-to-head) - (mail-encode-encoded-word-buffer)) + (let ((mail-parse-charset message-default-charset)) + (mail-encode-encoded-word-buffer))) (message-encode-message-body)) (let ((func (car (or gnus-command-method (gnus-find-method-for-group group))))) @@ -473,7 +474,8 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." (unless no-encode (save-restriction (message-narrow-to-head) - (mail-encode-encoded-word-buffer)) + (let ((mail-parse-charset message-default-charset)) + (mail-encode-encoded-word-buffer))) (message-encode-message-body)) (let ((func (car (gnus-group-name-to-method group)))) (funcall (intern (format "%s-request-replace-article" func)) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 31e42c019..83684e8ac 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -1048,7 +1048,8 @@ this is a reply." (message-encode-message-body) (save-restriction (message-narrow-to-headers) - (mail-encode-encoded-word-buffer)) + (let ((mail-parse-charset message-default-charset)) + (mail-encode-encoded-word-buffer))) (goto-char (point-min)) (when (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") diff --git a/lisp/mm-util.el b/lisp/mm-util.el index e945a2f6e..03aca2227 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -33,7 +33,10 @@ (iso-8859-3 latin-iso8859-3) (iso-8859-4 latin-iso8859-4) (iso-8859-5 cyrillic-iso8859-5) - (koi8-r cyrillic-iso8859-5) + ;; Non-mule (X)Emacs uses the last mule-charset for 8bit characters. + ;; The fake mule-charset, gnus-koi8-r, tells Gnus that the default + ;; charset is koi8-r, not iso-8859-5. + (koi8-r cyrillic-iso8859-5 gnus-koi8-r) (iso-8859-6 arabic-iso8859-6) (iso-8859-7 greek-iso8859-7) (iso-8859-8 hebrew-iso8859-8) -- 2.25.1