From: yamaoka <yamaoka>
Date: Wed, 24 Mar 1999 01:57:38 +0000 (+0000)
Subject: * (gnus-set-summary-default-charset): Strip method and foreign server name
X-Git-Tag: semi-gnus-6_10_11~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=73e4f39b6e09cbd3d5df191e73635bb727403a95;p=elisp%2Fgnus.git-

* (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
--- 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)