mirror of https://github.com/djcb/mu.git
Merge pull request #1555 from thierryvolpiatto/Unquote_lambda
mu4e: Unquote lambda's
This commit is contained in:
commit
0b12d0e568
|
@ -234,7 +234,7 @@ non-nil."
|
|||
(when (mu4e-context-enter-func context)
|
||||
(funcall (mu4e-context-enter-func context)))
|
||||
(when (mu4e-context-vars context)
|
||||
(mapc #'(lambda (cell)
|
||||
(mapc (lambda (cell)
|
||||
(set (car cell) (cdr cell)))
|
||||
(mu4e-context-vars context)))
|
||||
(setq mu4e~context-current context)
|
||||
|
|
|
@ -57,12 +57,12 @@
|
|||
|
||||
;; Probably this can be moved to mu4e-view.el.
|
||||
(add-hook 'mu4e-view-mode-hook
|
||||
#'(lambda ()
|
||||
(lambda ()
|
||||
(set (make-local-variable 'bookmark-make-record-function)
|
||||
'mu4e-view-bookmark-make-record)))
|
||||
;; And this can be moved to mu4e-headers.el.
|
||||
(add-hook 'mu4e-headers-mode-hook
|
||||
#'(lambda ()
|
||||
(lambda ()
|
||||
(set (make-local-variable 'bookmark-make-record-function)
|
||||
'mu4e-view-bookmark-make-record)))
|
||||
|
||||
|
|
|
@ -150,7 +150,7 @@ response in icalendar format."
|
|||
;; also trash the message (thus must be appended to hooks).
|
||||
(add-hook
|
||||
'message-sent-hook
|
||||
#'(lambda () (setq mu4e-sent-func
|
||||
(lambda () (setq mu4e-sent-func
|
||||
(mu4e~icalendar-trash-message original-msg)))
|
||||
t t))))
|
||||
|
||||
|
|
|
@ -815,7 +815,7 @@ When successful, call FUNC (if non-nil) afterwards."
|
|||
(mu4e~context-autoswitch nil mu4e-context-policy)
|
||||
(mu4e~check-requirements)
|
||||
;; 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
|
||||
(mu4e~proc-ping
|
||||
(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)))
|
||||
;; Check that all numbers are valid.
|
||||
(mapc
|
||||
#'(lambda (x)
|
||||
(lambda (x)
|
||||
(cond
|
||||
((> x n)
|
||||
(mu4e-warn "Attachment %d bigger than maximum (%d)" x n))
|
||||
|
|
Loading…
Reference in New Issue