blob: 8362ea92fe755997b6ec3984a5edff9789b19ff4 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 76 61 72 20 72 6d 61 69 6c 2d 64 65 6c 65 74 65 2d 61 66 74 65 72 2d 6f 75 74 70	.(defvar.rmail-delete-after-outp
0020	75 74 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 61 75 74 6f 6d 61 74	ut.nil."\.*Non-nil.means.automat
0040	69 63 61 6c 6c 79 20 64 65 6c 65 74 65 20 61 20 6d 65 73 73 61 67 65 20 74 68 61 74 20 69 73 20	ically.delete.a.message.that.is.
0060	63 6f 70 69 65 64 20 74 6f 20 61 20 66 69 6c 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69	copied.to.a.file.")..(defun.rmai
0080	6c 2d 6f 75 74 70 75 74 2d 74 6f 2d 72 6d 61 69 6c 2d 66 69 6c 65 20 28 66 69 6c 65 2d 6e 61 6d	l-output-to-rmail-file.(file-nam
00a0	65 29 20 22 5c 0a 41 70 70 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65	e)."\.Append.the.current.message
00c0	20 74 6f 20 61 6e 20 52 6d 61 69 6c 20 66 69 6c 65 20 6e 61 6d 65 64 20 46 49 4c 45 2d 4e 41 4d	.to.an.Rmail.file.named.FILE-NAM
00e0	45 2e 0a 49 66 20 74 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 61	E..If.the.file.does.not.exist,.a
0100	73 6b 20 69 66 20 69 74 20 73 68 6f 75 6c 64 20 62 65 20 63 72 65 61 74 65 64 2e 0a 49 66 20 66	sk.if.it.should.be.created..If.f
0120	69 6c 65 20 69 73 20 62 65 69 6e 67 20 76 69 73 69 74 65 64 2c 20 74 68 65 20 6d 65 73 73 61 67	ile.is.being.visited,.the.messag
0140	65 20 69 73 20 61 70 70 65 6e 64 65 64 20 74 6f 20 74 68 65 20 45 6d 61 63 73 0a 62 75 66 66 65	e.is.appended.to.the.Emacs.buffe
0160	72 20 76 69 73 69 74 69 6e 67 20 74 68 61 74 20 66 69 6c 65 2e 22 20 28 69 6e 74 65 72 61 63 74	r.visiting.that.file.".(interact
0180	69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 08 21 c4 51 c5 08 21 08 23 43 87 22 20	ive.(byte-code."....!.Q..!.#C.".
01a0	5b 72 6d 61 69 6c 2d 6c 61 73 74 2d 72 6d 61 69 6c 2d 66 69 6c 65 20 72 65 61 64 2d 66 69 6c 65	[rmail-last-rmail-file.read-file
01c0	2d 6e 61 6d 65 20 22 4f 75 74 70 75 74 20 6d 65 73 73 61 67 65 20 74 6f 20 52 6d 61 69 6c 20 66	-name."Output.message.to.Rmail.f
01e0	69 6c 65 3a 20 28 64 65 66 61 75 6c 74 20 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72	ile:.(default.".file-name-nondir
0200	65 63 74 6f 72 79 20 22 29 20 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 5d	ectory.").".file-name-directory]
0220	20 36 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 ce 09 21 89 11 88 09 89 10 88 cf 20 88	.6)).(byte-code."....!..........
0240	d0 09 21 86 45 00 d1 09 21 86 45 00 d2 d3 09 d4 51 21 83 42 00 d5 09 21 1a 8a 0a 71 88 d6 20 88	..!.E...!.E.....Q!.B...!...q....
0260	c4 1b d7 65 64 09 c5 d8 25 29 29 88 d9 0a 21 29 82 45 00 da db 21 88 8c dc 20 88 8a d0 09 21 70	...ed...%))...!).E...!........!p
0280	dd 0e 09 21 54 de 0e 09 21 54 1e 0a 1e 08 1e 07 1e 06 0e 06 3f 83 71 00 df 0e 08 0e 0a 09 23 82	...!T...!T..........?.q.......#.
02a0	c7 00 0e 06 70 3d 85 7b 00 da e0 21 88 0e 06 71 88 c4 e1 c9 21 85 89 00 0e 09 1e 0c 1e 0b 0e 0c	....p=.{...!...q....!...........
02c0	85 94 00 cf 20 88 dc 20 88 e2 64 64 5c 22 88 e3 0e 07 0e 08 0e 0a 23 88 0e 0c 85 c6 00 65 62 88	..........dd\"........#......eb.
02e0	dc 20 88 e4 e5 21 88 e2 60 64 5c 22 88 65 54 62 88 e6 c5 21 88 e7 0e 0c 21 2a 2c 29 29 88 e8 e9	.....!..`d\".eTb...!....!*,))...
0300	c5 5c 22 88 0e 0d 85 d7 00 ea 20 87 22 20 5b 72 6d 61 69 6c 2d 6c 61 73 74 2d 72 6d 61 69 6c 2d	.\".........".[rmail-last-rmail-
0320	66 69 6c 65 20 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 2d 62 75 66 66 65 72 20 72 65 71 75 69	file.file-name.file-buffer.requi
0340	72 65 2d 66 69 6e 61 6c 2d 6e 65 77 6c 69 6e 65 20 6e 69 6c 20 74 20 62 75 66 20 63 75 72 20 62	re-final-newline.nil.t.buf.cur.b
0360	65 67 20 72 6d 61 69 6c 2d 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 65 6e 64 20 62 75 66	eg.rmail-current-message.end.buf
0380	66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6d 73 67 20 72 6d 61 69 6c 2d 64 65 6c 65 74 65 2d 61	fer-read-only.msg.rmail-delete-a
03a0	66 74 65 72 2d 6f 75 74 70 75 74 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 72 6d 61	fter-output.expand-file-name.rma
03c0	69 6c 2d 6d 61 79 62 65 2d 73 65 74 2d 6d 65 73 73 61 67 65 2d 63 6f 75 6e 74 65 72 73 20 67 65	il-maybe-set-message-counters.ge
03e0	74 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 79 65 73 2d	t-file-buffer.file-exists-p.yes-
0400	6f 72 2d 6e 6f 2d 70 20 22 5c 22 22 20 22 5c 22 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c	or-no-p."\""."\".does.not.exist,
0420	20 63 72 65 61 74 65 20 69 74 3f 20 22 20 63 72 65 61 74 65 2d 66 69 6c 65 2d 62 75 66 66 65 72	.create.it?.".create-file-buffer
0440	20 72 6d 61 69 6c 2d 69 6e 73 65 72 74 2d 72 6d 61 69 6c 2d 66 69 6c 65 2d 68 65 61 64 65 72 20	.rmail-insert-rmail-file-header.
0460	77 72 69 74 65 2d 72 65 67 69 6f 6e 20 31 20 6b 69 6c 6c 2d 62 75 66 66 65 72 20 65 72 72 6f 72	write-region.1.kill-buffer.error
0480	20 22 4f 75 74 70 75 74 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 20 77 69	."Output.file.does.not.exist".wi
04a0	64 65 6e 20 72 6d 61 69 6c 2d 6d 73 67 62 65 67 20 72 6d 61 69 6c 2d 6d 73 67 65 6e 64 20 61 70	den.rmail-msgbeg.rmail-msgend.ap
04c0	70 65 6e 64 2d 74 6f 2d 66 69 6c 65 20 22 43 61 6e 27 74 20 6f 75 74 70 75 74 20 6d 65 73 73 61	pend-to-file."Can't.output.messa
04e0	67 65 20 74 6f 20 73 61 6d 65 20 66 69 6c 65 20 69 74 27 73 20 61 6c 72 65 61 64 79 20 69 6e 22	ge.to.same.file.it's.already.in"
0500	20 62 6f 75 6e 64 70 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 69 6e 73 65 72 74 2d	.boundp.narrow-to-region.insert-
0520	62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64	buffer-substring.search-backward
0540	20 22 1f 22 20 72 6d 61 69 6c 2d 63 6f 75 6e 74 2d 6e 65 77 2d 6d 65 73 73 61 67 65 73 20 72 6d	.".".rmail-count-new-messages.rm
0560	61 69 6c 2d 73 68 6f 77 2d 6d 65 73 73 61 67 65 20 72 6d 61 69 6c 2d 73 65 74 2d 61 74 74 72 69	ail-show-message.rmail-set-attri
0580	62 75 74 65 20 22 66 69 6c 65 64 22 20 72 6d 61 69 6c 2d 64 65 6c 65 74 65 2d 66 6f 72 77 61 72	bute."filed".rmail-delete-forwar
05a0	64 5d 20 32 39 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 6f 75 74 70 75 74 20 28 66 69	d].29))..(defun.rmail-output.(fi
05c0	6c 65 2d 6e 61 6d 65 29 20 22 5c 0a 41 70 70 65 6e 64 20 74 68 69 73 20 6d 65 73 73 61 67 65 20	le-name)."\.Append.this.message.
05e0	74 6f 20 55 6e 69 78 20 6d 61 69 6c 20 66 69 6c 65 20 6e 61 6d 65 64 20 46 49 4c 45 2d 4e 41 4d	to.Unix.mail.file.named.FILE-NAM
0600	45 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08	E.".(interactive.(byte-code."...
0620	83 0f 00 c3 c4 08 21 c5 51 82 10 00 c6 50 08 85 18 00 c7 08 21 08 23 43 87 22 20 5b 72 6d 61 69	......!.Q....P......!.#C.".[rmai
0640	6c 2d 6c 61 73 74 2d 66 69 6c 65 20 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 4f 75 74 70	l-last-file.read-file-name."Outp
0660	75 74 20 6d 65 73 73 61 67 65 20 74 6f 20 55 6e 69 78 20 6d 61 69 6c 20 66 69 6c 65 22 20 22 20	ut.message.to.Unix.mail.file".".
0680	28 64 65 66 61 75 6c 74 20 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72	(default.".file-name-nondirector
06a0	79 20 22 29 3a 20 22 20 22 3a 20 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79	y."):.".":.".file-name-directory
06c0	5d 20 36 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 88 c9 09 21 89 11 88 09 89 10 88 70 ca	].6)).(byte-code."....!.......p.
06e0	cb 21 c5 1c 1b 1a 8a 0b 71 88 cc 20 88 cd 0a 21 88 ce 63 88 65 62 88 cf d0 d1 d2 21 83 35 00 d3	.!......q......!..c.eb.....!.5..
0700	d1 d2 21 21 82 36 00 d4 d5 d6 20 ce 25 88 d7 d8 c6 c5 23 85 4e 00 d9 da 21 88 db 63 88 82 3c 00	..!!.6......%.....#.N...!..c..<.
0720	88 dc 65 64 09 23 29 88 dd 0b 21 2b 88 de 0e 07 df 5c 22 85 6f 00 e0 e1 c5 5c 22 88 0e 08 85 6f	..ed.#)...!+.....\".o....\"....o
0740	00 e2 20 87 22 20 5b 72 6d 61 69 6c 2d 6c 61 73 74 2d 66 69 6c 65 20 66 69 6c 65 2d 6e 61 6d 65	....".[rmail-last-file.file-name
0760	20 72 6d 61 69 6c 62 75 66 20 74 65 6d 62 75 66 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63	.rmailbuf.tembuf.case-fold-searc
0780	68 20 74 20 6e 69 6c 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 72 6d 61 69 6c 2d 64 65 6c 65 74 65 2d	h.t.nil.major-mode.rmail-delete-
07a0	61 66 74 65 72 2d 6f 75 74 70 75 74 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 67 65	after-output.expand-file-name.ge
07c0	74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 20 72 6d 61 69 6c 2d 6f 75 74 70 75 74 22 20	t-buffer-create.".rmail-output".
07e0	65 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 73 65 72 74 2d 62 75 66 66 65 72 2d 73 75 62 73 74	erase-buffer.insert-buffer-subst
0800	72 69 6e 67 20 22 0a 22 20 69 6e 73 65 72 74 20 22 46 72 6f 6d 20 22 20 6d 61 69 6c 2d 66 65 74	ring.".".insert."From.".mail-fet
0820	63 68 2d 66 69 65 6c 64 20 22 66 72 6f 6d 22 20 6d 61 69 6c 2d 73 74 72 69 70 2d 71 75 6f 74 65	ch-field."from".mail-strip-quote
0840	64 2d 6e 61 6d 65 73 20 22 75 6e 6b 6e 6f 77 6e 22 20 22 20 22 20 63 75 72 72 65 6e 74 2d 74 69	d-names."unknown".".".current-ti
0860	6d 65 2d 73 74 72 69 6e 67 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 0a 46 72 6f 6d 20	me-string.search-forward.".From.
0880	22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 35 20 36 32 20 61 70 70 65 6e 64 2d 74 6f 2d 66	".forward-char.-5.62.append-to-f
08a0	69 6c 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 20 65 71 75 61 6c 20 72 6d 61 69 6c 2d 6d 6f 64 65	ile.kill-buffer.equal.rmail-mode
08c0	20 72 6d 61 69 6c 2d 73 65 74 2d 61 74 74 72 69 62 75 74 65 20 22 66 69 6c 65 64 22 20 72 6d 61	.rmail-set-attribute."filed".rma
08e0	69 6c 2d 64 65 6c 65 74 65 2d 66 6f 72 77 61 72 64 5d 20 31 37 29 29 0a	il-delete-forward].17)).