From b67f34e34bdbd160c1ec5e1ac0d7b4e6ebbebe0f Mon Sep 17 00:00:00 2001 From: Kevin Greiner Date: Tue, 25 Nov 2003 02:26:12 +0000 Subject: [PATCH] * gnus-srvr.el (gnus-server-insert-server-line): The server names used in gnus-agent are different (for example, the native server uses the alias "native") from the names in gnus-srvr. Compensating by adding a second text property storing the name expected by gnus-agent. (gnus-server-named-server): New function. --- lisp/gnus-srvr.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el index 2299fd10e..6c579396f 100644 --- a/lisp/gnus-srvr.el +++ b/lisp/gnus-srvr.el @@ -290,7 +290,8 @@ The following commands are available: (prog1 (1+ (point)) ;; Insert the text. (eval gnus-server-line-format-spec)) - (list 'gnus-server (intern gnus-tmp-name))))) + (list 'gnus-server (intern gnus-tmp-name) + 'gnus-named-server (intern (gnus-method-to-server method)))))) (defun gnus-enter-server-buffer () "Set up the server buffer." @@ -344,6 +345,12 @@ The following commands are available: (let ((server (get-text-property (gnus-point-at-bol) 'gnus-server))) (and server (symbol-name server)))) +(defun gnus-server-named-server () + "Returns a server name that matches one of the names returned by +gnus-method-to-server." + (let ((server (get-text-property (gnus-point-at-bol) 'gnus-named-server))) + (and server (symbol-name server)))) + (defalias 'gnus-server-position-point 'gnus-goto-colon) (defconst gnus-server-edit-buffer "*Gnus edit server*") -- 2.25.1