]> git.notmuchmail.org Git - notmuch/blobdiff - test/emacs-attachment-warnings.el
emacs: Use `cl-lib' instead of deprecated `cl'
[notmuch] / test / emacs-attachment-warnings.el
index a3067b1463070f3dfdefcd958659e1cb7c965749..a23692d722e51d15d7020df3610dbda169ad2fdb 100644 (file)
@@ -1,3 +1,4 @@
+(require 'cl-lib)
 (require 'notmuch-mua)
 
 (defun attachment-check-test (&optional fn)
@@ -12,7 +13,8 @@ Return `t' if the message would be sent, otherwise `nil'"
       (condition-case nil
          ;; Force `y-or-n-p' to always return `nil', as if the user
          ;; pressed "n".
-         (letf (((symbol-function 'y-or-n-p) (lambda (&rest args) nil)))
+         (cl-letf (((symbol-function 'y-or-n-p)
+                    (lambda (&rest args) nil)))
            (notmuch-mua-attachment-check)
            t)
        ('error nil))