blob: 441d0678a6a2a2d7bb9e282609067abc96f84143 (plain)

ofs	hex dump	ascii
0000	0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 72 6d 61 69 6c 29 29 0a 0a 28 64 65 66 76 61	.(require.(quote.rmail))..(defva
0020	72 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 72 6d 61 69 6c	r.rmail-edit-map.nil)..(if.rmail
0040	2d 65 64 69 74 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d	-edit-map.nil.(setq.rmail-edit-m
0060	61 70 20 28 63 6f 70 79 2d 6b 65 79 6d 61 70 20 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 29 29 20	ap.(copy-keymap.text-mode-map)).
0080	28 64 65 66 69 6e 65 2d 6b 65 79 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 61 70 20 22 03 03 22 20	(define-key.rmail-edit-map."..".
00a0	28 71 75 6f 74 65 20 72 6d 61 69 6c 2d 63 65 61 73 65 2d 65 64 69 74 29 29 20 28 64 65 66 69 6e	(quote.rmail-cease-edit)).(defin
00c0	65 2d 6b 65 79 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 61 70 20 22 03 1d 22 20 28 71 75 6f 74 65	e-key.rmail-edit-map."..".(quote
00e0	20 72 6d 61 69 6c 2d 61 62 6f 72 74 2d 65 64 69 74 29 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74	.rmail-abort-edit)))..(put.(quot
0100	65 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 6f 64 65 29 20 28 71 75 6f 74 65 20 6d 6f 64 65 2d 63	e.rmail-edit-mode).(quote.mode-c
0120	6c 61 73 73 29 20 28 71 75 6f 74 65 20 73 70 65 63 69 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 72	lass).(quote.special))..(defun.r
0140	6d 61 69 6c 2d 65 64 69 74 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65	mail-edit-mode.nil."\.Major.mode
0160	20 66 6f 72 20 65 64 69 74 69 6e 67 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 61 6e 20	.for.editing.the.contents.of.an.
0180	52 4d 41 49 4c 20 6d 65 73 73 61 67 65 2e 0a 54 68 65 20 65 64 69 74 69 6e 67 20 63 6f 6d 6d 61	RMAIL.message..The.editing.comma
01a0	6e 64 73 20 61 72 65 20 74 68 65 20 73 61 6d 65 20 61 73 20 69 6e 20 54 65 78 74 20 6d 6f 64 65	nds.are.the.same.as.in.Text.mode
01c0	2c 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 74 77 6f 20 63 6f 6d 6d 61 6e 64 73 0a 74 6f 20	,.together.with.two.commands.to.
01e0	72 65 74 75 72 6e 20 74 6f 20 72 65 67 75 6c 61 72 20 52 4d 41 49 4c 3a 0a 20 20 2a 20 20 72 6d	return.to.regular.RMAIL:...*..rm
0200	61 69 6c 2d 61 62 6f 72 74 2d 65 64 69 74 20 63 61 6e 63 65 6c 73 20 74 68 65 20 63 68 61 6e 67	ail-abort-edit.cancels.the.chang
0220	65 73 0a 20 20 20 20 20 79 6f 75 20 68 61 76 65 20 6d 61 64 65 20 61 6e 64 20 72 65 74 75 72 6e	es......you.have.made.and.return
0240	73 20 74 6f 20 52 4d 41 49 4c 0a 20 20 2a 20 20 72 6d 61 69 6c 2d 63 65 61 73 65 2d 65 64 69 74	s.to.RMAIL...*..rmail-cease-edit
0260	20 6d 61 6b 65 73 20 74 68 65 6d 20 70 65 72 6d 61 6e 65 6e 74 2e 0a 5c 5c 7b 72 6d 61 69 6c 2d	.makes.them.permanent..\\{rmail-
0280	65 64 69 74 2d 6d 61 70 7d 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 08 21 88 c6 89 11 88 c7	edit-map}".(byte-code."..!......
02a0	89 12 88 c8 c3 21 83 1a 00 c9 c3 21 89 13 82 1f 00 c9 c4 21 89 14 88 ca cb cc 5c 22 87 22 20 5b	.....!.....!.......!......\".".[
02c0	72 6d 61 69 6c 2d 65 64 69 74 2d 6d 61 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e	rmail-edit-map.major-mode.mode-n
02e0	61 6d 65 20 6d 6f 64 65 2d 6c 69 6e 65 2d 6d 6f 64 69 66 69 65 64 20 6d 6f 64 65 2d 6c 69 6e 65	ame.mode-line-modified.mode-line
0300	2d 66 6f 72 6d 61 74 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 72 6d 61 69 6c 2d 65 64 69 74	-format.use-local-map.rmail-edit
0320	2d 6d 6f 64 65 20 22 52 4d 41 49 4c 20 45 64 69 74 22 20 62 6f 75 6e 64 70 20 64 65 66 61 75 6c	-mode."RMAIL.Edit".boundp.defaul
0340	74 2d 76 61 6c 75 65 20 72 75 6e 2d 68 6f 6f 6b 73 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b	t-value.run-hooks.text-mode-hook
0360	20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 37 29 29 0a 0a 28 64 65 66	.rmail-edit-mode-hook].7))..(def
0380	75 6e 20 72 6d 61 69 6c 2d 65 64 69 74 2d 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 6e 69	un.rmail-edit-current-message.ni
03a0	6c 20 22 5c 0a 45 64 69 74 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 69 73 20 6d	l."\.Edit.the.contents.of.this.m
03c0	65 73 73 61 67 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64	essage.".(interactive).(byte-cod
03e0	65 20 22 c2 88 c3 20 88 c4 c0 21 88 c5 65 64 5c 22 89 10 88 c2 89 11 88 c6 c7 20 21 88 c8 c9 21	e.".......!..ed\"..........!...!
0400	ca 3d 85 26 00 c8 cb 21 cc 3d 83 2f 00 cd ce 21 82 34 00 cd cf d0 21 21 87 22 20 5b 72 6d 61 69	.=.&...!.=./...!.4....!!.".[rmai
0420	6c 2d 6f 6c 64 2d 74 65 78 74 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20	l-old-text.buffer-read-only.nil.
0440	72 6d 61 69 6c 2d 65 64 69 74 2d 6d 6f 64 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61	rmail-edit-mode.make-local-varia
0460	62 6c 65 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 73 65 74 2d 62 75 66 66 65 72 2d	ble.buffer-substring.set-buffer-
0480	6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 6b 65 79	modified-p.buffer-modified-p.key
04a0	2d 62 69 6e 64 69 6e 67 20 22 03 03 22 20 72 6d 61 69 6c 2d 63 65 61 73 65 2d 65 64 69 74 20 22	-binding."..".rmail-cease-edit."
04c0	03 1d 22 20 72 6d 61 69 6c 2d 61 62 6f 72 74 2d 65 64 69 74 20 6d 65 73 73 61 67 65 20 22 45 64	..".rmail-abort-edit.message."Ed
04e0	69 74 69 6e 67 3a 20 54 79 70 65 20 43 2d 63 20 43 2d 63 20 74 6f 20 72 65 74 75 72 6e 20 74 6f	iting:.Type.C-c.C-c.to.return.to
0500	20 52 6d 61 69 6c 2c 20 43 2d 63 20 43 2d 5d 20 74 6f 20 61 62 6f 72 74 22 20 73 75 62 73 74 69	.Rmail,.C-c.C-].to.abort".substi
0520	74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 22 45 64 69 74 69 6e 67 3a 20 54 79 70 65	tute-command-keys."Editing:.Type
0540	20 5c 5c 5b 72 6d 61 69 6c 2d 63 65 61 73 65 2d 65 64 69 74 5d 20 74 6f 20 72 65 74 75 72 6e 20	.\\[rmail-cease-edit].to.return.
0560	74 6f 20 52 6d 61 69 6c 2c 20 5c 5c 5b 72 6d 61 69 6c 2d 61 62 6f 72 74 2d 65 64 69 74 5d 20 74	to.Rmail,.\\[rmail-abort-edit].t
0580	6f 20 61 62 6f 72 74 22 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 63 65 61	o.abort"].11))..(defun.rmail-cea
05a0	73 65 2d 65 64 69 74 20 6e 69 6c 20 22 5c 0a 46 69 6e 69 73 68 20 65 64 69 74 69 6e 67 20 6d 65	se-edit.nil."\.Finish.editing.me
05c0	73 73 61 67 65 3b 20 73 77 69 74 63 68 20 62 61 63 6b 20 74 6f 20 52 6d 61 69 6c 20 70 72 6f 70	ssage;.switch.back.to.Rmail.prop
05e0	65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4	er.".(interactive).(byte-code.".
0600	88 8a 64 62 88 c8 68 c9 5c 22 85 0f 00 ca 63 88 cb 08 09 54 48 60 5c 22 29 88 0b 1a cc cd 20 21	..db..h.\"....c....TH`\")......!
0620	88 ce 20 88 0a 47 64 65 5a 55 85 33 00 cf 0a d0 65 64 5c 22 5c 22 83 3a 00 c4 82 58 00 c4 89 12	.....GdeZU.3....ed\"\".:...X....
0640	88 d1 d2 c5 5c 22 88 d3 c6 21 85 58 00 0e 06 09 53 c4 49 88 8a d4 d5 21 88 d6 20 29 29 88 c5 89	....\"...!.X....S.I....!...))...
0660	16 07 87 22 20 5b 72 6d 61 69 6c 2d 6d 65 73 73 61 67 65 2d 76 65 63 74 6f 72 20 72 6d 61 69 6c	...".[rmail-message-vector.rmail
0680	2d 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 6f 6c 64 20 72 6d 61 69 6c 2d 6f 6c 64 2d 74	-current-message.old.rmail-old-t
06a0	65 78 74 20 6e 69 6c 20 74 20 72 6d 61 69 6c 2d 73 75 6d 6d 61 72 79 2d 76 65 63 74 6f 72 20 62	ext.nil.t.rmail-summary-vector.b
06c0	75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 2f 3d 20 31 30 20 22 0a 22 20 73 65 74 2d 6d 61	uffer-read-only./=.10.".".set-ma
06e0	72 6b 65 72 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65	rker.set-buffer-modified-p.buffe
0700	72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 72 6d 61 69 6c 2d 6d 6f 64 65 2d 31 20 73 74 72 69 6e 67	r-modified-p.rmail-mode-1.string
0720	3d 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 72 6d 61 69 6c 2d 73 65 74 2d 61 74 74	=.buffer-substring.rmail-set-att
0740	72 69 62 75 74 65 20 22 65 64 69 74 65 64 22 20 62 6f 75 6e 64 70 20 72 6d 61 69 6c 2d 77 69 64	ribute."edited".boundp.rmail-wid
0760	65 6e 2d 74 6f 2d 63 75 72 72 65 6e 74 2d 6d 73 67 62 65 67 20 28 6c 61 6d 62 64 61 20 6e 69 6c	en-to-current-msgbeg.(lambda.nil
0780	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 88 c4 c5 21 85 15 00 c1 18 c6 60 c2 c7 21 88 60	.(byte-code."..!...!......`..!.`
07a0	5c 22 29 87 22 20 5b 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 66 6f 72 77	\").".[buffer-read-only.nil.forw
07c0	61 72 64 2d 6c 69 6e 65 20 32 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 53 75 6d 6d 61 72 79 2d 6c	ard-line.2.looking-at."Summary-l
07e0	69 6e 65 3a 20 22 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 31 5d 20 36 29 29 20 72 6d 61 69	ine:.".delete-region.1].6)).rmai
0800	6c 2d 73 68 6f 77 2d 6d 65 73 73 61 67 65 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61	l-show-message].13))..(defun.rma
0820	69 6c 2d 61 62 6f 72 74 2d 65 64 69 74 20 6e 69 6c 20 22 5c 0a 41 62 6f 72 74 20 65 64 69 74 20	il-abort-edit.nil."\.Abort.edit.
0840	6f 66 20 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 3b 20 72 65 73 74 6f 72 65 20 6f 72 69 67	of.current.message;.restore.orig
0860	69 6e 61 6c 20 63 6f 6e 74 65 6e 74 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62	inal.contents.".(interactive).(b
0880	79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 65 64 5c 22 88 08 63 88 c3 20 87 22 20 5b 72 6d 61 69 6c	yte-code."...ed\"..c....".[rmail
08a0	2d 6f 6c 64 2d 74 65 78 74 20 6e 69 6c 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 72 6d 61 69	-old-text.nil.delete-region.rmai
08c0	6c 2d 63 65 61 73 65 2d 65 64 69 74 5d 20 33 29 29 0a	l-cease-edit].3)).