Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
2002-12-13 David Byers <david.byers@swipnet.se> 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 * lyskom-rest.el (lyskom-update-prompt): Change `insert-string' to
`insert' since the former is obsolete. `insert' since the former is obsolete.
......
...@@ -97,7 +97,8 @@ clients of the event. See lyskom-mode for details on lyskom." ...@@ -97,7 +97,8 @@ clients of the event. See lyskom-mode for details on lyskom."
(or password (getenv "KOMPASSWORD"))) (or password (getenv "KOMPASSWORD")))
(if (zerop (length host)) (if (zerop (length host))
(let* ((env-kom (getenv "KOMSERVER")) (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) (setq host (or (car canon)
env-kom env-kom
lyskom-default-server)))) lyskom-default-server))))
...@@ -829,10 +830,10 @@ alias name is entered, the corresponding address is returned." ...@@ -829,10 +830,10 @@ alias name is entered, the corresponding address is returned."
(let ((known-servers (let ((known-servers
(append (mapcar (function (lambda (pair) (append (mapcar (function (lambda (pair)
(cons (car pair) (car pair)))) (cons (car pair) (car pair))))
kom-server-aliases) (append kom-server-aliases kom-builtin-server-aliases))
(mapcar (function (lambda (pair) (mapcar (function (lambda (pair)
(cons (cdr pair) (car pair)))) (cons (cdr pair) (car pair))))
kom-server-aliases))) (append kom-server-aliases kom-builtin-server-aliases))))
(completion-ignore-case t) (completion-ignore-case t)
server) server)
(setq server (lyskom-completing-read prompt (setq server (lyskom-completing-read prompt
......
...@@ -1273,7 +1273,13 @@ Do not use this variable for proxy authentication.") ...@@ -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") '(("kom.lysator.liu.se" . "LysKOM")
("com.lysator.liu.se" . "LysCOM (LysKOM in English)") ("com.lysator.liu.se" . "LysCOM (LysKOM in English)")
("kom.ludd.luth.se" . "LuddKOM") ("kom.ludd.luth.se" . "LuddKOM")
...@@ -1286,7 +1292,8 @@ Do not use this variable for proxy authentication.") ...@@ -1286,7 +1292,8 @@ Do not use this variable for proxy authentication.")
("community.roxen.com" . "Roxen Community KOM") ("community.roxen.com" . "Roxen Community KOM")
("kom.ds.hj.se" . "DSKOM") ("kom.ds.hj.se" . "DSKOM")
("kom.sno.pp.se" . "SnoppKOM")) ("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 (def-kom-var kom-ansaphone-on nil
"t if automatic replies to personal messages are in effect." "t if automatic replies to personal messages are in effect."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment