(gnus-registry-fetch-group): always return the

short name of the group

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f3d47b6..bb66feb 100644 (file)
--- 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 4180aa1..54756a1 100644 (file)
--- 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."