Setting gnus-message-archive-group in message-send-hook

Setting gnus-message-archive-group in message-send-hook

[Marcin Wlodarczak]

Hi,

I'm trying to set gnus-message-archive-group depending on the From:
address, using the message-send-hook. Here is what I've got so
far:

(add-hook 'message-send-hook 'my-select-archive-group)
(defun my-select-archive-group ()
  (let ((from-address (mail-fetch-field "from")))
    (cond ((search "uni" from-address)
           (setq gnus-message-archive-group "nnimap+uni:Sent"))
	  ((search "gmail" from-address)
           (setq gnus-message-archive-group "nnimap+gmail:[Google Mail]/Sent Mail")))))

The problem is, however, that this only sets the Gcc line for the
*following message* not the one being sent. What am I doing wrong
here?

Best,
Marcin

Re: Setting gnus-message-archive-group in message-send-hook

[Tim Landscheidt]

Marcin Wlodarczak <mwlodarczak@gmail.com> wrote:

> I'm trying to set gnus-message-archive-group depending on the From:
> address, using the message-send-hook. Here is what I've got so
> far:

> (add-hook 'message-send-hook 'my-select-archive-group)
> (defun my-select-archive-group ()
>   (let ((from-address (mail-fetch-field "from")))
>     (cond ((search "uni" from-address)
>            (setq gnus-message-archive-group "nnimap+uni:Sent"))
> 	  ((search "gmail" from-address)
>            (setq gnus-message-archive-group "nnimap+gmail:[Google Mail]/Sent Mail")))))

> The problem is, however, that this only sets the Gcc line for the
> *following message* not the one being sent. What am I doing wrong
> here?

Either change the Gcc: header in your hook, or - probably
preferable - see if the fine manual for
gnus-message-archive-group can be applied in your case:

| If you want to save your mail in one group and the news articles you
| write in another group, you could say something like:

|  (setq gnus-message-archive-group
| 	'((if (message-news-p)
| 	      "misc-news"
| 	    "misc-mail")))

Tim

Re: Setting gnus-message-archive-group in message-send-hook

[Marcin Wlodarczak]

Tim Landscheidt <tim@tim-landscheidt.de> writes:
>> The problem is, however, that this only sets the Gcc line for the
>> *following message* not the one being sent. What am I doing wrong
>> here?
>
> Either change the Gcc: header in your hook, or - probably
> preferable - see if the fine manual for
> gnus-message-archive-group can be applied in your case:

Thanks but I don't quite follow. I thought setting
gnus-message-archive-group is the way to change the Gcc header.
Anyway, as I mentioned, it does work (it sets the Gcc line to the
specified group) but too late as it were.

Re: Setting gnus-message-archive-group in message-send-hook

[Tim Landscheidt]

Marcin Wlodarczak <mwlodarczak@gmail.com> wrote:

>>> The problem is, however, that this only sets the Gcc line for the
>>> *following message* not the one being sent. What am I doing wrong
>>> here?

>> Either change the Gcc: header in your hook, or - probably
>> preferable - see if the fine manual for
>> gnus-message-archive-group can be applied in your case:

> Thanks but I don't quite follow. I thought setting
> gnus-message-archive-group is the way to change the Gcc header.
> Anyway, as I mentioned, it does work (it sets the Gcc line to the
> specified group) but too late as it were.

gnus-message-archive-group specifies which (if any) Gcc:
header is inserted when a message buffer is *created*. The
Gcc: header at the time of *sending* the message specifies
where it is archived.

Tim

P. S.: Please don't post and mail at the same time. Thanks!

Re: Setting gnus-message-archive-group in message-send-hook

[Marcin Wlodarczak]

On 21.09.2011 00:53, Tim Landscheidt wrote:
> gnus-message-archive-group specifies which (if any) Gcc:
> header is inserted when a message buffer is *created*. The
> Gcc: header at the time of *sending* the message specifies
> where it is archived.

OK, got it now thanks. Using

(progn (setq gnus-outgoing-message-group "nnimap+uni+Sent")
       (gnus-inews-insert gcc))

does the trick. Thanks.

> P. S.: Please don't post and mail at the same time. Thanks!

Sorry. Still getting to grips with Gnus.

Cheers,
Marcin

Re: Setting gnus-message-archive-group in message-send-hook

[Tim Landscheidt]

Marcin Wlodarczak <mwlodarczak@gmail.com> wrote:

>> gnus-message-archive-group specifies which (if any) Gcc:
>> header is inserted when a message buffer is *created*. The
>> Gcc: header at the time of *sending* the message specifies
>> where it is archived.

> OK, got it now thanks. Using

> (progn (setq gnus-outgoing-message-group "nnimap+uni+Sent")
>        (gnus-inews-insert gcc))

> does the trick. Thanks.
> [...]

If possible, I would follow the manual more closely though.
Using the hook will mean that any changes you make to the
Gcc: header manually while composing the message will be
overwritten. This is probably not disastrous, but can be
irritating.

Tim

Re: Setting gnus-message-archive-group in message-send-hook

[Marcin Wlodarczak]

On 09/23/2011 06:15 PM, Tim Landscheidt wrote:
> Marcin Wlodarczak <mwlodarczak@gmail.com> wrote:
> 
>>> gnus-message-archive-group specifies which (if any) Gcc:
>>> header is inserted when a message buffer is *created*. The
>>> Gcc: header at the time of *sending* the message specifies
>>> where it is archived.
>> OK, got it now thanks. Using
>> (progn (setq gnus-outgoing-message-group "nnimap+uni+Sent")
>>        (gnus-inews-insert gcc))
>> does the trick. Thanks.
>> [...]
> If possible, I would follow the manual more closely though.
> Using the hook will mean that any changes you make to the
> Gcc: header manually while composing the message will be
> overwritten. This is probably not disastrous, but can be
> irritating.

I see what you mean but I think I'm going to stick to this solution
right now. Thanks. -- M.