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

Unquote lambda's

Browse Source 
* mu4e/mu4e-context.el (mu4e-context-switch):         Do it.
* mu4e/mu4e-contrib.el (mu4e-view-mode-hook):         Do it.
(mu4e-headers-mode-hook):                             Do it.
* mu4e/mu4e-icalendar.el (mu4e-icalendar-reply-ical): Do it.
* mu4e/mu4e-utils.el (mu4e~start):                    Do it.
(mu4e-split-ranges-to-numbers):                       Do it.
This commit is contained in:
Thierry Volpiatto
2020-01-27 08:41:24 +01:00
parent 17e1dc2b17
commit 846428cfd4
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
mu4e/mu4e-context.el
View File

@ -234,7 +234,7 @@ non-nil."
(when (mu4e-context-enter-func context) (when (mu4e-context-enter-func context)
(funcall (mu4e-context-enter-func context))) (funcall (mu4e-context-enter-func context)))
(when (mu4e-context-vars context) (when (mu4e-context-vars context)
(mapc #'(lambda (cell) (mapc (lambda (cell)
(set (car cell) (cdr cell))) (set (car cell) (cdr cell)))
(mu4e-context-vars context))) (mu4e-context-vars context)))
(setq mu4e~context-current context) (setq mu4e~context-current context)

4
mu4e/mu4e-contrib.el
View File

@ -57,12 +57,12 @@
;; Probably this can be moved to mu4e-view.el. ;; Probably this can be moved to mu4e-view.el.
(add-hook 'mu4e-view-mode-hook (add-hook 'mu4e-view-mode-hook
#'(lambda () (lambda ()
(set (make-local-variable 'bookmark-make-record-function) (set (make-local-variable 'bookmark-make-record-function)
'mu4e-view-bookmark-make-record))) 'mu4e-view-bookmark-make-record)))
;; And this can be moved to mu4e-headers.el. ;; And this can be moved to mu4e-headers.el.
(add-hook 'mu4e-headers-mode-hook (add-hook 'mu4e-headers-mode-hook
#'(lambda () (lambda ()
(set (make-local-variable 'bookmark-make-record-function) (set (make-local-variable 'bookmark-make-record-function)
'mu4e-view-bookmark-make-record))) 'mu4e-view-bookmark-make-record)))

2
mu4e/mu4e-icalendar.el
View File

@ -150,7 +150,7 @@ response in icalendar format."
;; also trash the message (thus must be appended to hooks). ;; also trash the message (thus must be appended to hooks).
(add-hook (add-hook
'message-sent-hook 'message-sent-hook
#'(lambda () (setq mu4e-sent-func (lambda () (setq mu4e-sent-func
(mu4e~icalendar-trash-message original-msg))) (mu4e~icalendar-trash-message original-msg)))
t t)))) t t))))

4
mu4e/mu4e-utils.el
View File

@ -815,7 +815,7 @@ When successful, call FUNC (if non-nil) afterwards."
(mu4e~context-autoswitch nil mu4e-context-policy) (mu4e~context-autoswitch nil mu4e-context-policy)
(mu4e~check-requirements) (mu4e~check-requirements)
;; set up the 'pong' handler func ;; set up the 'pong' handler func
(setq mu4e-pong-func #'(lambda (props) (mu4e~pong-handler props func))) (setq mu4e-pong-func (lambda (props) (mu4e~pong-handler props func)))
;; wake up server ;; wake up server
(mu4e~proc-ping (mu4e~proc-ping
(mapcar ;; send it a list of queries we'd like to see read/unread info (mapcar ;; send it a list of queries we'd like to see read/unread info
@ -1098,7 +1098,7 @@ This includes expanding e.g. 3-5 into 3,4,5. If the letter
(cl-pushnew (string-to-number elem) list :test 'equal))) (cl-pushnew (string-to-number elem) list :test 'equal)))
;; Check that all numbers are valid. ;; Check that all numbers are valid.
(mapc (mapc
#'(lambda (x) (lambda (x)
(cond (cond
((> x n) ((> x n)
(mu4e-warn "Attachment %d bigger than maximum (%d)" x n)) (mu4e-warn "Attachment %d bigger than maximum (%d)" x n))