Re: Move mail and mark as read

On Mon, 04 Mar 2019 01:52:22 -0800,
Tim Schumacher <[email protected]> wrote:
> 
> Hi Folks,
> 
> 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.
> 
> Would someone please be so kind with and and provide me a command to move the
> mail (Key: o) and also mark it as read in the destination folder. This should
> also work with m-o.
> 
> Thanks for your time and work for this fantastic mailer!

Hi Tim,

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))

Note that this overrides the default behavior of refile.

best, Erik

--
Sent from my free software system <http://fsf.org/>.