Show "read next attachment" prompt if next text is an attachment.

src/ChangeLog

 2001-02-03  Joel Rosdahl  <joel@rosdahl.net>
 
+	* lyskom-rest.el (lyskom-update-prompt): Show "read next
+	attachment" prompt if next text is an attachment.
+
+	* swedish-strings.el (lyskom-message): Added
+	read-next-attachment-prompt.
+
+	* english-strings.el (lyskom-message): Ditto.
+
 	* distribution-README: Various small updates.
 
 2001-01-28  Joel Rosdahl  <joel@rosdahl.net>

src/english-strings.el

@@ -1063,6 +1063,7 @@ You should set it to a better value.\n")
     (read-next-footnote-prompt . "Read next footnote")
     (read-next-comment-prompt . "Read next comment")
     (read-next-text-prompt . "Read next text")
+    (read-next-attachment-prompt . "Read next attachment")
     (go-to-conf-of-marked-prompt . "Resume reviewing marked")
     (go-to-conf-of-review-tree-prompt . "Resume reviewing comments")
     (go-to-conf-of-review-prompt . "Resume reviewing texts")

src/lyskom-rest.el

@@ -2433,6 +2433,14 @@ Set lyskom-current-prompt accordingly. Tell server what I am doing."
                    ;; read might be in another conference.
                    ((= lyskom-current-conf lyskom-pers-no)
                     'read-next-letter-prompt)
+                   ((lyskom-get-aux-item (text-stat->aux-items
+                                          (cache-get-text-stat
+                                           (car-safe
+                                            (text-list->texts
+                                             (read-info->text-list
+                                              read-info)))))
+                                         10100)
+                    'read-next-attachment-prompt)
                    ((eq 'FOOTN-IN (read-info->type read-info))
                     'read-next-footnote-prompt)
                    ((eq 'COMM-IN (read-info->type read-info))

src/swedish-strings.el

@@ -1061,6 +1061,7 @@ Du b
     (read-next-footnote-prompt . "Lsa nsta fotnot")
     (read-next-comment-prompt . "Lsa nsta kommentar")
     (read-next-text-prompt . "Lsa nsta text")
+    (read-next-attachment-prompt . "Lsa nsta bilaga")
     (go-to-conf-of-marked-prompt . "teruppta terse markerade")
     (go-to-conf-of-review-tree-prompt . "teruppta terse kommentarer")
     (go-to-conf-of-review-prompt . "teruppta terse")