From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Tue, 20 Nov 2018 18:28:10 +0000 (-0800)
Subject: Check Gnus group names when reading from browse server
X-Git-Tag: emacs-27.0.90~4125
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d15d72b27de3db2f7e49398c7d3da9465b774398;p=emacs.git

Check Gnus group names when reading from browse server

* lisp/gnus/gnus-srvr.el (gnus-browse-read-group): If the group in
  question belongs to the native server, the name has to be shortened
  before we check it with `gnus-get-info'. It might work otherwise
  with nntp, but for backends like nnmaildir that have their own
  accounting system, creating an ephemeral group won't work.
---

diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index dfca5e9d2cb..34ebd00ef24 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -925,7 +925,11 @@ buffer.
   "Enter the group at the current line.
 If NUMBER, fetch this number of articles."
   (interactive "P")
-  (let ((group (gnus-browse-group-name)))
+  (let* ((full-name (gnus-browse-group-name))
+	 (group (if (gnus-native-method-p
+		     (gnus-find-method-for-group full-name))
+		    (gnus-group-short-name full-name)
+		  full-name)))
     (if (or (not (gnus-get-info group))
 	    (gnus-ephemeral-group-p group))
 	(unless (gnus-group-read-ephemeral-group