Re: hook to insert sign command and forwarded messages

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <smulkpduh4t.fsf_-_@linuxpal.mit.edu>
>>>>>	gdt@work.lexort.com wrote:

> I have the following hook:

>       (add-hook
>        'message-setup-hook
>        (lambda ()
> 	 (message-goto-body)
> 	 (mml-secure-message-sign-pgpmime)))

> This works fine for most things.  But when I forward a message (C-c
> C-f), the <#secure..> line is after the #mml markup around the
> message.  I just added message-goto-body to try to fix this, thinking
> my hook would run after the message was inserted.

> So, I'm not sure what's wrong.  Candidates are:

>  mml-secure-message-sign-pgpmime should insert at beginning (seems
>  like it does, and message-goto-body ensures that)

Yes, it does.  However, now the `message-forward' function inserts
a forwarded part after `message-setup-hook' is run.

>  insertion of forwarded message should be after any secure tags

We can do it.

>  hook should be run after the insertion

We can do it.  How about this?

(defadvice message-forward (around run-message-setup-hook-last activate)
  "Run `message-setup-hook' last."
  (let ((message-setup-hook nil))
    ad-do-it)
  (run-hooks 'message-setup-hook))

Although we can change the `message-forward' function so as to
work like this, I'm not sure it never causes any harm to all
users.