blob: 1c79288dadd6dc4e0e3a3f8c09d2cf45d5163665 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 75 6e 20 65 78 70 61 6e 64 2d 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 28 62 65 67	.(defun.expand-mail-aliases.(beg
0020	20 65 6e 64 29 20 22 5c 0a 45 78 70 61 6e 64 20 61 6c 6c 20 6d 61 69 6c 20 61 6c 69 61 73 65 73	.end)."\.Expand.all.mail.aliases
0040	20 69 6e 20 73 75 69 74 61 62 6c 65 20 68 65 61 64 65 72 20 66 69 65 6c 64 73 20 66 6f 75 6e 64	.in.suitable.header.fields.found
0060	20 62 65 74 77 65 65 6e 20 42 45 47 20 61 6e 64 20 45 4e 44 2e 0a 53 75 69 74 61 62 6c 65 20 68	.between.BEG.and.END..Suitable.h
0080	65 61 64 65 72 20 66 69 65 6c 64 73 20 61 72 65 20 54 6f 2c 20 43 63 20 61 6e 64 20 42 63 63 2e	eader.fields.are.To,.Cc.and.Bcc.
00a0	22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c1 3d 85 0c 00 c2 89 10 88 ce 20 88 0b 62 88 cf d0	".(byte-code."..=...........b...
00c0	20 0c 5c 22 89 14 88 c2 1d c1 1d d1 d2 0c c1 23 29 85 00 01 d3 d4 21 88 60 c2 c2 c2 c2 c2 1e 0b	..\"...........#).....!.`.......
00e0	1e 0a 1e 09 1e 08 1e 07 1e 06 d1 d5 0c d6 23 88 d7 20 88 d8 d9 21 88 da 20 89 16 07 88 0e 06 62	..............#......!.........b
0100	88 60 0e 07 57 85 f4 00 60 89 16 08 88 0e 0b 85 6d 00 0e 08 0e 07 0e 0b 40 41 5a 56 85 7a 00 0e	.`..W...`.......m.......@AZV.z..
0120	0b 41 89 16 0b 88 82 5e 00 88 d1 db 0e 07 c1 23 83 93 00 dc dd 21 16 09 60 0e 09 5a 89 16 0a 82	.A.....^.......#.....!..`..Z....
0140	9d 00 de 0e 07 21 16 09 dd 89 16 0a 88 c2 df 0e 08 0e 09 5c 22 1e 0d 1e 0c e0 0e 0d 0e 0b 5c 22	.....!.............\".........\"
0160	3f 85 bc 00 e0 0e 0d 08 5c 22 41 89 16 0c 83 e7 00 0e 0d 0e 07 0e 09 5a 42 0e 0b 42 89 16 0b 88	?.......\"A............ZB..B....
0180	0e 08 62 88 0e 0c 63 88 e1 60 60 0e 09 0e 08 5a 5c 5c 5c 22 88 0e 08 62 82 ef 00 0e 09 62 88 e2	..b...c..``....Z\\\"...b.....b..
01a0	0e 0a 21 2a 88 82 52 00 88 cf 0e 07 c2 5c 22 2e 06 88 82 1a 00 88 cf 0c c2 5c 22 29 87 22 20 5b	..!*..R......\"..........\").".[
01c0	6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 74 20 6e 69 6c 20 62 65 67 20 65 6e 64 20 63 61 73 65 2d	mail-aliases.t.nil.beg.end.case-
01e0	66 6f 6c 64 2d 73 65 61 72 63 68 20 62 65 67 31 20 65 6e 64 31 20 70 6f 73 20 65 70 6f 73 20 73	fold-search.beg1.end1.pos.epos.s
0200	65 70 6c 65 6e 20 64 69 73 61 62 6c 65 64 2d 61 6c 69 61 73 65 73 20 74 72 61 6e 73 6c 61 74 69	eplen.disabled-aliases.translati
0220	6f 6e 20 73 74 72 69 6e 67 20 62 75 69 6c 64 2d 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 73 65 74	on.string.build-mail-aliases.set
0240	2d 6d 61 72 6b 65 72 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 20 72 65 2d 73 65 61 72 63 68 2d 66 6f	-marker.make-marker.re-search-fo
0260	72 77 61 72 64 20 22 5e 5c 5c 28 74 6f 5c 5c 7c 63 63 5c 5c 7c 62 63 63 5c 5c 29 3a 22 20 73 6b	rward."^\\(to\\|cc\\|bcc\\):".sk
0280	69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 22 5e 5b 5e 20 09 5d 22 20 6d	ip-chars-forward.".."."^[^..]".m
02a0	6f 76 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73	ove.beginning-of-line.skip-chars
02c0	2d 62 61 63 6b 77 61 72 64 20 22 20 09 0a 22 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 20 22 5b 20	-backward."...".point-marker."[.
02e0	09 5d 2a 5b 0a 2c 5d 5b 20 09 5d 2a 22 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 20	.]*[.,][..]*".match-beginning.0.
0300	6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67	marker-position.buffer-substring
0320	20 61 73 73 6f 63 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 63 68 61	.assoc.delete-region.forward-cha
0340	72 5d 20 32 32 29 29 0a 0a 28 64 65 66 75 6e 20 62 75 69 6c 64 2d 6d 61 69 6c 2d 61 6c 69 61 73	r].22))..(defun.build-mail-alias
0360	65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 65 29 20 22 5c 0a 52 65 61 64 20 6d 61 69 6c	es.(&optional.file)."\.Read.mail
0380	20 61 6c 69 61 73 65 73 20 66 72 6f 6d 20 7e 2f 2e 6d 61 69 6c 72 63 20 61 6e 64 20 73 65 74 20	.aliases.from.~/.mailrc.and.set.
03a0	6d 61 69 6c 2d 61 6c 69 61 73 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 08 86 06 00	mail-aliases.".(byte-code.".....
03c0	c9 21 89 10 88 c2 70 1b 19 ca 8e cb cc 21 89 11 88 cd 09 21 88 09 71 88 ce 08 21 83 32 00 8a ce	.!....p......!.....!..q...!.2...
03e0	08 21 71 88 cf 65 64 5c 22 29 63 82 3c 00 d0 08 21 3f 86 3c 00 d1 08 21 88 64 62 88 68 d2 3d 86	.!q..ed\")c.<...!?.<...!.db.h.=.
0400	48 00 d3 20 88 65 62 88 6d 3f 85 6e 00 d4 20 88 68 d5 55 83 67 00 d6 d7 21 88 d6 d8 21 88 d9 63	H....eb.m?.n....h.U.g...!...!..c
0420	82 6a 00 da d8 21 88 82 4c 00 88 65 62 88 db dc c2 c4 23 86 7f 00 db dd c2 c4 23 85 a6 00 db de	.j...!..L..eb.....#.......#.....
0440	21 88 cf df e0 21 e1 e0 21 5c 22 1d e2 e3 21 88 60 1e 06 d4 20 88 e4 0d cf 0e 06 60 5c 22 5c 22	!....!..!\"...!.`..........`\"\"
0460	2a 88 82 72 00 88 0e 07 29 2a 87 22 20 5b 66 69 6c 65 20 62 75 66 66 65 72 20 6e 69 6c 20 6f 62	*..r....)*.".[file.buffer.nil.ob
0480	75 66 20 74 20 6e 61 6d 65 20 73 74 61 72 74 20 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 65 78 70	uf.t.name.start.mail-aliases.exp
04a0	61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 7e 2f 2e 6d 61 69 6c 72 63 22 20 28 28 62 79 74 65	and-file-name."~/.mailrc".((byte
04c0	2d 63 6f 64 65 20 22 08 85 07 00 c2 08 21 88 09 71 87 22 20 5b 62 75 66 66 65 72 20 6f 62 75 66	-code."......!..q.".[buffer.obuf
04e0	20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 29 29 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62	.kill-buffer].2)).generate-new-b
0500	75 66 66 65 72 20 22 6d 61 69 6c 72 63 22 20 62 75 66 66 65 72 2d 66 6c 75 73 68 2d 75 6e 64 6f	uffer."mailrc".buffer-flush-undo
0520	20 67 65 74 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e	.get-file-buffer.buffer-substrin
0540	67 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74	g.file-exists-p.insert-file-cont
0560	65 6e 74 73 20 31 30 20 6e 65 77 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 39 32 20 64	ents.10.newline.end-of-line.92.d
0580	65 6c 65 74 65 2d 63 68 61 72 20 2d 31 20 31 20 33 32 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20	elete-char.-1.1.32.forward-char.
05a0	72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 61 5c 5c 28 6c 69 61 73 5c 5c 7c 5c	re-search-forward."^a\\(lias\\|\
05c0	5c 29 5b 20 09 5d 2b 22 20 22 5e 67 5c 5c 28 72 6f 75 70 5c 5c 7c 5c 5c 29 5b 20 09 5d 2b 22 20	\)[..]+"."^g\\(roup\\|\\)[..]+".
05e0	22 5b 5e 20 09 5d 2b 22 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 20 6d 61 74 63 68	"[^..]+".match-beginning.0.match
0600	2d 65 6e 64 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 64 65 66	-end.skip-chars-forward."..".def
0620	69 6e 65 2d 6d 61 69 6c 2d 61 6c 69 61 73 5d 20 32 37 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66	ine-mail-alias].27))..(defun.def
0640	69 6e 65 2d 6d 61 69 6c 2d 61 6c 69 61 73 20 28 6e 61 6d 65 20 64 65 66 69 6e 69 74 69 6f 6e 29	ine-mail-alias.(name.definition)
0660	20 22 5c 0a 44 65 66 69 6e 65 20 4e 41 4d 45 20 61 73 20 61 20 6d 61 69 6c 2d 61 6c 69 61 73 20	."\.Define.NAME.as.a.mail-alias.
0680	74 68 61 74 20 74 72 61 6e 73 6c 61 74 65 73 20 74 6f 20 44 45 46 49 4e 49 54 49 4f 4e 2e 22 20	that.translates.to.DEFINITION.".
06a0	28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 44 65 66 69 6e 65 20 6d 61 69 6c 20 61 6c 69 61 73	(interactive."sDefine.mail.alias
06c0	3a 20 0a 73 44 65 66 69 6e 65 20 25 73 20 61 73 20 6d 61 69 6c 20 61 6c 69 61 73 20 66 6f 72 3a	:..sDefine.%s.as.mail.alias.for:
06e0	20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08 c1 3d 85 14 00 c2 89 10 88 c6 c7 21 85	.").(byte-code."....=.........!.
0700	14 00 c8 20 88 c2 1b c9 ca 0c 0b 23 89 13 85 4d 00 cb cc 21 0c 47 55 83 34 00 0c cc 0b 54 4f 89	...........#...M...!.GU.4....TO.
0720	14 82 49 00 0c cc 0b 54 4f cd 0c cb cc 21 c2 4f 51 89 14 88 ce 0b 5c 5c 89 13 88 82 17 00 88 cf	..I....TO....!.OQ.....\\........
0740	0d 08 5c 22 89 13 88 0b 83 60 00 d0 0b 0c 5c 22 82 67 00 0d 0c 42 08 42 89 10 29 87 22 20 5b 6d	..\".....`....\".g...B.B..).".[m
0760	61 69 6c 2d 61 6c 69 61 73 65 73 20 74 20 6e 69 6c 20 74 65 6d 20 64 65 66 69 6e 69 74 69 6f 6e	ail-aliases.t.nil.tem.definition
0780	20 6e 61 6d 65 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 22 7e 2f 2e 6d 61 69 6c 72 63 22 20	.name.file-exists-p."~/.mailrc".
07a0	62 75 69 6c 64 2d 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20	build-mail-aliases.string-match.
07c0	22 5b 5e 20 09 2c 5d 5b 20 09 2c 5d 2b 22 20 6d 61 74 63 68 2d 65 6e 64 20 30 20 22 2c 20 22 20	"[^..,][..,]+".match-end.0.",.".
07e0	33 20 61 73 73 6f 63 20 72 70 6c 61 63 64 5d 20 31 31 29 29 0a	3.assoc.rplacd].11)).