Re: How to create/add-to-existing headers in a posting style?

[Adam Sjøgren]

On Wed, 18 Jul 2012 12:54:32 +0200, Tassilo wrote:

> asjo@koldfront.dk (Adam Sjøgren) writes:

>>> An existing variable in group parameters will be automagically be
>>> made local in the corresponding summary buffer.
 
>> Hm, I can't make it work, though; I get this error in *Messages*:
 
>> let: Symbol's value as variable is void: bbdb-insinuate-message

> Hm, do you have a backtrace?

No, I do not get a backtrace - the buffer with the email ends up without
quotation and the message above is shown in *Messages*.

[See below, though]

> Hm, basically it looks good to me.  But it might be a good idea to make
> that huge lamba an own function.

[...]

Gives me the same symptom. (I hoped it would :-))

> (setq gnus-parameters

[...]

Note that I am using Group Parameters on the group in question rather
than setting the gnus-parameters variable.

                                 o o o

After factorying out the lambda to a named function I did
toggle-debug-on-error and got this backtrace:

 Debugger entered--Lisp error: (void-variable bbdb-insinuate-message)
   (asjo-add-now-playing-header bbdb-insinuate-message asjo-handle-cc)
   (let ((value (asjo-add-now-playing-header bbdb-insinuate-message 
asjo-handle-cc))) (when value (message-goto-eoh) (insert "Message-Setup-Hook" 
": " value) (unless (bolp) (insert "\n"))))
   (save-excursion (message-remove-header "Message-Setup-Hook") (let ((value 
(asjo-add-now-playing-header bbdb-insinuate-message asjo-handle-cc))) (when 
value (message-goto-eoh) (insert "Message-Setup-Hook" ": " value) (unless 
(bolp) (insert "\n")))))
   (lambda nil (save-excursion (message-remove-header "Message-Setup-Hook") 
(let ((value (asjo-add-now-playing-header bbdb-insinuate-message 
asjo-handle-cc))) (when value (message-goto-eoh) (insert "Message-Setup-Hook" 
": " value) (unless (bolp) (insert "\n"))))))()
   run-hooks(message-setup-hook)
   message-setup-1([...cut...])
   message-setup([...cut...])
   message-reply(nil t)
   ad-Orig-gnus-summary-reply((398652) t (398652))
   gnus-summary-reply((398652) t (398652))
   gnus-summary-very-wide-reply-with-original(nil)
   call-interactively(gnus-summary-very-wide-reply-with-original nil nil)


  Best regards,

    Adam

-- 
 "You know, if the sun was an oboe, what would you do?"       Adam Sjøgren
                                                         asjo@koldfront.dk