Add new command and keystroke: gnus-server-show-server.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4917f7b..d8407fa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-11-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-srvr.el (gnus-server-show-server): New command and keystroke.
+
        * nnimap.el (nnimap-get-capabilities): Refactor out.
        (nnimap-open-connection): Re-request capabilities after STARTTLS.
 

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index ae77365..19fd5fe 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -115,6 +115,7 @@ If nil, a faster, but more primitive, buffer is used instead."
        ["Kill" gnus-server-kill-server t]
        ["Yank" gnus-server-yank-server t]
        ["Copy" gnus-server-copy-server t]
+       ["Show" gnus-server-show-server t]
        ["Edit" gnus-server-edit-server t]
        ["Regenerate" gnus-server-regenerate-server t]
        ["Compact" gnus-server-compact-server t]
@@ -152,6 +153,7 @@ If nil, a faster, but more primitive, buffer is used instead."
     "c" gnus-server-copy-server
     "a" gnus-server-add-server
     "e" gnus-server-edit-server
+    "S" gnus-server-show-server
     "s" gnus-server-scan-server
 
     "O" gnus-server-open-server
@@ -609,6 +611,18 @@ The following commands are available:
        (gnus-server-position-point))
      'edit-server)))
 
+(defun gnus-server-show-server (server)
+  "Show the definition of the server on the current line."
+  (interactive (list (gnus-server-server-name)))
+  (unless server
+    (error "No server on current line"))
+  (let ((info (gnus-server-to-method server)))
+    (gnus-edit-form
+     info "Showing the server."
+     `(lambda (form)
+       (gnus-server-position-point))
+     'edit-server)))
+
 (defun gnus-server-scan-server (server)
   "Request a scan from the current server."
   (interactive (list (gnus-server-server-name)))

diff --git a/texi/ChangeLog b/texi/ChangeLog
index e70c9e5..a5c93e6 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.texi (Server Commands): Document gnus-server-show-server.
+
 2010-11-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus.texi (Misc Article): Document gnus-inhibit-images.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index e456980..1eef221 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -13840,6 +13840,11 @@ Add a new server (@code{gnus-server-add-server}).
 @findex gnus-server-edit-server
 Edit a server (@code{gnus-server-edit-server}).
 
+@item S
+@kindex S (Server)
+@findex gnus-server-show-server
+Show the definition of a server (@code{gnus-server-show-server}).
+
 @item SPACE
 @kindex SPACE (Server)
 @findex gnus-server-read-server