Function definition wrong

Function definition wrong

[Pieter Wenk]

Hello to all,

When hitting "F" follow-up message I am getting:

Symbol's function definition is void: sc-header-author wrote (header 8)

Below please find my entry in ~/.gnus with regards to this
message:

;;*===========================================================
;;*                     Super-Cite Settings:
;;*===========================================================
;:*=======================
;:*  List of reference header rewrite functions
(setq sc-rewrite-header-list
;;(defvar sc-rewrite-header-list
  '((sc-no-header)
    (sc-no-blank-line-or-header)
    (sc-header-inarticle-wrote)
    (sc-header-verbose)
    (sc-header-on-said)
    (sc-header-regarding-adds)
    (sc-header-attributed-wrote)
    (sc-header-schrieb-am)
    (sc-header-author-wrote)
    (sc-header-attributed-schrieb-am)
    )
;;  "*List of reference header rewrite functions. The variable
;;  `sc-preferred-header-style' controls which function in this list is
;;  chosen for automatic reference header insertions. Electric reference
;;  mode will cycle through this list of functions."

  )
;:*=======================
;:* Specifies what to use as the attribution string.
(setq sc-preferred-attribution-list
      (list
       '"sc-header-schrieb-am"
       "sc-header-author-wrote"
       "sc-header-regarding-adds"
       "sc-header-on-said"
       "firstname"
       "emailname"
       "sc-header-attributed-schrieb-am"
       "lastname"
       )
      )
;; Set some functions
;; citing function which performs the initial citation.
(autoload 'sc-cite-original     "supercite" "Supercite 3.1" t)
;; submit a bug report on Supercite via mail
(autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
;; modifying a citation just inserted in the mail buffer
(add-hook 'mail-citation-hook 'sc-cite-original)
;; hook which gets run once after Supercite loads.
(add-hook 'sc-load-hook 'sc-setup-filladapt)
;; function for citing an original message
(setq message-cite-function 'sc-cite-original)
(setq news-reply-header-hook nil)
 ;; always confirm attribution string before citing text body
(setq
 sc-confirm-always-p          nil
 )
;; index into `sc-rewrite-header-list' specifying preferred header style
(setq
 sc-preferred-header-style    8
 )
;; if non-nil, automatically fill each paragraph after it has been cited
(setq
 sc-auto-fill-region-p        nil
 )
;; if non-nil, delete all leading white space before citing
(setq
 sc-fixup-whitespace-p        t
 )
;; use electric references if non-nil
(setq
 sc-electric-references-p     t
 )
;; if non-nil, put a citation on blank lines
(setq
 sc-cite-blank-lines-p        nil
 )
;; whether to use nested or non-nested citation style
(setq
 sc-nested-citation-p         t
 )
;; The "citation leader".  The citation leader is contained in the
;; variable `sc-citation-leader', and has the default value of a
;; string containing four spaces.
(setq
 sc-citation-leader           ""
 )
;; The "citation separator".  The citation separator is contained in
;; the variable `sc-citation-separator', and has the default value of
;; a string containing a single space.
(setq
 sc-citation-separator        " "
 )
;; string used at the beginning of built-in reference headers
(setq
 sc-reference-tag-string      "* "
 )
;; The "citation delimiter".  This string, contained in the variable
;; `sc-citation-delimiter' visually separates the citation from the
;; text of the line.  This variable has a default value of `">"' and
;; for best results, the string should consist of only a single
;; character.
(setq
 sc-citation-delimiter        "> "
 )
;;  End Supercite Settings

Kai advised me to put:

(setq sc-rewrite-header-list
;;(defvar sc-rewrite-header-list 

instead of (defvar concerning the above entry. 

Did I write this incorrectly as I am still getting this 
error message ?

I am not as yet familar with lisp.

BTW: What does exactly mean " Electric reference
;;  mode will cycle through this list of functions."

Should this allow selecting as exemple, that in
any follow-up message I could choose as exemple:
-schrieb-am or author wrote etc. ?

Furthemore, I found out, that in my answering 
messages my header does not mention the xemacs/gnus
versions I am using.

Why ?


Many thanks for your help

Regards

-- 


        
                           / /  (_)____ __ ____  __
      Pieter Wenk         / /__/ / _ \/ // /\ \/ /  Vevey/Switzerland
                         /____/_/_//_/\_,_/ /_/\_\

Re: Function definition wrong

[Kai Großjohann]

Pieter Wenk <pwenk@urbanet.ch> writes:

> (setq sc-rewrite-header-list
> [...](sc-header-schrieb-am)
> [...]
>     (sc-header-attributed-schrieb-am)
>     )

Did you define these two functions?

kai
-- 
~/.signature: No such file or directory

Re: Function definition wrong

[Pieter Wenk]

On ven, 11 fév 2000, Kai Großjohann wrote:

>Pieter Wenk <pwenk@urbanet.ch> writes:
>
>> (setq sc-rewrite-header-list
>> [...](sc-header-schrieb-am)
>> [...]
>>     (sc-header-attributed-schrieb-am)
>>     )
>
>Did you define these two functions?

What do you mean with defining ? 

Which commands ? 

Many thanks

-- 


        
                           / /  (_)____ __ ____  __
      Pieter Wenk         / /__/ / _ \/ // /\ \/ /  Vevey/Switzerland
                         /____/_/_//_/\_,_/ /_/\_\

Re: Function definition wrong

[Kai Großjohann]

Pieter Wenk <pwenk@urbanet.ch> writes:

> On ven, 11 fév 2000, Kai Großjohann wrote:
> 
> >Pieter Wenk <pwenk@urbanet.ch> writes:
> >
> >> (setq sc-rewrite-header-list
> >> [...](sc-header-schrieb-am)
> >> [...]
> >>     (sc-header-attributed-schrieb-am)
> >>     )
> >
> >Did you define these two functions?
> 
> What do you mean with defining ? 

`defun'

> Which commands ? 

sc-header-schrieb-am and sc-header-attributed-schrieb-am.

kai
-- 
~/.signature: No such file or directory

Re: Function definition wrong

[Pieter Wenk]

On sam, 12 fév 2000, Kai Großjohann wrote:

>Pieter Wenk <pwenk@urbanet.ch> writes:
>
>> On ven, 11 fév 2000, Kai Großjohann wrote:
>> 
>> >Pieter Wenk <pwenk@urbanet.ch> writes:
>> >
>> >> (setq sc-rewrite-header-list
>> >> [...](sc-header-schrieb-am)
>> >> [...]
>> >>     (sc-header-attributed-schrieb-am)
>> >>     )
>> >
>> >Did you define these two functions?
>> 
>> What do you mean with defining ? 
>
>`defun'
>
>> Which commands ? 
>
>sc-header-schrieb-am and sc-header-attributed-schrieb-am.

Kai, thanks a lot. But please I am still somewhat a dummy.

I gave M-x customize
    gnus
     face-list

Obviously this can't be correct.

Now with which "commands" (line commands) you define 'defun'

I.e. M-x...and something or is their an easier way to
get around ?

I had my nose in the different help texts...but sorry
I was unable to find the related text. 

Perhaps you could share a little bit your knowledge
how the settings of sc is working in practice. As
exemple, I am often on NG with different languages
(french/english and as you know, german). 

Nos how can you under gnus without hassle arrange
that messages are in accordance to the used langua-
ges.

I.e. wrote
      schrieb am 

I can't imagine, that under gnus this is  linked
to some akward complicated commands.

Many thanks for your help

Regards

-- 


        
                           / /  (_)____ __ ____  __
      Pieter Wenk         / /__/ / _ \/ // /\ \/ /  Vevey/Switzerland
                         /____/_/_//_/\_,_/ /_/\_\

Re: Function definition wrong

[Kai Großjohann]

Pieter Wenk <pwenk@urbanet.ch> writes:

> Nos how can you under gnus without hassle arrange
> that messages are in accordance to the used langua-
> ges.
> 
> I.e. wrote
>       schrieb am 
> 
> I can't imagine, that under gnus this is  linked
> to some akward complicated commands.

Well, the current implementation of SC really requires you to write
functions.  However, this is quite easy to do by just copying and
pasting code from the old function.  Lessee.  Let's take
sc-header-author-writes as an example.  Here is the function
definition:

/----[ M-x find-function RET sc-header-author-writes RET ]
| (defun sc-header-author-writes ()
|   "<sc-author> writes:"
|   (let ((sc-mumble "")
|         (whofrom (sc-whofrom)))
|     (if whofrom
|         (insert sc-reference-tag-string
|                 (sc-hdr "" (sc-mail-field "sc-author"))
|                 " writes:\n"))))
\----

Even without understanding any of it, I'm sure you can quickly see how
to change the function name from sc-header-author-writes to
sc-header-author-schrieb, and how to change the `writes' to `schrieb'!
(One occurrence is the documentation...)

That's all there is to it.  Programming by copy and paste is a rather
simple thing.  No voodoo, no magic.

You can work your way up to more complex stuff later.

kai
-- 
~/.signature: No such file or directory

Re: Function definition wrong

[Pieter Wenk]

Good Morning Kai,

On dim, 13 fév 2000, Kai Großjohann wrote:

>Pieter Wenk <pwenk@urbanet.ch> writes:
>
>> Nos how can you under gnus without hassle arrange
>> that messages are in accordance to the used langua-
>> ges.
>> 
>> I.e. wrote
>>       schrieb am 
>> 
>> I can't imagine, that under gnus this is  linked
>> to some akward complicated commands.
>
>Well, the current implementation of SC really requires you to write
>functions.  However, this is quite easy to do by just copying and
>pasting code from the old function.  Lessee.  Let's take
>sc-header-author-writes as an example.  Here is the function
>definition:
>
>/----[ M-x find-function RET sc-header-author-writes RET ]
>| (defun sc-header-author-writes ()
>|   "<sc-author> writes:"
>|   (let ((sc-mumble "")
>|         (whofrom (sc-whofrom)))
>|     (if whofrom
>|         (insert sc-reference-tag-string
>|                 (sc-hdr "" (sc-mail-field "sc-author"))
>|                 " writes:\n"))))
>\----
>

Kai when doing M-x find-function RET
    sc-header-author-writes RET
  
I am getting "no match"

Do I have something wrong ?


I tried M-x find-function RET sc RET

This is showing an impressive number of functions....but "not"
the above.

I dispose of course of the documentation...When going under
help--->Functions---->I am looking for to find sc-header or
something similar, but also I am wearing glasses...I can't
find such a paragraph.

Sorry disturbing, but why with the above I am getting "no
match" ?

Regards

-- 


        
                           / /  (_)____ __ ____  __
      Pieter Wenk         / /__/ / _ \/ // /\ \/ /  Vevey/Switzerland
                         /____/_/_//_/\_,_/ /_/\_\

Re: Function definition wrong

[Kai Großjohann]

Pieter Wenk <pwenk@urbanet.ch> writes:

> Kai when doing M-x find-function RET
>     sc-header-author-writes RET
>   
> I am getting "no match"

Hm.  Did you M-x load-library RET supercite RET?  Alternatively, just
have a look at the SuperCite *.el files and you'll find the right
function. 

kai
-- 
~/.signature: No such file or directory

Re: Function definition wrong

[Pieter Wenk]

On dim, 13 fév 2000, Kai Großjohann wrote:

>Pieter Wenk <pwenk@urbanet.ch> writes:
>
>> Kai when doing M-x find-function RET
>>     sc-header-author-writes RET
>>   
>> I am getting "no match"
>
>Hm.  Did you M-x load-library RET supercite RET?  Alternatively, just
>have a look at the SuperCite *.el files and you'll find the right
>function. 

Thanks for this info. I was not aware, that I should first load
the library.

Fine, I have given:

             M-x load-library RET
             M-x find-function RET
             sc-header-author-writes

which brought :

	(defun sc-header-author-writes ()
  "<sc-author> writes:"
  (let ((sc-mumble "")
	(whofrom (sc-whofrom)))
    (if whofrom
	(insert sc-reference-tag-string
		(sc-hdr "" (sc-mail-field "sc-author"))
		" writes:\n"))))

I have added the above into my ~/.gnus

 Supercite is loading correctly. I am getting no error
message.

I just fired gnus...hitting "F" for follow-up, I am
still getting:

	Symbol's function void: sc-header-author-wrote
        (Header 8)

Why I am still getting this error ? I still must have misun-
derstand a few things.

Regards


-- 


        
                           / /  (_)____ __ ____  __
      Pieter Wenk         / /__/ / _ \/ // /\ \/ /  Vevey/Switzerland
                         /____/_/_//_/\_,_/ /_/\_\

Re: Function definition wrong

[Kai Großjohann]

Pieter Wenk <pwenk@urbanet.ch> writes:

> 	(defun sc-header-author-writes ()
>   "<sc-author> writes:"
>   (let ((sc-mumble "")
> 	(whofrom (sc-whofrom)))
>     (if whofrom
> 	(insert sc-reference-tag-string
> 		(sc-hdr "" (sc-mail-field "sc-author"))
> 		" writes:\n"))))
> 
> I have added the above into my ~/.gnus

Why on earth did you do that?  Just put (require 'supercite) in your
~/.gnus file if you want to load supercite.  Copying stuff from
existing Lisp packages is asking for trouble: suppose you upgrade
Emacs or the Lisp packages and there is a bugfix -- you won't benefit
from the bug fix.

Also, you want to modify the above function so that you have
sc-header-author-schrieb... 

> Supercite is loading correctly. I am getting no error
> message.
> 
> I just fired gnus...hitting "F" for follow-up, I am
> still getting:
> 
> 	Symbol's function void: sc-header-author-wrote
>         (Header 8)

sc-header-author-wrote is not the same as sc-header-author-writes.

> Why I am still getting this error ? I still must have misun-
> derstand a few things.

See above.

kai
-- 
~/.signature: No such file or directory