Commit 3e139891 authored by Linus Tolke's avatar Linus Tolke
Browse files

Fixat ställen är iso->swascii inte fungerade.

parent 8f7b4c88
No preview for this file type
......@@ -555,7 +555,7 @@ user so instead."
(defun kom-create-conf (conf-name)
"Create a conference."
(interactive (list (read-string (lyskom-get-string 'name-of-conf))))
(interactive (list (lyskom-read-string (lyskom-get-string 'name-of-conf))))
(let* ((open (j-or-n-p (lyskom-get-string 'anyone-member)))
(secret (if (not open)
(j-or-n-p (lyskom-get-string 'secret-conf))))
......@@ -1160,7 +1160,8 @@ PRIORITY is the smallest priority the conference can be read with."
(defun kom-list-persons (match)
"List all persons whose name matches MATCH (a string)."
(interactive (list (read-string (lyskom-get-string 'search-for-pers))))
(interactive (list (lyskom-read-string
(lyskom-get-string 'search-for-pers))))
(lyskom-start-of-command 'kom-list-persons)
(initiate-lookup-name 'main 'lyskom-list-pers-handler match))
......@@ -1192,7 +1193,8 @@ PRIORITY is the smallest priority the conference can be read with."
(defun kom-list-conferences (match)
"List all conferences whose name matches MATCH (a string).
Those that you are not a member in will be marked with an asterisk."
(interactive (list (read-string (lyskom-get-string 'search-for-conf))))
(interactive (list (lyskom-read-string
(lyskom-get-string 'search-for-conf))))
(lyskom-start-of-command 'kom-list-conferences)
(initiate-lookup-name 'main 'lyskom-list-conferences match))
......@@ -1245,6 +1247,7 @@ If you are not member in the conference it will be flagged with an asterisk."
(lyskom-end-of-command))
(progn
(lyskom-insert (conf-stat->name conf-stat))
(lyskom-scroll)
(lyskom-tell-internat 'kom-tell-change-name)
(setq name (read-from-minibuffer (lyskom-get-string 'new-name)))
(initiate-change-name 'main 'lyskom-change-name-2
......
......@@ -127,7 +127,8 @@ footn-to -> Fotnot till text %d."
(setq misc-list (cdr misc-list))))
(lyskom-run 'edit 'princ
(lyskom-format 'text-mass
subject lyskom-header-separator body)
subject lyskom-header-separator body
lyskom-header-subject)
where-put-misc)
(lyskom-run 'edit 'lyskom-edit-goto-char where-put-misc)
(set-buffer edit-buffer)))
......@@ -265,6 +266,7 @@ Entry to this mode runs lyskom-edit-mode-hook."
(interactive)
(lyskom-clear-vars)
(setq mode-line-buffer-identification '("LysKOM (server: %b)"))
(text-mode)
(run-hooks 'lyskom-edit-mode-mode-hook)
(setq lyskom-edit-mode-mode-map (and (current-local-map)
(copy-keymap (current-local-map))))
......@@ -303,8 +305,8 @@ Entry to this mode runs lyskom-edit-mode-hook."
subject (lyskom-edit-extract-subject)))
(let ((minibuffer-local-map (overlay-map lyskom-edit-mode-mode-map
minibuffer-local-map)))
(setq subject (read-string (lyskom-get-string 'subject)
subject)))
(setq subject (lyskom-read-string (lyskom-get-string 'subject)
subject)))
(setq message (lyskom-edit-extract-text))
(setq mode-name "LysKOM sending")
(save-excursion
......@@ -467,7 +469,8 @@ to the text in BUFFER."
(goto-char (point-min))
(let ((result (cons 'MISC-LIST nil)))
(while (and (< (point) (point-max))
(not (equal "Ä" (buffer-substring (point) (1+ (point))))))
(not (equal (elt lyskom-header-subject 0)
(buffer-substring (point) (1+ (point))))))
(let ((char (string-to-char
(upcase (buffer-substring (point) (1+ (point)))))))
(nconc
......
No preview for this file type
......@@ -45,7 +45,7 @@
(defun lyskom (&optional host username password)
"Start a LysKOM session.
Optional arguments: HOST, USERNAME and PASSWORD."
(interactive (list (read-string (lyskom-format 'server-q
(interactive (list (lyskom-read-string (lyskom-format 'server-q
(or (getenv "KOMSERVER")
lyskom-default-server)))
nil
......
......@@ -43,6 +43,10 @@
"*String to separate headers from text body.")
(defvar lyskom-header-subject "rende: "
"*String to prompt for subject in the edit buffer.")
(defconst lyskom-strings
'(
; From vars.el:
......@@ -398,7 +402,7 @@ Lyskom-sessionen
(press-C-c-C-c . "Tryck C-c C-c fr att skicka in texten.")
(recipient . "Mottagare:")
(carbon-copy . "Extra kopia:")
(text-mass . "rende: %#1s\n%#2s\n%#3s")
(text-mass . "%#4s%#1s\n%#2s\n%#3s")
(comment-to-by . "%#1s till text %#2d%#3s.\n")
(already-sent . "Du har redan skickat denna text en gng. Snd nd? ")
(subject . "rende: ")
......
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