### Copyright (C) 1996 Rasmus Ingemann Hansen
### This program is free software; you can redistribute it and/or modify
### it under the terms of the GNU General Public License as published by
### the Free Software Foundation; either version 2 of the License, or
### (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###
### You should have received a copy of the GNU General Public License
### along with this program; if not, write to the Free Software
### Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.


proc quoting {} {
    # Editing / Quoting
    Desc "How included text should appear when r)eply or f)orward."
    ShortDesc "Quoting"

### Automatically include text ###
    Header head27 \
	-text "Automatically include replied message" \
	-background gray \
	-help "When the message to be replied to are copied into editor, should you then be asked before this is done."

    CheckBox formatCheckBox17 \
	-text "When replying, automatically copy text into your message" \
	-default 0 \
	-help "Select this so that you WON'T be asked whether you want the message included in your reply. Default by Elm is unselected but author suggest to leave it selected so as to automatically remind receiver there might have forgotten he sended you that mail."

### Quoting included messages ###
    Header head2 \
	-text "How to indent included messages" \
	-background gray 

    CheckBox formatCheckBox1 \
	-text "Indent included message text in outgoing messages" \
	-help "Deselecting this gives you no prefix before each included message line. Author disencourage this. (Beware: No indentng can be done by going to the O)ptions menu and B)order where you delete the line and then you can r)eply to a message with having no character indenting. BUT saving this with \">\", implies that \"no character\" equal \">_\" when restarting Elm!)"

    Entry editorOptionsEntry11 \
	-text "Prefix sequence for the included text" \
	-textafter " (\"_\" equal space)" \
	-default ">_" \
	-width 10
    Label formatLabel2 \
	-text "Remember:  if you want to f)orward without having the prefix added,\nanswer NO at the `edit?' question and then instead of s)end, e)dit it." \
	-help "To keep using the prefix except for specific f)orward messages"
    foreach widget { head2 editorOptionsEntry11 } {
	Help $widget "When you r)eply to a message or f)orward a message to another person, you can optionally include the original message. Defining the prefix value here allows you to indicate what the prefix of each included line should be.\nThe default is \"> \" (specified as \">_\" where underscore is interpreted as space) and is standard in the UNIX community."
    }

### Layout o.........f Alias Menu ####
    Header head1 \
	-text "Quoting attribution to preceed the included text" \
	-background gray \
	-help "The first part of this page you selected prefix characters to be set before each line of the included message. Here, you can select information for the area right above the inserted message text saying forinstance \"SYSOP wrote the following:\". This eases the replying person(s) for who actually wrote the message (and you for not having to specify senders name each time).\nThe Elm versions in this module only recognise option \"%s\"!"

    CheckBox quotingCheckBox1 \
	-text "Preeceed included (and indented) text with an attribution" \
	-help "Deselecting this gives you an empty information area before any included (and indented) message text. Default is to leave it unselected."

    Entry quotingEntry1 \
	-text "Attribution that should be used" \
	-textafter " (\"%s\" is sender)" \
	-default "Quoting %s:" \
	-width 17 \
	-help "Examples (\"%s\" as name given in \"From:\" and it not, the address):\n" \
	      "          \"%s writes:\"  or  \"%s said:\"  or  \"According to %s:\"\n" \
	      "          \"Quoting %s:\"\n"\
	      "Beware: in Ver2.4PL25 and the prior use only one occurence of \"%s\"!"



  ################################ Change #################################
    Change {
	if {$formatCheckBox1==0} {
		Disable editorOptionsEntry11
		Disable formatLabel2
	} else {
		Enable editorOptionsEntry11
		Enable formatLabel2
	}
	if {$quotingCheckBox1==0} {
		Disable quotingEntry1
	} else {
		Enable quotingEntry1
	}
    }

  ############################## Init / Save ##############################

    Init {
    }

    Save {
	print "\n# automatically copy message being replied to into buffer"
	if {$formatCheckBox17==0} {
		print "###autocopy = OFF"
	} else {
		print "autocopy = ON"
	}

	print "\n# prefix sequence for indenting included message text in outgoing messages"
	if {$formatCheckBox1==0} {
		print "prefix = "
	} else {
		if {$editorOptionsEntry11 == ">_"} {
			print "###prefix >_"
		} else {
			print "prefix = $editorOptionsEntry11"
		}
	}

	print "\n# attribution string for replies ('%s' is the author of original message)"
	if {$quotingCheckBox1==0 || $quotingEntry1==""} {
		print "###attribution = "
	} else {
		print "attribution = $quotingEntry1"
	}
    }
}

