(pcase (get-text-property
          (point) 'vc-pijul-annotate (current-buffer))
    (`(,_ . ,f-days) f-days)))

  (let ((prop (get-text-property
               (point) 'vc-pijul-annotate (current-buffer))))
    (re-search-forward
     (rx (= 2 digit) "." (= 2 digit) "." (= 4 digit) space) nil t)
    (pcase prop
      (`(,_ . ,f-days) f-days))))