mirror of https://github.com/djcb/mu.git
mu4e: Make :show-target be the identity by default
- This is certainly a better default than crashing - The user is likely to omit this function in a majority of cases.
This commit is contained in:
parent
47fc1b717f
commit
73b87c16f7
|
@ -145,7 +145,6 @@ properties are:
|
|||
:char "r"
|
||||
:prompt "refile"
|
||||
:dyn-target (lambda (target msg) (mu4e-get-refile-folder msg))
|
||||
:show-target (lambda (target) target)
|
||||
:action (lambda (docid msg target) (mu4e~proc-move docid (mu4e~mark-check-target target) "-N")))
|
||||
(delete
|
||||
:char "D"
|
||||
|
@ -161,7 +160,6 @@ properties are:
|
|||
:char "m"
|
||||
:prompt "move"
|
||||
:ask-target mu4e~mark-get-move-target
|
||||
:show-target (lambda (target) target)
|
||||
:action (lambda (docid msg target) (mu4e~proc-move docid (mu4e~mark-check-target target) "-N")))
|
||||
(read
|
||||
:char "!"
|
||||
|
@ -172,7 +170,6 @@ properties are:
|
|||
:char "d"
|
||||
:prompt "dtrash"
|
||||
:dyn-target (lambda (target msg) (mu4e-get-trash-folder msg))
|
||||
:show-target (lambda (target) target)
|
||||
:action (lambda (docid msg target) (mu4e~proc-move docid (mu4e~mark-check-target target) "+T-N")))
|
||||
(unflag
|
||||
:char "-"
|
||||
|
@ -192,12 +189,10 @@ properties are:
|
|||
(unmark
|
||||
:char " "
|
||||
:prompt "unmark"
|
||||
:show-target (lambda (target) nil)
|
||||
:action (mu4e-error "No action for unmarking"))
|
||||
(something
|
||||
:char "*"
|
||||
:prompt "*something"
|
||||
:show-target (lambda (target) "")
|
||||
:action (mu4e-error "No action for deferred mark"))
|
||||
)))
|
||||
|
||||
|
@ -233,7 +228,10 @@ The following marks are available, and the corresponding props:
|
|||
(markdesc (cdr (or (assq mark mu4e-marks) (mu4e-error "Invalid mark %S" mark))))
|
||||
(markkar (plist-get markdesc :char))
|
||||
(target (mu4e~mark-get-dyn-target mark target))
|
||||
(shown-target (funcall (plist-get markdesc :show-target) target)))
|
||||
(show-fct (plist-get markdesc :show-target))
|
||||
(shown-target (if show-fct
|
||||
(funcall show-fct target)
|
||||
target)))
|
||||
(unless docid (mu4e-warn "No message on this line"))
|
||||
(unless (eq major-mode 'mu4e-headers-mode) (mu4e-error "Not in headers-mode"))
|
||||
(save-excursion
|
||||
|
|
Loading…
Reference in New Issue