diff options
author | Alexander Griffith <griffitaj@gmail.com> | 2018-03-02 12:47:21 -0500 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-03-02 12:47:21 -0500 |
commit | 3e9bdbf2eeecafd7bb0673f2709f816a740c7d61 (patch) | |
tree | 26baf81b9e7b505de9e2c5ae0e3da5348b31bdc6 /lisp | |
parent | 114c611f88e1a0188cb6541e9a185dbdc03ebf3a (diff) | |
parent | 62b9098a207c9b84e84a56c84ac173b7490c4765 (diff) |
Merge pull request #161 from hdurer/dont-spam-user-with-image-fetch-messages
Stop url.el from spamming the user with "Connecting host: ..." messages in the minibuffer
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mastodon-media.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el index f010fee..fa5b8c3 100644 --- a/lisp/mastodon-media.el +++ b/lisp/mastodon-media.el @@ -32,6 +32,8 @@ ;; required by the server and client. ;;; Code: +(defvar url-show-status) + (defgroup mastodon-media nil "Inline Mastadon media." :prefix "mastodon-media-" @@ -172,7 +174,9 @@ MEDIA-TYPE is a symbol and either 'avatar or 'media-link." ((eq media-type 'media-link) `(:max-height ,mastodon-media--preview-max-height)))))) (let ((buffer (current-buffer)) - (marker (copy-marker start))) + (marker (copy-marker start)) + ;; Keep url.el from spamming us with messages about connecting to hosts: + (url-show-status nil)) (condition-case nil ;; catch any errors in url-retrieve so as to not abort ;; whatever called us |