Added text-prefix-arg to kom-status-person, so David does not lie in the 0.47 release notes. :)

src/ChangeLog

+2002-04-28  Johan Sundstrm  <jhs@lysator.liu.se>
+
+	* commands2.el (kom-status-person): When a prefix argument is
+	given, review the presentation of the author of that text (as given
+	by lyskom-read-text-no-prefix-arg), otherwise behave as usual.
+
+	* swedish-strings.el, english-strings.el (lyskom-message): 
+	Added text-to-see-author-status-of.
+
 2002-04-28  David Byers  <david.byers@swipnet.se>
 
 	* header.el: When detecting a buggy read-kbd-macro, attempt to

src/commands2.el

@@ -351,11 +351,16 @@ otherwise: the conference is read with lyskom-completing-read."
 ;;; Heavily enhanced: Inge Wallin (lyskom-status-pers-3 and beyond)
 
 
-(def-kom-command kom-status-person (&optional pers-no)
-  "Prints status for a person."
-  (interactive)
+(def-kom-command kom-status-person (&optional text-or-pers-no)
+  "Prints status for a person. If a prefix argument is given, the status of the
+author of that text will be shown."
+  (interactive (and current-prefix-arg ; only peek at textno:s when prefixed!
+		    (list (lyskom-read-text-no-prefix-arg
+			   'text-to-see-author-status-of))))
   (let ((pers-no
-         (or pers-no
+         (or (when (interactive-p)
+	       (text-stat->author (blocking-do 'get-text-stat text-or-pers-no)))
+	     text-or-pers-no
              (lyskom-read-conf-no (lyskom-get-string 'pers-for-status)
                                   '(pers) nil "" t)))
         (kom-print-seconds-in-time-strings nil)

src/english-strings.el

@@ -619,6 +619,7 @@ Read all about it at http://www.lysator.liu.se/history/")
     (conf-membership-line . "%#1s%#2M %#3s\n")
     (conf-membership-line-2 . "                            Added %#1s by %#2P\n")
     (pers-for-status . "Get status of which user? ")
+    (text-to-see-author-status-of . "Get status of the author of which text? ")
     (no-such-pers . "The user doesn't exist.\n")
     (pers-status-record . "Status of user %#1P (%#1p)\n")
     (created-time .  "Created:%34#1s\n\n")

src/swedish-strings.el

@@ -601,6 +601,7 @@ i svensk datorhistoria. L
     (conf-membership-line . "%#1s%#2M %#3s\n")
     (conf-membership-line-2 . "                            Adderad %#1s av %#2P\n")
     (pers-for-status . "Vem vill du se statusen fr? ")
+    (text-to-see-author-status-of . "Vilken texts frfattare vill du statusen fr? ")
     (no-such-pers . "Det finns ingen sdan person.\n")
     (pers-status-record . "Status fr person %#1P (%#1p)\n")
     (created-time .  "Skapad:%34#1s\n\n")