From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Mon, 2 Jun 2003 18:43:19 +0000 (+0000)
Subject: (gnus-registry-fetch-group): always return the
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=6cc12cc95e1245f7b2ba09c171c2215a5d1982c3;p=gnus

(gnus-registry-fetch-group): always return the
short name of the group
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f3d47b6f4..bb66febe2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-02  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* gnus-registry.el (gnus-registry-fetch-group): always return the
+	short name of the group
+
 2003-06-02  Jesper Harder  <harder@ifa.au.dk>
 
 	* gnus-cus.el (defvar): Silence byte-compiler warnings.
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 4180aa173..54756a1b1 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -354,7 +354,7 @@ Returns the first place where the trail finds a group name."
     (let ((trail (gethash id gnus-registry-hashtb)))
       (dolist (crumb trail)
 	(when (stringp crumb)
-	  (return crumb))))))
+	  (return (gnus-group-short-name crumb)))))))
 
 (defun gnus-registry-group-count (id)
   "Get the number of groups of a message, based on the message ID."