Patch: fix gnus-decode-with-mail-decode-encoded-word-region

Patch: fix gnus-decode-with-mail-decode-encoded-word-region

[Shenghuo ZHU]

Fix default charset in gnus-decode-with-mail-decode-encoded-word-region.

Is it a new function?

ChangeLog:

Tue Dec  1 23:04:25 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>

	* gnus-art.el (gnus-decode-with-mail-decode-encoded-word-region):
	Use gnus-newsgroup-default-charset.
	(article-decode-encoded-words): Remove charset codes.
	* gnus-sum.el (gnus-newsgroup-default-charset): Use
	gnus-default-charset.

-- 
Shenghuo

:- patch -----------------------------------
--- gnus-art.el	1998/12/02 04:00:22	1.1
+++ gnus-art.el	1998/12/02 04:14:50
@@ -1092,10 +1092,7 @@
 
 (defun article-decode-encoded-words ()
   "Remove encoded-word encoding from headers."
-  (let ((inhibit-point-motion-hooks t)
-	buffer-read-only
-	(rfc2047-default-charset gnus-newsgroup-default-charset)
-	(mm-charset-iso-8859-1-forced gnus-newsgroup-iso-8859-1-forced))
+  (let ((inhibit-point-motion-hooks t) buffer-read-only)
     (save-restriction
       (message-narrow-to-head)
       (funcall gnus-decode-header-function (point-min) (point-max)))))
@@ -3878,7 +3875,8 @@
 (defvar gnus-decode-header-methods-cache nil)
 
 (defun gnus-decode-with-mail-decode-encoded-word-region (start end)
-  (let ((rfc2047-default-charset gnus-default-charset))
+  (let ((rfc2047-default-charset gnus-newsgroup-default-charset)
+	(mm-charset-iso-8859-1-forced gnus-newsgroup-iso-8859-1-forced))
     (mail-decode-encoded-word-region start end)))
 
 (defun gnus-multi-decode-header (start end)
--- gnus-sum.el	1998/12/02 04:19:43	1.1
+++ gnus-sum.el	1998/12/02 04:20:12
@@ -1006,7 +1006,7 @@
 (defvar gnus-last-article nil)
 (defvar gnus-newsgroup-history nil)
 
-(defvar gnus-newsgroup-default-charset nil)
+(defvar gnus-newsgroup-default-charset gnus-default-charset)
 (defvar gnus-newsgroup-iso-8859-1-forced nil)
 
 (defconst gnus-summary-local-variables