(require 'thingatpt)
(defun thing-at-point--bounds-of-well-formed-url--strip-last-apostrophe (&rest them)
  (let ((orig (apply them)))
    (if (memq (char-before (cdr orig)) '(?'))
        (cons (car orig) (1- (cdr orig)))
      orig)))
(advice-add 'thing-at-point--bounds-of-well-formed-url :around
            'thing-at-point--bounds-of-well-formed-url--strip-last-apostrophe)
;;; 'http://rubikitch.com/'
;;; The URL is http://rubikitch.com/.
(provide 'mylisp-thingatpt-fix)