-the `elpher-certificate-map' variable.
-
-For this session, the certificate will remain active for all addresses
-having URLs begining with URL-PREFIX."
- (let ((entry (assoc url-prefix
- elpher-certificate-map
- #'string-prefix-p)))
+the `elpher-certificate-map' variable."
+ (let* ((current-url (elpher-address-to-url (elpher-page-address elpher-current-page)))
+ (entry (assoc current-url
+ elpher-certificate-map
+ #'string-prefix-p)))