Merge pull request #108 from gongo/change_refile_target_in_region

* change refile target in region email.
This commit is contained in:
Dirk-Jan C. Binnema
2012-12-06 12:43:25 -08:00

View File

@ -189,6 +189,8 @@ headers in the region. Optionally, provide TARGET (for moves)."
(let ((cant-go-further) (eor (region-end)))
(goto-char (region-beginning))
(while (and (<= (point) eor) (not cant-go-further))
(when (eq mark 'refile)
(setq target (mu4e~mark-get-target mark target)))
(mu4e-mark-at-point mark target)
(setq cant-go-further (not (mu4e-headers-next))))))))