mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

Documentation and error-message edits re gnus-server-alist

Browse Source 
* lisp/gnus/gnus.el (gnus-server-alist): Expand docstring.
* lisp/gnus/gnus-srvr.el (gnus-server-kill-server,
  gnus-server-edit-server): Return error messages that tell the user
  what the actual problem is.
* doc/misc/gnus.texi (Server Commands): Note that not all servers are
  editable via the server buffer.
This commit is contained in:
Eric Abrahamsen 2017-10-16 11:30:05 -07:00
parent eed3a3d9e9
commit 94281c9a1c
3 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
doc/misc/gnus.texi
View File

@ -13216,6 +13216,11 @@ Also @pxref{Formatting Variables}.
@subsection Server Commands
@cindex server commands
The following keybinding are available in the server buffer. Be aware
that some of the commands will only work on servers that you've added
through this interface (with @kbd{a}), not with servers you've defined
in your init files.
@table @kbd
@item v

6
lisp/gnus/gnus-srvr.el
View File

@ -452,7 +452,8 @@ The following commands are available:
(if server (error "No such server: %s" server)
(error "No server on the current line")))
(unless (assoc server gnus-server-alist)
(error "Read-only server %s" server))
(error "Server %s must be deleted from your configuration files"
server))
(gnus-dribble-touch)
(let ((buffer-read-only nil))
(gnus-delete-line))
@ -642,7 +643,8 @@ The following commands are available:
(unless server
(error "No server on current line"))
(unless (assoc server gnus-server-alist)
(error "This server can't be edited"))
(error "Server %s must be edited in your configuration files"
server))
(let ((info (cdr (assoc server gnus-server-alist))))
(gnus-close-server info)
(gnus-edit-form

4
lisp/gnus/gnus.el
View File

@ -2592,7 +2592,9 @@ a string, be sure to use a valid format, see RFC 2616."
(defvar gnus-group-history nil)
(defvar gnus-server-alist nil
"List of available servers.")
"Servers created by Gnus, or via the server buffer.
Servers defined in the user's config files do not appear here.
This variable is persisted in the user's .newsrc.eld file.")
(defcustom gnus-cache-directory
(nnheader-concat gnus-directory "cache/")