- (concat " - " (elpher-address-to-url address) ""))))
- (setq header-line-format (list display-string url-string)))))
+ (concat " - " (elpher-address-to-url address) "")))
+ (header (replace-regexp-in-string "%" "%%" (concat display-string
+ url-string))))
+ (setq header-line-format header))))