### 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 viewingheaders {} {
    # Viewing / Headers
    Desc "When viewing messages, abandon some headers"
    ShortDesc "Viewing Headers"

### Behavior ###
    Header head3 -text "Exclude headers for a message from being displayed" \
	-background gray\
	-help "Have some message headers newer to be shown. Default is to have a weedout list."

    CheckBox actionMenuCheckBox00 \
	-text "enable the weedout list (ie. headers like \"From:\" and \"Message-id:\") to be read" \
	-help "Have a list of headers (as choosen below) which you never want to see."

    TextBox actionMenuEntry00 \
	-text "The following set of headers are never to be shown:" \
	-help "Add any headers you want without use of 'Enter'- the listed are only optional. You might want to add something like \"X400-Received\" or \"X-Vms-From\".\nExamples could be:\n\">From\" \"Path:\" \"Sent:\" \"Sender:\" \"In-Reply-To:\" \"References:\" \"Newsgroups:\" \"Received:\" \"Aparently-To\" \"Message-Id:\" \"Content-Type:\" \"X-Status\" \"From:\" \"Mailer:\" \"*end-of-user-headers*\"" \
	-height 5 

### title header information ###
    Header head15 \
	-text "Display a header \"title\" when viewing a message" \
	-background gray\
	-help "When viewing, put a title infront of message"

    CheckBox headersCheckBox12 \
	-text "Have the first line of a viewed message titled with the following:" \
	-help "When viewing a received message it's nice to have this informations in head of you (in case you forgotten since the main menu)."

    Label headersLabel12 \
	-text "               'MESSAGE #/total  FROM username           date time.'" \
	-help "This field can't be edited. Choose to have it displayed or not."


  ################################ Change #################################
    Change  {
	if {$actionMenuCheckBox00==1} {
		Enable actionMenuEntry00
	} {
		Disable actionMenuEntry00
	}
    }

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

    Init {
    }

    Save {
	print "\n# enable the weedout list to be read?"
	if {$actionMenuCheckBox00==0} {
		print "weed=OFF"
		print "\n# what headers I DON'T want to see, ever:"
		print "###weedout = \"*end-of-user-headers*\""
	} else {
		print "### weed=ON"
		print "\n# what headers I DON'T want to see, ever:"
    regsub -all {(
)} $actionMenuEntry00 " " str

		print "weedout = $str"
	}
	print "\n# display message title when displaying pages of message?"
	if {$headersCheckBox12==0} {
		print "titles=OFF"
	} else {
		print "### titles=ON"
	}
    }
}



