X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=06da04e8e5b7afb1418a4f47cb936a9793c0818e;hp=c716d0c5f51ba2ce1dbe70798f1b8575d7615a51;hb=41161f02d39d300ea7873164262481a440dfbbb4;hpb=84089fd5c210ae6858ea45cfcbc2aae022d70750

diff --git a/elpher.el b/elpher.el
index c716d0c..06da04e 100644
--- a/elpher.el
+++ b/elpher.el
@@ -784,13 +784,6 @@ up to the calling function."
 (defvar elpher-gemini-response-header)
 (defvar elpher-gemini-in-header)
 
-(defun elpher-gemini-response-code ()
-  (elt (split-string elpher-gemini-response-header) 0))
-
-(defun elpher-gemini-response-meta ()
-  (string-trim (substring elpher-gemini-response-header
-                          (string-match "[ \t]+" elpher-gemini-response-header))))
-
 (defun elpher-get-gemini (address after)
   "Retrieve gemini ADDRESS, then execute AFTER.
 The response header is stored in the variable ‘elpher-gemini-response-header’.
@@ -831,12 +824,6 @@ up to the calling function."
       (process-send-string proc
                            (concat (elpher-address-to-url address) "\r\n")))))
 
-(defun elpher-process-mime-type-string (mime-type-string)
-  (let ((mime-type-split (split-string mime-type-string ";"))
-        (mime-type (string-trim (car mime-type-split)))
-        (parameter-strings (cdr mime-type-split)))
-    ()))
-        
 
 (defun elpher-render-gemini-response (mime-type-string)
   (let* ((mime-type-string* (if (string-empty-p mime-type-string)
@@ -928,8 +915,11 @@ up to the calling function."
 (defun elpher-process-gemini-response (proc event)
   (condition-case the-error
       (unless (string-prefix-p "deleted" event)
-        (let ((response-code (elpher-gemini-response-code))
-              (meta (elpher-gemini-response-meta)))
+        (let ((response-code (car (split-string elpher-gemini-response-header)))
+              (meta (string-trim
+                     (substring elpher-gemini-response-header
+                                (string-match "[ \t]+"
+                                              elpher-gemini-response-header)))))
           (pcase (elt response-code 0)
             (?1 ; Input required
              (elpher-with-clean-buffer
@@ -974,8 +964,6 @@ up to the calling function."
       (error
        (elpher-network-error address the-error)))))
 
-       
-
 
 ;; Other URL node opening