Fixed bug 1002

Detailed changes:
> 	Fix bug 1002:
> 	* vars.el.in (kom-pick-text-no-strategy-alist): Set correct
> 	default for kom-view-previous-commented-text.
> 	(kom-old-farts-text-prompt-strategy): Ditto.
>

src/ChangeLog

 2003-04-05  David Byers  <david.byers@swipnet.se>
 
+	Fix bug 1002:
+	* vars.el.in (kom-pick-text-no-strategy-alist): Set correct
+	default for kom-view-previous-commented-text.
+	(kom-old-farts-text-prompt-strategy): Ditto.
+
 	Fix bug 1006:
 	* commands2.el (kom-is-person-member-of-conference): Show number
 	of unread (only when deferred printing is on).

src/vars.el.in

@@ -193,6 +193,10 @@ the priority among links that match the same text is undefined."
 (defconst kom-old-farts-text-prompt-strategy
   '((kom-comment-previous . ((t   . lyskom-get-previous-text)
 			     (nil . lyskom-get-previous-text)))
+    (kom-view-previous-commented-text . ((t   . lyskom-get-previous-text)
+                                         (nil . lyskom-get-previous-text)))
+    (kom-private-answer-previous . ((t   . lyskom-get-previous-text)
+                                    (nil . lyskom-get-previous-text)))
     (t . ((t   . lyskom-get-last-read-text)
 	  (nil . lyskom-get-last-read-text)
 	  (0   . lyskom-get-text-at-point)
@@ -215,6 +219,8 @@ the priority among links that match the same text is undefined."
 (def-kom-var kom-pick-text-no-strategy-alist
   '((kom-comment-previous . ((t   . lyskom-get-previous-text)
                              (nil . lyskom-get-previous-text)))
+    (kom-view-previous-commented-text . ((t   . lyskom-get-previous-text)
+                                         (nil . lyskom-get-previous-text)))
     (kom-private-answer-previous . ((t   . lyskom-get-previous-text)
                                     (nil . lyskom-get-previous-text)))
     (t . ((t   . lyskom-get-text-at-point) ; default for prompts