2001-10-07 Per Abrahamsen <abraham@dina.kvl.dk>

	* gnus-util.el (gnus-decode-newsgroups): No space in newsgroup
	header.

	* gnus-art.el (article-decode-group-name): Also decode
	"Followup-To".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aab9982..18edb8e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2001-10-07  Per Abrahamsen  <abraham@dina.kvl.dk>
 
+       * gnus-util.el (gnus-decode-newsgroups): No space in newsgroup
+       header. 
+
+       * gnus-art.el (article-decode-group-name): Also decode
+       "Followup-To". 
+
        * rfc2047.el (rfc2047-encode-message-header): Encode without
        asking for null methods.
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8b89e95..b353831 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1762,14 +1762,21 @@ If PROMPT (the prefix), prompt for a coding system to use."
        (method (gnus-find-method-for-group gnus-newsgroup-name)))
     (when (and (or gnus-group-name-charset-method-alist
                   gnus-group-name-charset-group-alist)
-              (gnus-buffer-live-p gnus-original-article-buffer)
-              (mail-fetch-field "Newsgroups"))
-      (nnheader-replace-header "Newsgroups"
-                              (gnus-decode-newsgroups
-                               (with-current-buffer
-                                   gnus-original-article-buffer
-                                 (mail-fetch-field "Newsgroups"))
-                               gnus-newsgroup-name method)))))
+              (gnus-buffer-live-p gnus-original-article-buffer))
+      (when (mail-fetch-field "Newsgroups")
+       (nnheader-replace-header "Newsgroups"
+                                (gnus-decode-newsgroups
+                                 (with-current-buffer
+                                     gnus-original-article-buffer
+                                   (mail-fetch-field "Newsgroups"))
+                                 gnus-newsgroup-name method)))
+      (when (mail-fetch-field "Followup-To")
+       (nnheader-replace-header "Followup-To"
+                                (gnus-decode-newsgroups
+                                 (with-current-buffer
+                                     gnus-original-article-buffer
+                                   (mail-fetch-field "Followup-To"))
+                                 gnus-newsgroup-name method))))))
 
 (defun article-de-quoted-unreadable (&optional force read-charset)
   "Translate a quoted-printable-encoded article.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index a3cb6c7..4a76d9a 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -192,8 +192,8 @@
     (mapconcat (lambda (group)
                 (gnus-group-name-decode group (gnus-group-name-charset
                                                method group)))
-              (message-tokenize-header newsgroups ", ")
-              ", ")))
+              (message-tokenize-header newsgroups)
+              ",")))
 
 (defun gnus-remove-text-with-property (prop)
   "Delete all text in the current buffer with text property PROP."