Re: send reply email from gnus and archive original

[Eric Abrahamsen <eric@ericabrahamsen.net>]

John Kitchin <jkitchin@andrew.cmu.edu> writes:

> Hi everyone,
>
> I am trying to switch from the web interface of gmail to gnus. I have
> succeeded in getting gnus to read my mail!
>
> ("nnimap gmail:INBOX")
>
> A feature of the web interface I really liked was the ability to reply
> to an email, and upon sending it, archive the original email. Is there a
> way to do that in gnus? Using a hook or something? Basically I want to
> move the replied to email from the INBOX to the [Gmail]/All Mail folder
> after I repply to it.
>
> Thanks!

I guess I'd recommend using the message-sent-hook: that way you know the
message has successfully sent, but you're still in the message buffer.

In the message buffer, you can get the X-Draft-From header, which tells
you how to find the message you're replying to (there's also the
message-reply-headers variable, but that doesn't have the group
information). Then you can ask gnus to move the article. My guess is you
could call `nnimap-request-move-article' directly, but it would probably
be safer to visit the original in its summary buffer and then use
`gnus-summary-move-article'. The following is very, very lightly tested:

(defun archive-original-gmail (&optional to-group)
  (save-window-excursion
    (save-restriction
     (message-narrow-to-headers-or-head)
     (let ((draft-from (read (message-fetch-field "X-Draft-From")))
	   group article-number)
       (when draft-from
	 (setq group (car draft-from)
	       article-number (cadr draft-from))
	 (gnus-activate-group group)
	 (when (member (cadr (gnus-find-method-for-group group))
                        ;; only activate for some servers
		       '("Applicable" "Server" "Names"))
	   (gnus-group-read-group t nil group
				  (list article-number))
	   (gnus-summary-move-article nil "\[Gmail\]/All Mail")))))))

You'd put that in the message-sent-hook. I'd love to hear if anyone had
a better solution!

E