diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2018-11-20 10:28:10 -0800 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2018-11-21 08:31:08 -0800 |
| commit | d15d72b27de3db2f7e49398c7d3da9465b774398 (patch) | |
| tree | 8b3670b6912fd7a328a63cb93d141961da465617 | |
| parent | e0799e6713d10f6650318c34dde8bee6c2a399ea (diff) | |
| download | emacs-d15d72b27de3db2f7e49398c7d3da9465b774398.tar.gz | |
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.el | 6 |
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. "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 |