alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e: Replace cl with cl-lib

Browse Source
This commit is contained in:
Alex Branham
2018-09-17 19:53:27 -05:00
parent 53c1b0a069
commit 2674ca5583
14 changed files with 98 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-mark.el
View File

@ -26,12 +26,11 @@
;; currently in the headers buffer.
;; Code:
(require 'cl-lib)
(require 'mu4e-proc)
(require 'mu4e-utils)
(require 'mu4e-message)
(eval-when-compile (byte-compile-disable-warning 'cl-functions))
;; keep byte-compiler happy
(declare-function mu4e~headers-mark "mu4e-headers")
(declare-function mu4e~headers-goto-docid "mu4e-headers")
@ -96,7 +95,7 @@ where
(defun mu4e~mark-find-headers-buffer ()
"Find the headers buffer, if any."
(find-if
(cl-find-if
(lambda (b)
(with-current-buffer b
(eq major-mode 'mu4e-headers-mode)))
@ -346,7 +345,7 @@ as well."
mu4e-marks))
(marks
(if allow-something
marks (remove-if (lambda (m) (eq 'something (cdr m))) marks)))
marks (cl-remove-if (lambda (m) (eq 'something (cdr m))) marks)))
(mark (mu4e-read-option prompt marks))
(target (mu4e~mark-ask-target mark)))
(cons mark target)))