Re: Recovering newsgroup specific settings when editing drafts

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <878xqbawko.fsf@denkblock.local> 
>>>>>	Elias Oltmanns <oltmanns@uni-bonn.de> wrote:

> here is a problem which I couldn't find a solution for. If you have
> code hooked into message-setup-hook or message-header-setup-hook which
> performs various actions depending on the current group, you would
> often want to have this code referring to the original group of a
> draft when pressing e in the drafts group. Good examples are changing
> ispell-local-dictionary or pgg-default-user-id. Since X-Draft-From
> holds the name of the group in which the message was originally
> created, the obvious way is to make the code refer to this header.
> However, message-fetch-field / message-field-value don't seem to have
> access to this variable by the time message-(header-)setup-hook is
> run. What would be the right way to accomplish my goal?

At that time, the `message-required-headers' variable has the
value of X-Draft-From header as:

(X-Draft-From
 lambda nil
 (gnus-inews-make-draft-meta-information
  "GROUP_NAME" '(ARTICLES)))

How about the following snippet?

  (with-temp-buffer
    (message-generate-headers message-required-headers)
    (message-fetch-field "X-Draft-From"))

I used the following hook to verify that it works.

(add-hook
 'message-header-setup-hook
 (lambda nil
   (let ((x-draft-from (with-temp-buffer
			 (message-generate-headers
			  message-required-headers)
			 (message-fetch-field "X-Draft-From"))))
     (save-restriction
       (widen)
       (message-goto-body)
       (insert (format "X-Draft-From's value is `%s'.\n"
		       x-draft-from))))))