[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Adam Sjøgren
Subject: Re: How to create/add-to-existing headers in a posting style?
Date: Wed, 18 Jul 2012 18:04:25 +0200
User-agent: Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.1.50 (gnu/linux)

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

> (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"))))))()
   message-reply(nil t)
   ad-Orig-gnus-summary-reply((398652) t (398652))
   gnus-summary-reply((398652) t (398652))
   call-interactively(gnus-summary-very-wide-reply-with-original nil nil)

  Best regards,


 "You know, if the sun was an oboe, what would you do?"       Adam Sjøgren

reply via email to

[Prev in Thread] Current Thread [Next in Thread]