Wrote kom-private-answer-previous.

src/ChangeLog

+Sat Feb 29 00:37:24 1992  Per Cederqvist  (ceder@lysator)
+
+	* swedish-strings.el (lyskom-mode-map): Bound
+	  kom-private-answer-previous to "P".
+
+	* commands1.el (kom-private-answer-previous): New command.
+
 Sat Jan 25 00:47:53 1992  Linus Tolke Y  (linus at ruben)
 
 	* swedish-strings.el (kom-page-next-command): Nu {ven bunden till

src/commands1.el

@@ -832,6 +832,7 @@ that text instead."
 
 (defun lyskom-private-answer-soon (text-stat text)
   "Write a private answer to TEXT-STAT, TEXT."
+  (lyskom-start-of-command 'kom-private-answer)
   (if (string-match "\n" (text->text-mass text))
       (lyskom-private-answer text-stat
 			     (substring (text->text-mass text)
@@ -841,7 +842,6 @@ that text instead."
 
 (defun lyskom-private-answer (text-stat subject)
   "Write a private answer. Args: TEXT-STAT SUBJECT."
-  (lyskom-start-of-command 'kom-private-answer)
   (if (null text-stat)
       (progn
 	(lyskom-insert-string 'confusion-what-to-answer-to)
@@ -856,6 +856,33 @@ that text instead."
 			subject ""))))
 
 
+;;; ================================================================
+;;;    Personligt svar p} f|reg}ende - kom-private-answer-previous
+
+;;; Author: ceder
+
+(defun kom-private-answer-previous ()
+  "Write a private answer to previously viewed text."
+  (interactive)
+  (lyskom-start-of-command 'kom-private-answer-previous)
+  (if lyskom-previous-text
+      (progn
+	(lyskom-collect 'main)
+	(initiate-get-text-stat 'main nil lyskom-previous-text)
+	(initiate-get-text 'main nil lyskom-previous-text)
+	(lyskom-use 'main 'lyskom-private-answer-soon-prev))
+    (lyskom-insert-string 'confusion-who-to-reply-to)
+    (lyskom-end-of-command)))
+
+(defun lyskom-private-answer-soon-prev (text-stat text)
+  "Write a private answer to TEXT-STAT, TEXT."
+  (if (string-match "\n" (text->text-mass text))
+      (lyskom-private-answer text-stat
+			     (substring (text->text-mass text)
+					0 (match-beginning 0)))
+    (lyskom-private-answer text-stat "")))
+
+
 ;;; ================================================================
 ;;;                         Sluta - quit
 

src/swedish-strings.el

@@ -715,6 +715,8 @@ Felmeddelande: %#1s**************************************************")
     (kom-comment-previous	"Kommentera fregende inlgg")
     (kom-write-footnote         "Fotnot till inlgg")
     (kom-private-answer         "Personligt svar")
+    (kom-private-answer-previous
+     "Personligt svar p fregende inlgg")
     (kom-set-unread		"Endast lsa senaste")
     (kom-write-text		"Skriva ett inlgg")
     (kom-send-letter		"Skicka brev")
@@ -810,6 +812,7 @@ Cf. paragraph-start.")
   (define-key lyskom-mode-map "K"  'kom-comment-previous)
   (define-key lyskom-mode-map "F"  'kom-write-footnote)
   (define-key lyskom-mode-map "p"  'kom-private-answer)
+  (define-key lyskom-mode-map "P"  'kom-private-answer-previous)
   (define-key lyskom-mode-map "h"  'kom-jump)
   (define-key lyskom-mode-map "lm" 'kom-list-conferences)
   (define-key lyskom-mode-map "ln" 'kom-list-news)