From 94ab409829593c79d072d8e8e62bd2f1fe9e6464 Mon Sep 17 00:00:00 2001 From: Tadashi MATSUO Date: Sat, 22 May 2010 13:29:25 +0900 Subject: [PATCH] Confirm an available connection method before visiting a timeline. * twittering-mode.el: Confirm an available connection method before visiting a timeline. (twittering-visit-timeline): confirm connection method. --- ChangeLog | 4 ++++ twittering-mode.el | 19 ++++++++++--------- 2 files changed, 14 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0b4a07fa..1b3d396d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -29,6 +29,10 @@ (twittering-lookup-http-start-function): reimplemented. (twittering-lookup-connection-type): new function. + * twittering-mode.el: Confirm an available connection method + before visiting a timeline. + (twittering-visit-timeline): confirm connection method. + 2010-05-20 Tadashi MATSUO * twittering-mode.el: The configuration of a proxy is referred via diff --git a/twittering-mode.el b/twittering-mode.el index 3b1691a9..76e05e4b 100644 --- a/twittering-mode.el +++ b/twittering-mode.el @@ -4953,15 +4953,16 @@ managed by `twittering-mode'." (defun twittering-visit-timeline (&optional timeline-spec initial) (interactive) - (twittering-initialize-global-variables-if-necessary) - (twittering-prepare-account-info) - (let ((timeline-spec - (or timeline-spec - (twittering-read-timeline-spec-with-completion - "timeline: " initial t)))) - (when timeline-spec - (twittering-verify-credentials) - (switch-to-buffer (twittering-get-managed-buffer timeline-spec))))) + (when (twittering-lookup-http-start-function) + (twittering-initialize-global-variables-if-necessary) + (twittering-prepare-account-info) + (let ((timeline-spec + (or timeline-spec + (twittering-read-timeline-spec-with-completion + "timeline: " initial t)))) + (when timeline-spec + (twittering-verify-credentials) + (switch-to-buffer (twittering-get-managed-buffer timeline-spec)))))) (defun twittering-other-user-timeline () (interactive)