- exposed to the UI 'refresh-chats';

- fixed type in 'follow-request-window' slot;

- fixed docstring.

etc/init.lisp

@@ -393,6 +393,8 @@
 
 (define-key "r"         #'refresh-chat-messages                         *chats-list-keymap*)
 
+(define-key "R"         #'refresh-chats                                 *chats-list-keymap*)
+
 (define-key "q"         #'close-chats-list-window                       *chats-list-keymap*)
 
 (define-key "C-J"       #'show-chat-to-screen                           *chats-list-keymap*)

src/follow-requests.lisp

@@ -19,9 +19,8 @@
 (defclass follow-requests-window (focus-marked-window simple-line-navigation-window)
   ((requests
     :initarg  :requests
-    :initform nil
+    :initform ()
     :accessor requests
-    :type     (or null tooter:account)
     :documentation "All the accounts that request to follow you")
    (header-message-lines
     :initarg  :header-message-lines

src/ui-goodies.lisp

@@ -1561,7 +1561,7 @@ This command will remove those limits so that we can just jump to the last messa
 ;;;; chats
 
 (defun refresh-chats ()
-  "Refresh the chats, but not the chat's messages"
+  "Refresh the chats lists, but not the chat's messages"
   (program-events:push-event (make-instance 'program-events:get-chats-event)))
 
 (defun refresh-chat-messages ()