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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/bin/sh
#
# $Id: brk2pine.sh 761 2007-10-23 22:35:18Z hubert@u.washington.edu $
#
# T H E P I N E M A I L S Y S T E M
#
# Laurence Lundblade and Mike Seibel
# Networks and Distributed Computing
# Computing and Communications
# University of Washington
# Administration Building, AG-44
# Seattle, Washington, 98195, USA
# Internet: lgl@CAC.Washington.EDU
# mikes@CAC.Washington.EDU
#
# Please address all bugs and comments to "pine-bugs@cac.washington.edu"
#
#
# Pine and Pico are registered trademarks of the University of Washington.
# No commercial use of these trademarks may be made without prior written
# permission of the University of Washington.
#
# Pine, Pico, and Pilot software and its included text are Copyright
# 1989-1996 by the University of Washington.
#
# The full text of our legal notices is contained in the file called
# CPYRIGHT, included with this distribution.
#
#
# Pine is in part based on The Elm Mail System:
# ***********************************************************************
# * The Elm Mail System - Revision: 2.13 *
# * *
# * Copyright (c) 1986, 1987 Dave Taylor *
# * Copyright (c) 1988, 1989 USENET Community Trust *
# ***********************************************************************
#
#
#
# A filter to convert personal mail aliases in a .mailrc file into
# pine address book format.
#
# Usage: program [.mailrc] >> .addressbook
#
# Corey Satten, corey@cac.washington.edu, 9/25/91
#
sed -n '
# first fold continued lines (ending in \) into a single long line
/\\[ ]*$/ {
: more
s/\\//g
N
s/\n/ /
/\\/b more
}
# next convert all sequences of whitespace into single space
s/[ ][ ]*/ /g
# finally, reformat and print lines containing alias as the first word
/^ *alias / {
s/^ *alias \([!-~][!-~]*\) \(.*\)$/\1 \1 (\2)/
s/ /,/g
s/(\([^,]*\))/\1/
p
}
' ${*-$HOME/.mailrc}
|
