+ (value (when (hash-table-p hash) (gethash property hash))))
+ (if
+ ;; We take the value only if there is any, and
+ ;; `tramp-cache-inhibit-cache' indicates that it is still
+ ;; valid. Otherwise, DEFAULT is set.
+ (and (consp value)
+ (or (null tramp-cache-inhibit-cache)
+ (and (consp tramp-cache-inhibit-cache)
+ (tramp-time-less-p
+ tramp-cache-inhibit-cache (car value)))))
+ (setq value (cdr value))
+ (setq value default))
+
+ (if (consp tramp-cache-inhibit-cache)
+ (tramp-message vec 1 "%s %s %s" file property value))