Fix yanking URL from gist-list buffer

Author: drvink

gist.el

@@ -538,8 +538,8 @@ for the gist."
 
 (defun gist-current-url ()
   "Helper function to fetch current gist url"
-  (let* ((id (or (and (boundp 'gist-list-mode)
-                      gist-list-mode
+  (let* ((id (or (and (fboundp 'gist-list-mode)
+                      (eq major-mode 'gist-list-mode)
                       (tabulated-list-get-id))
                  (and (boundp 'gist-mode)
                       gist-mode