        (format (concat "Definition of `%S' differs from what "
                        "is assumed by its patch")
                name)
-       nil)))))
+       nil))
+     (t
+      (unless nomsg
+        (message "Patch is valid"))
+      t))))
 
 ;;;###autoload
 (defun el-patch-validate-all ()

        (warning-count 0))
    (maphash (lambda (name patch-definition)
               (setq patch-count (1+ patch-count))
               (unless (el-patch-validate name)
                 (setq warning-count (1+ warning-count))))
             el-patch--patches)
    (cond

  (let* ((function-name (cadr patch-definition))
         (advice-name (el-patch--advice-name function-name)))
    (when (or (not el-patch-validation)
              (el-patch-validate patch-definition 'nomsg))
      (puthash function-name patch-definition el-patch--patches)
      (eval (el-patch--function-to-advice
             (el-patch--resolve-definition patch-definition t)))
