From 39ee96a457e051d58a87c2a9cff31aa3ae8b6eb2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 24 Mar 1999 01:59:42 +0000 Subject: [PATCH] * 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. --- lisp/gnus-i18n.el | 4 ++++ lisp/gnus.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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" -- 1.7.10.4