From cc323435e56f295f8003e4af5a5b8dfa5a0fba64 Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sun, 21 Nov 2010 19:52:31 +0100
Subject: [PATCH] Add new command and keystroke: gnus-server-show-server.

---
 lisp/ChangeLog    |  2 ++
 lisp/gnus-srvr.el | 14 ++++++++++++++
 texi/ChangeLog    |  4 ++++
 texi/gnus.texi    |  5 +++++
 4 files changed, 25 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4917f7bd2..d8407fa0e 100644
--- 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 ae773657d..19fd5fe66 100644
--- 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 e70c9e59c..a5c93e629 100644
--- 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 e45698059..1eef2218c 100644
--- 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
-- 
2.11.4.GIT