File: setmail

package info (click to toggle)
epic4 1%3A2.2-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,600 kB
  • ctags: 5,377
  • sloc: ansic: 55,723; makefile: 656; sh: 158; perl: 30
file content (32 lines) | stat: -rw-r--r-- 712 bytes parent folder | download | duplicates (11)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
# SetMail -- Here's the plan.
#
# When you have /set mail 1, you want to see (Mail).
# When you have /set mail 2, you want to see (Mail :%d).
# Where (Mail) is controlled by /set mail_format1
# And (Mail :%d) is controlled by /set mail_format2.
#
# This script is a good example of how to use /on set to add a new /set
# and change the default behavior of an existing /set to do something that
# you otherwise couldn't do! =)
#

@ mail.format1 = [ (Mail)]
@ mail.format2 = [ (Mail: %M)]

on -set "mail 1" {
	^set status_mail $mail.format1
}

on -set "mail 2" {
	^set status_mail $mail.format2
}

on -set "mail_format1 *" {
	@ mail.format1 = [$1-]
}

on -set "mail_format2 *" {
	@ mail.format2 = [$1-]
}

#hop'97