From: yamaoka <yamaoka>
Date: Wed, 24 Mar 1999 01:59:42 +0000 (+0000)
Subject: * gnus.el (gnus-revision-number): Increment to 04.
X-Git-Tag: t-gnus-6_10_062-04~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=39ee96a457e051d58a87c2a9cff31aa3ae8b6eb2;p=elisp%2Fgnus.git-

* gnus.el (gnus-revision-number): Increment to 04.
* gnus-i18n.el (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)
diff --git a/lisp/gnus.el b/lisp/gnus.el
index afdf299..b732d82 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -268,7 +268,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.062"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "03"
+(defconst gnus-revision-number "04"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.80"