|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ r ┃
Length: 2188 (0x88c)
Names: »rmailout.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/rmailout.elc«
0x000…020 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┆ 0x020…040 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┆ 0x040…060 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 ┆ 0x060…080 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┆ 0x080…0a0 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┆ 0x0a0…0c0 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┆ 0x0c0…0e0 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┆ 0x0e0…100 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┆ 0x100…120 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┆ 0x120…140 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┆ 0x140…160 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┆ 0x160…180 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┆ 0x180…1a0 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 " ┆ 0x1a0…1c0 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┆ 0x1c0…1e0 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┆ 0x1e0…200 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┆ 0x200…220 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]┆ 0x220…240 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 " ! ┆ 0x240…260 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 ┆ 0x260…280 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┆ 0x280…2a0 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 # ┆ 0x2a0…2c0 b9 00 0e 06 71 88 c4 e0 c9 21 85 7e 00 0e 09 1e 0c 1e 0b 0e 0c 85 8e 00 dc 20 88 e1 64 64 5c 22 ┆ q ! ~ dd\"┆ 0x2c0…2e0 88 e2 0e 07 0e 08 0e 0a 23 88 0e 0c 85 b8 00 65 62 88 dc 20 88 e3 e4 21 88 e1 60 64 5c 22 88 65 ┆ # eb ! `d\" e┆ 0x2e0…300 54 62 88 e5 c5 21 88 e6 0e 0c 21 2a 2c 29 29 88 e7 e8 c5 5c 22 88 0e 0d 85 c9 00 e9 20 87 22 20 ┆Tb ! !*,)) \" " ┆ 0x300…320 5b 72 6d 61 69 6c 2d 6c 61 73 74 2d 72 6d 61 69 6c 2d 66 69 6c 65 20 66 69 6c 65 2d 6e 61 6d 65 ┆[rmail-last-rmail-file file-name┆ 0x320…340 20 66 69 6c 65 2d 62 75 66 66 65 72 20 72 65 71 75 69 72 65 2d 66 69 6e 61 6c 2d 6e 65 77 6c 69 ┆ file-buffer require-final-newli┆ 0x340…360 6e 65 20 6e 69 6c 20 74 20 62 75 66 20 63 75 72 20 62 65 67 20 72 6d 61 69 6c 2d 63 75 72 72 65 ┆ne nil t buf cur beg rmail-curre┆ 0x360…380 6e 74 2d 6d 65 73 73 61 67 65 20 65 6e 64 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 ┆nt-message end buffer-read-only ┆ 0x380…3a0 6d 73 67 20 72 6d 61 69 6c 2d 64 65 6c 65 74 65 2d 61 66 74 65 72 2d 6f 75 74 70 75 74 20 65 78 ┆msg rmail-delete-after-output ex┆ 0x3a0…3c0 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 72 6d 61 69 6c 2d 6d 61 79 62 65 2d 73 65 74 2d 6d ┆pand-file-name rmail-maybe-set-m┆ 0x3c0…3e0 65 73 73 61 67 65 2d 63 6f 75 6e 74 65 72 73 20 67 65 74 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 ┆essage-counters get-file-buffer ┆ 0x3e0…400 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 22 5c 22 22 20 22 ┆file-exists-p yes-or-no-p "\"" "┆ 0x400…420 5c 22 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 63 72 65 61 74 65 20 69 74 3f 20 22 20 ┆\" does not exist, create it? " ┆ 0x420…440 63 72 65 61 74 65 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 72 6d 61 69 6c 2d 69 6e 73 65 72 74 2d ┆create-file-buffer rmail-insert-┆ 0x440…460 72 6d 61 69 6c 2d 66 69 6c 65 2d 68 65 61 64 65 72 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 20 31 ┆rmail-file-header write-region 1┆ 0x460…480 20 6b 69 6c 6c 2d 62 75 66 66 65 72 20 65 72 72 6f 72 20 22 4f 75 74 70 75 74 20 66 69 6c 65 20 ┆ kill-buffer error "Output file ┆ 0x480…4a0 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 20 77 69 64 65 6e 20 72 6d 61 69 6c 2d 6d 73 67 62 ┆does not exist" widen rmail-msgb┆ 0x4a0…4c0 65 67 20 72 6d 61 69 6c 2d 6d 73 67 65 6e 64 20 61 70 70 65 6e 64 2d 74 6f 2d 66 69 6c 65 20 62 ┆eg rmail-msgend append-to-file b┆ 0x4c0…4e0 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 62 75 ┆oundp narrow-to-region insert-bu┆ 0x4e0…500 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 20 22 ┆ffer-substring search-backward "┆ 0x500…520 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 61 69 ┆ " rmail-count-new-messages rmai┆ 0x520…540 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 62 75 ┆l-show-message rmail-set-attribu┆ 0x540…560 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 64 5d ┆te "filed" rmail-delete-forward]┆ 0x560…580 20 32 37 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 6c 65 ┆ 27)) (defun rmail-output (file┆ 0x580…5a0 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 74 6f ┆-name) "\ Append this message to┆ 0x5a0…5c0 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 45 2e ┆ Unix mail file named FILE-NAME.┆ 0x5c0…5e0 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 c3 08 21 ┆" (interactive (byte-code " !┆ 0x5e0…600 c4 51 c5 08 21 08 23 43 87 22 20 5b 72 6d 61 69 6c 2d 6c 61 73 74 2d 66 69 6c 65 20 72 65 61 64 ┆ Q ! #C " [rmail-last-file read┆ 0x600…620 2d 66 69 6c 65 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 55 6e ┆-file-name "Output message to Un┆ 0x620…640 69 78 20 6d 61 69 6c 20 66 69 6c 65 3a 20 28 64 65 66 61 75 6c 74 20 22 20 66 69 6c 65 2d 6e 61 ┆ix mail file: (default " file-na┆ 0x640…660 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 22 29 20 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 ┆me-nondirectory ") " file-name-d┆ 0x660…680 69 72 65 63 74 6f 72 79 5d 20 36 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 88 c9 09 21 89 ┆irectory] 6)) (byte-code " ! ┆ 0x680…6a0 11 88 09 89 10 88 70 ca cb 21 c5 1c 1b 1a 8a 0b 71 88 cc 20 88 cd 0a 21 88 ce 63 88 65 62 88 cf ┆ p ! q ! c eb ┆ 0x6a0…6c0 d0 d1 d2 d3 21 21 d4 d5 20 ce 25 88 d6 d7 c6 c5 23 85 44 00 d8 d9 21 88 da 63 88 82 32 00 88 db ┆ !! % # D ! c 2 ┆ 0x6c0…6e0 65 64 09 23 29 88 dc 0b 21 2b 88 dd 0e 07 de 5c 22 85 65 00 df e0 c5 5c 22 88 0e 08 85 65 00 e1 ┆ed #) !+ \" e \" e ┆ 0x6e0…700 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 20 72 ┆ " [rmail-last-file file-name r┆ 0x700…720 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 68 20 ┆mailbuf tembuf case-fold-search ┆ 0x720…740 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 61 66 ┆t nil major-mode rmail-delete-af┆ 0x740…760 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 74 2d ┆ter-output expand-file-name get-┆ 0x760…780 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 65 72 ┆buffer-create " rmail-output" er┆ 0x780…7a0 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 72 69 ┆ase-buffer insert-buffer-substri┆ 0x7a0…7c0 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 73 74 72 69 70 ┆ng " " insert "From " mail-strip┆ 0x7c0…7e0 2d 71 75 6f 74 65 64 2d 6e 61 6d 65 73 20 6d 61 69 6c 2d 66 65 74 63 68 2d 66 69 65 6c 64 20 22 ┆-quoted-names mail-fetch-field "┆ 0x7e0…800 66 72 6f 6d 22 20 22 20 22 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 73 65 ┆from" " " current-time-string se┆ 0x800…820 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 0a 46 72 6f 6d 20 22 20 66 6f 72 77 61 72 64 2d 63 68 ┆arch-forward " From " forward-ch┆ 0x820…840 61 72 20 2d 35 20 36 32 20 61 70 70 65 6e 64 2d 74 6f 2d 66 69 6c 65 20 6b 69 6c 6c 2d 62 75 66 ┆ar -5 62 append-to-file kill-buf┆ 0x840…860 66 65 72 20 65 71 75 61 6c 20 72 6d 61 69 6c 2d 6d 6f 64 65 20 72 6d 61 69 6c 2d 73 65 74 2d 61 ┆fer equal rmail-mode rmail-set-a┆ 0x860…880 74 74 72 69 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 ┆ttribute "filed" rmail-delete-fo┆ 0x880…88c 72 77 61 72 64 5d 20 31 36 29 29 0a ┆rward] 16)) ┆