Commit dda69a38 authored by David Byers's avatar David Byers
Browse files

> Bug 915:

> 	* vars.el.in (kom-builtin-server-aliases): Renamed from
> 	kom-server-aliases.
> 	(kom-server-aliases): New variable.
>
> 	* startup.el (lyskom-read-server-name): Use both
> 	kom-server-aliases and kom-builtin-server-aliases.
> 	(lyskom): Same here.
>
> 	Fix obsoleteness:
parent 88f9cfd0
2002-12-13 David Byers <david.byers@swipnet.se>
Bug 915:
* vars.el.in (kom-builtin-server-aliases): Renamed from
kom-server-aliases.
(kom-server-aliases): New variable.
* startup.el (lyskom-read-server-name): Use both
kom-server-aliases and kom-builtin-server-aliases.
(lyskom): Same here.
Fix obsoleteness:
* lyskom-rest.el (lyskom-update-prompt): Change `insert-string' to
`insert' since the former is obsolete.
......
......@@ -97,7 +97,8 @@ clients of the event. See lyskom-mode for details on lyskom."
(or password (getenv "KOMPASSWORD")))
(if (zerop (length host))
(let* ((env-kom (getenv "KOMSERVER"))
(canon (lyskom-string-rassoc env-kom kom-server-aliases)))
(canon (or (lyskom-string-rassoc env-kom kom-server-aliases)
(lyskom-string-rassoc env-kom kom-builtin-server-aliases))))
(setq host (or (car canon)
env-kom
lyskom-default-server))))
......@@ -829,10 +830,10 @@ alias name is entered, the corresponding address is returned."
(let ((known-servers
(append (mapcar (function (lambda (pair)
(cons (car pair) (car pair))))
kom-server-aliases)
(append kom-server-aliases kom-builtin-server-aliases))
(mapcar (function (lambda (pair)
(cons (cdr pair) (car pair))))
kom-server-aliases)))
(append kom-server-aliases kom-builtin-server-aliases))))
(completion-ignore-case t)
server)
(setq server (lyskom-completing-read prompt
......
......@@ -1273,7 +1273,13 @@ Do not use this variable for proxy authentication.")
(def-kom-var kom-server-aliases
(def-kom-var kom-server-aliases nil
"*An alist mapping server names to shorter identification strings.
You can set this in init files before loading LysKOM.
See `kom-builtin-server-aliases' for more information.")
(def-kom-var kom-builtin-server-aliases
'(("kom.lysator.liu.se" . "LysKOM")
("com.lysator.liu.se" . "LysCOM (LysKOM in English)")
("kom.ludd.luth.se" . "LuddKOM")
......@@ -1286,7 +1292,8 @@ Do not use this variable for proxy authentication.")
("community.roxen.com" . "Roxen Community KOM")
("kom.ds.hj.se" . "DSKOM")
("kom.sno.pp.se" . "SnoppKOM"))
"*An alist mapping server names to shorter identification strings")
"*An alist mapping server names to shorter identification strings
If you want to add to this list, use `kom-server-aliases' instead.")
(def-kom-var kom-ansaphone-on nil
"t if automatic replies to personal messages are in effect."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment