- shown subject of the reblogged status, if exists;

- removed mention of dependency from tk-img.

README.org

@@ -37,7 +37,7 @@
 ** Programs
 
    + to build the package:
-     xgettext.
+     - xgettext.
 
    + to install the package, including running the script to install lisp libraries (~quick_quicklisp.sh~):
      - AWK;
@@ -59,35 +59,41 @@
 
 ** Lisp Libraries
 
-   - alexandria;
-   - cl-ppcre-unicode;
-   - tooter;
-   - croatoan;
-   - osicat;
-   - cl-spark;
    - access;
+   - alexandria;
+   - babel;
+   - bordeaux-threads;
+   - cl+ssl;
+   - cl-base64;
+   - cl-colors2;
+   - cl-html5-parser;
+   - cl-i18n;
+   - cl-ppcre-unicode;
+   - cl-spark;
+   - clunit2;
+   - croatoan;
+   - crypto-shortcuts;
+   - drakma;
+   - esrap;
+   - flexi-streams;
+   - ieee-floats;
+   - local-time;
+   - log4cl;
+   - marshal;
+   - nodgui;
+   - osicat;
+   - parse-number;
+   - percent-encoding;
+   - purgatory;
    - sqlite;
    - sxql;
    - sxql-composer;
-   - marshal;
-   - bordeaux-threads;
-   - log4cl;
-   - local-time;
-   - cl-colors2;
-   - cl-i18n;
-   - clunit2;
-   - esrap;
-   - ieee-floats;
-   - parse-number;
-   - cl-html5-parser;
+   - tooter;
+   - trivial-clipboard;
+   - uiop;
    - unix-opts;
-   - crypto-shortcuts;
-   - drakma;
    - usocket;
-   - cffi;
-   - babel;
-   - percent-encoding;
-   - trivial-clipboard.
+   - yason.
 
    All these libraries will be downloaded, compiled and installed by the script ~quick_quicklisp.sh~, see below.
 
@@ -101,13 +107,6 @@
      # apt-get install libssl-dev
      #+END_SRC
 
-** Foreign (TCL language) library
-   - tkimg
-
-     #+BEGIN_SRC sh
-     # apt-get install libtk-img
-     #+END_SRC
-
 * Install
 
 ** Using guix
@@ -258,7 +257,6 @@
     #+END_SRC
 
     If this file does not exists or is invalid tinmop could be used just as a gemini client.
-
     Please check the man page (tinmop(1)) for more information.
 
   - The ~quick_quicklisp.sh~ script failed  and refuse to start again, what can I do?

src/message-rendering-utils.lisp

@@ -235,10 +235,15 @@
 
 (defun message-original->text-header (message-row)
   (let* ((date-format       (swconf:date-fmt swconf:+key-message-window+))
+         (reblogged-id        (db:row-message-reblog-id message-row))
          (username          (db:row-message-username          message-row))
          (display-name      (db:row-message-user-display-name message-row))
          (creation-time     (db:row-message-creation-time     message-row))
-         (subject           (db:row-message-subject           message-row))
+         (reblogged-row     (when reblogged-id
+                              (db:find-status-id reblogged-id)))
+         (subject           (if reblogged-id
+                                (db:row-message-subject reblogged-row)
+                                (db:row-message-subject message-row)))
          (visibility        (visibility->mark (db:row-message-visibility message-row)))
          (lockedp           (db-utils:db-not-nil-p (db:row-lockedp message-row)))
          (locked-mark       (swconf:message-window-account-locking-status-mark lockedp))
@@ -253,9 +258,8 @@
          (visibility-label  (_ "Visibility: "))
          (language-label    (_ "Language: "))
          (subject-label     (_ "Subject:" ))
-         (boosted-id        (db:row-message-reblog-id message-row))
-         (boosted-username  (and boosted-id
-                                 (db:status-id->username boosted-id)))
+         (boosted-username  (when reblogged-id
+                              (db:status-id->username reblogged-id)))
          (date-label        (_ "Date: "))
          (padding-length    (max (length from-label)
                                  (length date-label)
@@ -292,7 +296,7 @@
                 (right-padding subject-label padding-length)
                 subject))
       (format stream "~%")
-      (when boosted-id
+      (when reblogged-id
         (format stream "~a~a~%"
                 (right-padding boosted-label padding-length)
                 boosted-username)))