aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEric Abrahamsen2018-11-20 10:28:10 -0800
committerEric Abrahamsen2018-11-21 08:31:08 -0800
commitd15d72b27de3db2f7e49398c7d3da9465b774398 (patch)
tree8b3670b6912fd7a328a63cb93d141961da465617
parente0799e6713d10f6650318c34dde8bee6c2a399ea (diff)
downloademacs-d15d72b27de3db2f7e49398c7d3da9465b774398.tar.gz
emacs-d15d72b27de3db2f7e49398c7d3da9465b774398.zip
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.
-rw-r--r--lisp/gnus/gnus-srvr.el6
1 files changed, 5 insertions, 1 deletions
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.
925 "Enter the group at the current line. 925 "Enter the group at the current line.
926If NUMBER, fetch this number of articles." 926If NUMBER, fetch this number of articles."
927 (interactive "P") 927 (interactive "P")
928 (let ((group (gnus-browse-group-name))) 928 (let* ((full-name (gnus-browse-group-name))
929 (group (if (gnus-native-method-p
930 (gnus-find-method-for-group full-name))
931 (gnus-group-short-name full-name)
932 full-name)))
929 (if (or (not (gnus-get-info group)) 933 (if (or (not (gnus-get-info group))
930 (gnus-ephemeral-group-p group)) 934 (gnus-ephemeral-group-p group))
931 (unless (gnus-group-read-ephemeral-group 935 (unless (gnus-group-read-ephemeral-group