X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=8113c533bf002018a46b2ea1fb8cf53ebb275c88;hp=ab75730f95466125590bbdc57d4502ddc27f2ce3;hb=46dac5a84b17c972b4479ccb0b288ae531c247a0;hpb=b4f69e8bbbde380f1799e3b5190ccde1312a36e7 diff --git a/elpher.el b/elpher.el index ab75730..8113c53 100644 --- a/elpher.el +++ b/elpher.el @@ -2,7 +2,7 @@ ;; Copyright (C) 2019 Tim Vaughan -;; Author: Tim Vaughan +;; Author: Tim Vaughan ;; Created: 11 April 2019 ;; Version: 2.7.4 ;; Keywords: comm gopher @@ -813,7 +813,9 @@ The response is rendered using the rendering function RENDERER." (if (not data) nil (let* ((address (elpher-page-address elpher-current-page)) - (selector (elpher-gopher-address-selector address))) + (selector (if (elpher-address-gopher-p address) + (elpher-gopher-address-selector address) + (elpher-address-filename address)))) (elpher-visit-previous-page) ; Do first in case of non-local exits. (let* ((filename-proposal (file-name-nondirectory selector)) (filename (read-file-name "Download complete. Save file as: "