Re: Making mail unread when moved

[Sébastien Vauban]

Hi Katsumi,

Katsumi Yamaoka wrote:
>>>>>> Sébastien Vauban wrote:
>> Would there be some way to make a mail become unread when moving it to some
>> nnimap folder?
>
> Try this advice, that makes articles to be moved to the group
> nnimap:INBOX.FOLLOW-UP unread:
>
> (defadvice gnus-summary-move-article (before make-articles-unread-when-
> moving
>                                            (&optional n to-newsgroup
>                                                       select-method action)
>                                            activate)
>   "Make articles to be moved to certain groups unread."
>   (when (memq action '(nil move))
>     (let ((articles (gnus-summary-work-articles n))
>         case-fold-search)
>       (unless to-newsgroup
>       (setq to-newsgroup (gnus-read-move-group-name
>                           "Move" gnus-current-move-group
>                           articles
>                           (if (gnus-check-backend-function
>                                'request-move-article gnus-newsgroup-name)
>                               (funcall gnus-move-group-prefix-function
>                                        gnus-newsgroup-name)
>                             "")))
>       (when (string-match "\\`nnimap:INBOX\\.FOLLOW-UP\\'" to-newsgroup)
>         (dolist (article articles)
>           (gnus-summary-mark-article article gnus-unread-mark)))))))
>
> Adjust the regexp "\\`nnimap:INBOX\\.FOLLOW-UP\\'" as you like.
> If it is "", articles to be moved to any group will be made all
> unread.

Just a tiny problem. When selecting multiple articles to be moved
simultaneously, they get all ticked, but only the one where the point is gets
moved.

Any idea?

Best regards,
  Seb

-- 
Sébastien Vauban