[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d15d72b: Check Gnus group names when reading from b
From: |
Eric Abrahamsen |
Subject: |
[Emacs-diffs] master d15d72b: Check Gnus group names when reading from browse server |
Date: |
Wed, 21 Nov 2018 11:31:32 -0500 (EST) |
branch: master
commit d15d72b27de3db2f7e49398c7d3da9465b774398
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
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.
---
lisp/gnus/gnus-srvr.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index dfca5e9..34ebd00 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d15d72b: Check Gnus group names when reading from browse server,
Eric Abrahamsen <=