Change refile target in region email.

Now, mark commands with region on headers view,
target of the first email is reflected in the rest of email.

```
              Date         From     Subject
--------------------------------------------
              2012-12-05   Github   ...
              2012-12-05   Yahoo!   ...
              2012-12-05   Work     ...

  refiling to

              Date         From     Subject
--------------------------------------------
r -> /github  2012-12-05   Github   ...
r -> /github  2012-12-05   Yahoo!   ...
r -> /github  2012-12-05   Work     ...
```

In this patch, change target in region email.

```
              Date         From     Subject
--------------------------------------------
r -> /github  2012-12-05   Github   ...
r -> /yahoo   2012-12-05   Yahoo!   ...
r -> /work    2012-12-05   Work     ...
```
This commit is contained in:
Wataru MIYAGUNI 2012-12-05 16:46:12 +09:00
parent 5c41f5f658
commit 522f4104f9
1 changed files with 2 additions and 0 deletions

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