Remarks.

src/english-strings.el

@@ -1306,10 +1306,10 @@ On since %#8s%#9s")
     (content-type-regexp . "Content type: \\(\\S-+\\)")
     
     (agreeing . "Agreeing with text %#1n...")
-    (fast-replying . "Quick reply to text %#1n...")
+    (fast-replying . "Remark to text %#1n...")
     (author-fast-replies . "Remarks by the author:")
     (author-fast-reply-aux . "  \"%#1t\"")
-    (other-fast-replies . "Quick replies:")
+    (other-fast-replies . "Remarks:")
     (other-fast-reply-aux . "  \"%#1t\" /%#2P/")
     
     (faq-for-conf-aux . "FAQ for %#1M <%#1m>") 
@@ -1395,8 +1395,8 @@ Contents:     \"%#9s\"
     (conference-no . "conference <%#1m> %#1M")
     (text-no . "text %#1n")
 
-    (what-fast-reply-no . "Quick reply to which text? ")
-    (fast-reply-prompt . "Reply: ")
+    (what-fast-reply-no . "Remark to which text? ")
+    (fast-reply-prompt . "Remark: ")
     (agree-prompt . "Text: ")
     (default-agree-string . "I agree")
     (what-agree-no . "Agree with which text? ")
@@ -1474,7 +1474,7 @@ You must become an active member of the conference to enter it.\n")
     (confusion-what-to-answer-to . "I can't figure out which text you want to write a reply to.\n")
     (confusion-what-to-view . "I can't figure out which text you want to view.\n")
 
-    (confusion-what-to-reply-to . "I can't figure out which text you want to write a fast reply to.\n")
+    (confusion-what-to-reply-to . "I can't figure out which text you want to write a remark to.\n")
     (confusion-what-to-agree-to . "I can't figure out which text you want to agree with.\n")
     (confusion-what-to-request-confirmation . "I can't figure out which text you want read confirmations for.\n")
     (confusion-what-to-comment . "I can't figure out which text you want to comment.\n")
@@ -1679,7 +1679,7 @@ You must become an active member of the conference to enter it.\n")
     (kom-calculate            . "Calculate")
     (kom-list-marks           . "List marked texts")
     (kom-where-is             . "Where (is the) command")
-    (kom-fast-reply           . "Quick reply")
+    (kom-fast-reply           . "Remark (to text)")
     (kom-agree                . "Agree")
     (kom-add-faq              . "Add FAQ")
     (kom-del-faq              . "Remove FAQ")

src/swedish-strings.el

@@ -1304,10 +1304,10 @@ Uppkopplad sedan %#8s%#9s")
     (content-type-regexp . "Innehllstyp: \\(\\S-+\\)")
     
     (agreeing . "Hller med om inlgg %#1n...")
-    (fast-replying . "Kort replik till inlgg %#1n...")
+    (fast-replying . "Anmrkning till inlgg %#1n...")
     (author-fast-replies . "Anmrkningar av frfattaren:")
     (author-fast-reply-aux . "  \"%#1t\"")
-    (other-fast-replies . "Repliker:")
+    (other-fast-replies . "Anmrkningar:")
     (other-fast-reply-aux . "  \"%#1t\" /%#2P/")
     
     (faq-for-conf-aux . "Texten r FAQ fr %#1M <%#1m>") 
@@ -1392,8 +1392,8 @@ Inneh
     (conference-no . "mte <%#1m> %#1M")
     (text-no . "inlgg %#1n")
 
-    (what-fast-reply-no . "Kort replik till vilket inlgg? ")
-    (fast-reply-prompt . "Replik: ")
+    (what-fast-reply-no . "Anmrkning till vilket inlgg? ")
+    (fast-reply-prompt . "Anmrkning: ")
     (agree-prompt . "Text: ")
     (default-agree-string . "Hller med")
     (what-agree-no . "Hll med vilket inlgg? ")
@@ -1470,7 +1470,7 @@ Du m
     (confusion-what-to-answer-to . "Jag frstr inte vilken text du vill besvara.\n")
     (confusion-what-to-view . "Jag frstr inte vilken text du vill terse.\n")
 
-    (confusion-what-to-reply-to . "Jag frstr inte vilken text du vill skriva en kort replik till.\n")
+    (confusion-what-to-reply-to . "Jag frstr inte vilken text du vill skriva en anmrkning till.\n")
     (confusion-what-to-agree-to . "Jag frstr inte vilken text du vill hlla med om.\n")
     (confusion-what-to-request-confirmation . "Jag frstr inte vilken text du vill ha lsbekrftelser p.\n")
     (confusion-what-to-comment . "Jag frstr inte vilken text du vill kommentera.\n")
@@ -1676,7 +1676,7 @@ Du m
     (kom-calculate            . "Berkna")
     (kom-list-marks           . "Lista markeringar")
     (kom-where-is             . "Var finns kommandot")
-    (kom-fast-reply           . "Kort replik")
+    (kom-fast-reply           . "Anmrkning (till inlgg)")
     (kom-agree                . "Hlla med")
     (kom-add-faq              . "Addera FAQ")
     (kom-del-faq              . "Ta bort FAQ")
@@ -2073,6 +2073,7 @@ Du m
   (define-key lyskom-sv-mode-map (kbd "s {") 'kom-send-message)
   (define-key lyskom-sv-mode-map (kbd "s [") 'kom-send-message)
 
+  (define-key lyskom-sv-mode-map (kbd "r a") 'kom-fast-reply)
   (define-key lyskom-sv-mode-map (kbd "r r") 'kom-fast-reply)
   (define-key lyskom-sv-mode-map (kbd "r h") 'kom-agree)