Gör substitute-command-keys på header-separator. Tog bort swasciistöd

src/edit-text.el

@@ -175,7 +175,8 @@ footn-to	-> Fotnot till text %d."
 					    where-put-misc data)))
 	(setq misc-list (cdr misc-list))))
     (princ (lyskom-format 'text-mass subject 
-			  (lyskom-get-string 'header-separator)
+			  (substitute-command-keys
+			   (lyskom-get-string 'header-separator))
 			  body 
 			  (lyskom-get-string 'header-subject))
 	   where-put-misc)
@@ -318,11 +319,13 @@ Entry to this mode runs lyskom-edit-mode-hook."
   (make-local-variable 'paragraph-separate)
   (setq paragraph-start (concat "^" 
 				(regexp-quote 
-				 (lyskom-get-string 'header-separator))
+				 (substitute-command-keys
+				  (lyskom-get-string 'header-separator)))
 				"$\\|" paragraph-start))
   (setq paragraph-separate (concat "^" 
 				   (regexp-quote 
-				    (lyskom-get-string 'header-separator))
+				    (substitute-command-keys
+				     (lyskom-get-string 'header-separator)))
 				   "$\\|" paragraph-separate))
   (run-hooks 'lyskom-edit-mode-hook))
 
@@ -747,7 +750,8 @@ easy to use the result in a call to `lyskom-create-misc-list'."
 					; the real subject
     (save-restriction
       ;; Narrow to headers
-      (search-forward (lyskom-get-string 'header-separator))
+      (search-forward (substitute-command-keys
+		       (lyskom-get-string 'header-separator)))
       (beginning-of-line)
       (narrow-to-region (point-min) (point))
       (goto-char (point-min))
@@ -784,11 +788,11 @@ Point must be located on the line where the subject is."
   (save-excursion
     (goto-char (point-min))
     (if (not (or (re-search-forward 
-		  (regexp-quote 
+		  (substitute-command-keys
 		   (lyskom-get-string 'header-separator))
 		  nil (point-max))
-		 (re-search-forward 
-		  (regexp-quote 
+		 (search-forward 
+		  (substitute-command-keys
 		   (lyskom-get-string 'header-separator)) 
 		  nil (point-max))))
 	(signal 'lyskom-internal-error
@@ -871,10 +875,7 @@ the with-output-to-temp-buffer command is issued to make them both apear."
        (progn
 	 (set-buffer editing-buffer)
 	 (with-output-to-temp-buffer "*Commented*"
-	   (princ
-	    (if kom-emacs-knows-iso-8859-1
-		(text->text-mass text)
-	      (iso-8859-1-to-swascii (text->text-mass text))))))))
+	   (princ (text->text-mass text))))))
 
 
 (defun lyskom-edit-insert-commented (text editing-buffer)