honor current profile even when no list opened

defunkt · Mar 15, 2013 · 70860a4 · 70860a4
1 parent 8827518
commit 70860a4
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/gist.el b/gist.el
@@ -105,7 +105,11 @@ they're posted.")
                                   :description (or description "")
                                   :files files))
          (resp (gh-gist-new api gist)))
-    (gh-url-add-response-callback resp (or callback 'gist-created-callback))))
+    (gh-url-add-response-callback
+     resp
+     `(lambda (gist)
+        (let ((gh-profile-current-profile ,(oref api :profile)))
+          (funcall (or ,callback 'gist-created-callback) gist))))))
 
 ;;;###autoload
 (defun gist-region (begin end &optional private callback)