Skip to content
Browse files

Separate the current core of `twittering-call-api-with-account'.

* twittering-mode.el: Separate the current core of
`twittering-call-api-with-account' as a new function
`twittering-call-api-with-account-in-api1.0'.
(twittering-call-api-with-account): call a new function
`twittering-call-api-with-account-in-api1.0' instead of processing
a command directly.
(twittering-call-api-with-account-in-api1.0): new function.
  • Loading branch information...
1 parent 9f76e79 commit 2e22358df8c8db51129c3d2ba50d7a75d12b5308 @cvmat cvmat committed
Showing with 18 additions and 0 deletions.
  1. +8 −0 ChangeLog
  2. +10 −0 twittering-mode.el
View
8 ChangeLog
@@ -101,6 +101,14 @@
string for a HTTP request from the cookie information stored in
the variable `twittering-cookie-alist'.
+ * twittering-mode.el: Separate the current core of
+ `twittering-call-api-with-account' as a new function
+ `twittering-call-api-with-account-in-api1.0'.
+ (twittering-call-api-with-account): call a new function
+ `twittering-call-api-with-account-in-api1.0' instead of processing
+ a command directly.
+ (twittering-call-api-with-account-in-api1.0): new function.
+
2013-02-11 Tadashi MATSUO <tad@mymail.twin.jp>
* twittering-mode.el: Fix the jojo-mode that caused an error when
View
10 twittering-mode.el
@@ -5178,6 +5178,16 @@ get-service-configuration -- Get the configuration of the server.
the buffer associated to the process. This is used as an argument
CLEAN-UP-SENTINEL of `twittering-send-http-request'."
(cond
+ ((memq twittering-service-method '(twitter statusnet))
+ (twittering-call-api-with-account-in-api1.0
+ account-info-alist command args-alist additional-info))
+ (t
+ (error "`twittering-service-method' has an invalid service method")
+ )))
+
+(defun twittering-call-api-with-account-in-api1.0 (account-info-alist command args-alist &optional additional-info)
+ "Call Twitter API1.0 and return the process object for the request."
+ (cond
((eq command 'retrieve-timeline)
;; Retrieve a timeline.
(let* ((spec (cdr (assq 'timeline-spec args-alist)))

0 comments on commit 2e22358

Please sign in to comment.
Something went wrong with that request. Please try again.