Re: Move mail and mark as read

Dear Erik,

On Mon, 04 Mar 2019 19:50:11 +0100,
Erik Hetzner wrote:
>
> On Mon, 04 Mar 2019 01:52:22 -0800,
> Tim Schumacher <[email protected]> wrote:

>> relativly often I move a mail from my inbox to a folder (fe spam) and especialy
>> if I did not open it, I need to go the the folder and mark all mails as read.

> This works for me (on emacs 26 - the initial override of the variable `wl-summary-mark-action-list' might need a tweak on earlier emacs versions):
>
> (setf (alist-get "o" wl-summary-mark-action-list nil nil #'equal)
>            '(refile
>              wl-summary-get-refile-destination
>              wl-summary-set-action-refile
>              wl-summary-exec-action-mark-as-read-and-refile
>              wl-highlight-summary-refiled-face
>              "Mark message as read and refile."))
>
> (wl-summary-define-mark-action)
>
> (defun wl-summary-exec-action-mark-as-read-and-refile (mark-list)
>   (wl-summary-mark-as-read (mapcar (lambda (mark-info) (nth 0 mark-info)) mark-list))
>   (wl-summary-exec-action-refile mark-list))

This works like a charm!

Thanks for your time and love for this great piece of software!

Tim