X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=3c8db4a8925798a778d55befc127797eea937091;hp=28792573cfe2aac6c177eea9b5cae7b082694d8a;hb=8c6839a51a399ccb45fd2c9d7387bf324eb38a67;hpb=5d16e9d381936c9a26fc431e88ecefd90a47cc8e

diff --git a/elpher.el b/elpher.el
index 2879257..3c8db4a 100644
--- a/elpher.el
+++ b/elpher.el
@@ -1151,11 +1151,8 @@ by HEADER-LINE."
 This function uses Emacs' auto-fill to wrap text sensibly to a maximum
 width defined by elpher-gemini-max-fill-width."
   (insert (elpher-process-text-for-display text-line))
-  (let* ((prefix-end-idx (string-match "[^ \t*]" text-line))
-         (fill-prefix (if prefix-end-idx
-                          (let ((raw-prefix (substring text-line 0 prefix-end-idx)))
-                            (replace-regexp-in-string "\*" " " raw-prefix))
-                        nil)))
+  (let* ((prefix-end-idx (string-match "^[ \t]*\\(\*+[ \t]\\)?" text-line))
+         (fill-prefix (replace-regexp-in-string "\*" " " (match-string 0 text-line))))
     (newline)))
 
 (defun elpher-render-gemini-map (data _parameters)
@@ -1791,6 +1788,7 @@ functions which initialize the gopher client, namely
       (switch-to-buffer "*elpher*")
     (switch-to-buffer "*elpher*")
     (setq elpher-current-page nil)
+    (setq elpher-history nil)
     (let ((start-page (elpher-make-page "Elpher Start Page"
                                         (elpher-make-special-address 'start))))
       (elpher-visit-page start-page)))