* (gnus-set-summary-default-charset): Strip method and foreign server name

from the newsgroup name.

diff --git a/lisp/gnus-i18n.el b/lisp/gnus-i18n.el
index 78eeb03..f516792 100644 (file)
--- a/lisp/gnus-i18n.el
+++ b/lisp/gnus-i18n.el
@@ -69,6 +69,10 @@ It is specified by variable `gnus-newsgroup-default-charset-alist'
                        (set-buffer gnus-summary-buffer)
                        gnus-newsgroup-name))
                     (alist gnus-newsgroup-default-charset-alist))
+                ;; Strip method and foreign server name.
+                (when (string-match ":" group)
+                  (setq group (substring group (match-end 0)))
+                  )
                 (while alist
                   (let ((pair (car alist)))
                     (if (string-match (car pair) group)