More space allocated for the "Unread" column.

doc/NEWS-0.46.1

@@ -133,3 +133,6 @@
 ** En del strängar har rättats.
 
 ** configure-scriptet fungerar bättre för pratiga Emacsar.
+
+** Kolumnen "Osett" i medlemslistningarna skapade av "Status (för)
+   möte" och "Status (för) person" klarar större tal.

src/ChangeLog

+2000-12-09  Joel Rosdahl  <joel@rosdahl.net>
+
+	* commands2.el (kom-status-conf): More space allocated for the
+	"Unread" column.
+	(kom-status-person): Ditto.
+
+	* english-strings.el (lyskom-message): Ditto.
+
+	* swedish-strings.el (lyskom-message): Ditto.
+
 2000-12-06  Joel Rosdahl  <joel@rosdahl.net>
 
 	* edit-text.el (lyskom-edit-send-check-recipients): Ask if normal

src/commands2.el

@@ -308,8 +308,8 @@ otherwise: the conference is read with lyskom-completing-read."
                                             1)))
                              (lyskom-format-insert 'conf-membership-line
                                                    (if (zerop unread)
-                                                       "         "
-                                                     (format "%7d  " unread))
+                                                       "           "
+                                                     (format "%9d  " unread))
                                                    (member->pers-no member)
                                                    (lyskom-return-membership-type (member->membership-type member))
                                                    )
@@ -472,7 +472,7 @@ otherwise: the conference is read with lyskom-completing-read."
 				  1)))
 		   (lyskom-format-insert
 		    'pers-membership-line
-		    (if (zerop unread) "       " (format "%6d " unread))
+		    (if (zerop unread) "          " (format "%9d " unread))
 		    (if (= (conf-stat->conf-no conf-stat)
 			   (conf-stat->supervisor member-conf-stat))
 			(lyskom-get-string 'is-supervisor-mark)

src/english-strings.el

@@ -562,10 +562,10 @@ Read all about it at http://www.lysator.liu.se/history/")
     (show-membership-info-q . "Show number of unreads? ")
     (conf-has-these-members . "\n%#1M has the following members:\n")
     (conf-has-no-members . "\n%#1M has no members.\n")
-    (member-list-header . "Last entered       Unread  Name\n\n")
+    (member-list-header . "Last entered        Unread  Name\n\n")
     (secret-membership . "--- Secret line ---\n")
     (conf-membership-line . "%#1s%#2M %#3s\n")
-    (conf-membership-line-2 . "                          Added %#1s by %#2P\n")
+    (conf-membership-line-2 . "                            Added %#1s by %#2P\n")
     (pers-for-status . "Get status of which user? ")
     (no-such-pers . "The user doesn't exist.\n")
     (pers-status-record . "Status of user %#1P (%#2p)\n")
@@ -590,9 +590,9 @@ Read all about it at http://www.lysator.liu.se/history/")
     (show-membership-list-also-q . "List memberships? ")
     (not-allowed-see-confs . "You are not permitted to see which conferences %#1P is a member of.\n")
     (is-member-of . "\n%#1P is a member of the following conferences:\n")
-    (membership-list-header . "Last access       Unread Conference\n\n")
+    (membership-list-header . "Last access          Unread  Conference\n\n")
     (pers-membership-line . "%#1s%#2s%#3M %#4s\n")
-    (pers-membership-line-2 . "                          Added %#1s by %#2P\n")
+    (pers-membership-line-2 . "                             Added %#1s by %#2P\n")
     (is-supervisor-mark . "O ")
     (who-to-send-message-to . "Send message to whom? (%s) ")
     (send-empty-message-p . "The message is empty. Send it anyway? ")

src/swedish-strings.el

@@ -544,10 +544,10 @@ i svensk datorhistoria. L
     (show-membership-info-q . "Visa antalet olsta? ")
     (conf-has-these-members . "\n%#1M har fljande medlemmar:\n")
     (conf-has-no-members . "\n%#1M har inga medlemmar.\n")
-    (member-list-header . "Senast inne         Osett  Namn\n\n")
+    (member-list-header . "Senast inne          Osett  Namn\n\n")
     (secret-membership . "*** Hemlig rad ***\n")
     (conf-membership-line . "%#1s%#2M %#3s\n")
-    (conf-membership-line-2 . "                          Adderad %#1s av %#2P\n")
+    (conf-membership-line-2 . "                            Adderad %#1s av %#2P\n")
     (pers-for-status . "Vem vill du se statusen fr? ")
     (no-such-pers . "Det finns ingen sdan person.\n")
     (pers-status-record . "Status fr person %#1P (%#2p)\n")
@@ -572,9 +572,9 @@ i svensk datorhistoria. L
     (show-membership-list-also-q . "Vill du se vilka mten personen r medlem i ocks? ")
     (not-allowed-see-confs . "Du fr inte se vilka mten %#1P r medlem i.\n")
     (is-member-of . "\n%#1P r medlem i fljande mten:\n")
-    (membership-list-header . "Senast inne         Osett  Namn\n\n")
+    (membership-list-header . "Senast inne           Osett  Namn\n\n")
     (pers-membership-line . "%#1s%#2s%#3M %#4s\n")
-    (pers-membership-line-2 . "                          Adderad %#1s av %#2P\n")
+    (pers-membership-line-2 . "                             Adderad %#1s av %#2P\n")
     (is-supervisor-mark . "O ")
     (who-to-send-message-to . "Vem vill du skicka meddelandet till? (%s) ")
     (send-empty-message-p . "Meddelandet r tomt. Vill du nd skicka det? ")