Anpassad till lyskom-get-string.

src/commands1.el

@@ -621,7 +621,7 @@ If optional arg TEXT-NO is present write a comment to that text instead."
 		  (signal 'lyskom-internal-error '(kom-write-comment))))))
   (lyskom-start-of-command (concat 
 			    (lyskom-get-string 'kom-write-comment
-					       lyskom-commands)
+					       'command)
 			    (if text-no 
 				(format " (%d)" text-no)
 			      "")))

src/edit-text.el

@@ -131,9 +131,8 @@ Does lyskom-end-of-command."
     (setq lyskom-edit-return-to-configuration config)
     (lyskom-edit-insert-miscs misc-list subject body)
     (goto-char (point-min))
-    (re-search-forward (concat "\\(" (regexp-quote lyskom-header-subject)
-			       "\\|" (regexp-quote lyskom-swascii-header-subject)
-			       "\\)")
+    (re-search-forward (regexp-quote (lyskom-get-string
+				      'header-subject))
 		       (point-max)
 		       'end)
     (if (not (looking-at "\\s-*$"))
@@ -176,13 +175,9 @@ footn-to	-> Fotnot till text %d."
 					    where-put-misc data)))
 	(setq misc-list (cdr misc-list))))
     (princ (lyskom-format 'text-mass subject 
-			  (if kom-emacs-knows-iso-8859-1
-			      lyskom-header-separator
-			    lyskom-swascii-header-separator)
+			  (lyskom-get-string 'header-separator)
 			  body 
-			  (if kom-emacs-knows-iso-8859-1
-			      lyskom-header-subject
-			    lyskom-swascii-header-subject))
+			  (lyskom-get-string 'header-subject))
 	   where-put-misc)
     (set-buffer edit-buffer)
     (goto-char where-put-misc)
@@ -323,17 +318,11 @@ Entry to this mode runs lyskom-edit-mode-hook."
   (make-local-variable 'paragraph-separate)
   (setq paragraph-start (concat "^" 
 				(regexp-quote 
-				 lyskom-header-separator)
-				"$\\|^"
-				(regexp-quote
-				 lyskom-swascii-header-separator)
+				 (lyskom-get-string 'header-separator))
 				"$\\|" paragraph-start))
   (setq paragraph-separate (concat "^" 
 				   (regexp-quote 
-				    lyskom-header-separator)
-				   "$\\|^"
-				   (regexp-quote
-				    lyskom-swascii-header-separator)
+				    (lyskom-get-string 'header-separator))
 				   "$\\|" paragraph-separate))
   (run-hooks 'lyskom-edit-mode-hook))
 
@@ -372,9 +361,7 @@ Entry to this mode runs lyskom-edit-mode-hook."
 	      (if (string= subject "")
 		  (let ((old (point)))
 		    (goto-char (point-min))
-		    (re-search-forward (if kom-emacs-knows-iso-8859-1
-					   lyskom-header-subject
-					 lyskom-swascii-header-subject)
+		    (re-search-forward (lyskom-get-string 'header-subject)
 				       nil t)
 		    (end-of-line)
 		    (if (/= (point) old)
@@ -760,9 +747,7 @@ easy to use the result in a call to `lyskom-create-misc-list'."
 					; the real subject
     (save-restriction
       ;; Narrow to headers
-      (search-forward (if kom-emacs-knows-iso-8859-1
-			  lyskom-header-separator
-			lyskom-swascii-header-separator))
+      (search-forward (lyskom-get-string 'header-separator))
       (beginning-of-line)
       (narrow-to-region (point-min) (point))
       (goto-char (point-min))
@@ -778,11 +763,7 @@ easy to use the result in a call to `lyskom-create-misc-list'."
 	    (nconc result (list 'comm-to n)))
 	   ((setq n (lyskom-looking-at-header 'footnote-prefix t))
 	    (nconc result (list 'footn-to n)))
-	   ((lyskom-looking-at-header (if kom-emacs-knows-iso-8859-1
-					  lyskom-header-subject
-					(regexp-quote
-					 lyskom-swascii-header-subject))
-				      nil)
+	   ((lyskom-looking-at-header 'header-subject nil)
 	    (setcar result (lyskom-edit-extract-subject)))
 	   (t
 	    (signal 'lyskom-unknown-header (list 'unknown-header (point))))))
@@ -804,15 +785,11 @@ Point must be located on the line where the subject is."
     (goto-char (point-min))
     (if (not (or (re-search-forward 
 		  (regexp-quote 
-		   (if kom-emacs-knows-iso-8859-1
-		       lyskom-header-separator
-		     lyskom-swascii-header-separator)) 
+		   (lyskom-get-string 'header-separator))
 		  nil (point-max))
 		 (re-search-forward 
 		  (regexp-quote 
-		   (if kom-emacs-knows-iso-8859-1
-		       lyskom-swascii-header-separator
-		     lyskom-header-separator)) 
+		   (lyskom-get-string 'header-separator)) 
 		  nil (point-max))))
 	(signal 'lyskom-internal-error
 		"Altered lyskom-header-separator line.")