* problems with the message-setup-hook
@ 2008-02-20 14:08 Uwe Brauer
2008-02-20 17:42 ` Uwe Brauer
0 siblings, 1 reply; 2+ messages in thread
From: Uwe Brauer @ 2008-02-20 14:08 UTC (permalink / raw)
To: info-gnus-english
Hello
I have asked that question some time ago, but it was pointed out to me
that supercite was the culprit. I desactived supercite and my problem
remains:
I have written a function which adds at the beginning of each mail
a message which is based on an entry in the bbdb. Like
--8<------------------------schnipp------------------------->8---
Hello Joe,
Thanks for your last message,
> Joe wrote:
> Look this is a great idea
--8<------------------------schnapp------------------------->8---
The point is how that should be combined with
gnus-summary-reply-with-original?
I just added in the message-setup-hook:
(add-hook 'message-setup-hook 'bbdbciteadpt-insert-bbdbcite)
However the problem is that the function is executed before
gnus-summary-reply-with-original is finished, leading to:
--8<------------------------schnipp------------------------->8---
> Joe wrote:
> Look this is a great idea
Hello Joe,
Thanks for your last message,
--8<------------------------schnapp------------------------->8---
So this is set at the end instead of the beginning of the message.
So I thought maybe defadvice is my friend.
By using
(defadvice gnus-summary-reply-with-original (after mybbdbcite activate)
"Runs bbdbcite after the gnus-summary-reply-with-original function."
(bbdbciteadpt-insert-bbdbcite))
But it did not work.
Another strange thing:
Does somebody has an idea?
--8<------------------------schnipp------------------------->8---
`message-setup-hook' is a variable declared in Lisp.
-- loaded from "message"
Value: ((lambda nil (set (make-local-variable (quote
user-mail-address)) "oub@mat.ucm.es") (let ((user-full-name "Uwe
Brauer") (user-mail-address "oub@mat.ucm.es")) (save-excursión
(message-remove-header "From") (message-goto-eoh) (insert "From: "
(message-make-from) "\n")))) (lambda nil (save-excursión
(message-remove-header "Reply-To") (let ((value "Uwe Brauer
<oub@mat.ucm.es>")) (when value (message-goto-eoh) (insert "Reply-To"
": " value) (unless (bolp) (insert "\n")))))) t)
This value is specific to the current buffer.
Default-value: (bbdb-insinuate-message bbdb-define-all-aliases
turn-on-iso-accents-mode bbdbciteadpt-insert-bbdbcite)
--8<------------------------schnapp------------------------->8---
Does somebody has and idea?
thanks
Uwe Brauer
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: problems with the message-setup-hook
2008-02-20 14:08 problems with the message-setup-hook Uwe Brauer
@ 2008-02-20 17:42 ` Uwe Brauer
0 siblings, 0 replies; 2+ messages in thread
From: Uwe Brauer @ 2008-02-20 17:42 UTC (permalink / raw)
To: info-gnus-english
>>>>> "Uwe" == Uwe Brauer <oub@mat.ucm.es> writes:
> Thanks for your last message,
>> Joe wrote:
>> Look this is a great idea
> --8<------------------------schnapp------------------------->8---
> The point is how that should be combined with
> gnus-summary-reply-with-original?
> I just added in the message-setup-hook:
> (add-hook 'message-setup-hook 'bbdbciteadpt-insert-bbdbcite)
After I advised the function and removed that function from the hook,
everything went fine.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2008-02-20 17:42 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2008-02-20 14:08 problems with the message-setup-hook Uwe Brauer
2008-02-20 17:42 ` Uwe Brauer
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).