|
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: ┃ u ┃
Length: 1342 (0x53e)
Names: »undigest.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/undigest.elc«
0x000…020 0a 28 64 65 66 75 6e 20 75 6e 64 69 67 65 73 74 69 66 79 2d 72 6d 61 69 6c 2d 6d 65 73 73 61 67 ┆ (defun undigestify-rmail-messag┆ 0x020…040 65 20 6e 69 6c 20 22 5c 0a 42 72 65 61 6b 20 75 70 20 61 20 64 69 67 65 73 74 20 6d 65 73 73 61 ┆e nil "\ Break up a digest messa┆ 0x040…060 67 65 20 69 6e 74 6f 20 69 74 73 20 63 6f 6e 73 74 69 74 75 65 6e 74 20 6d 65 73 73 61 67 65 73 ┆ge into its constituent messages┆ 0x060…080 2e 0a 4c 65 61 76 65 73 20 6f 72 69 67 69 6e 61 6c 20 6d 65 73 73 61 67 65 2c 20 64 65 6c 65 74 ┆. Leaves original message, delet┆ 0x080…0a0 65 64 2c 20 62 65 66 6f 72 65 20 74 68 65 20 75 6e 64 69 67 65 73 74 69 66 69 65 64 20 6d 65 73 ┆ed, before the undigestified mes┆ 0x0a0…0c0 73 61 67 65 73 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 ┆sages." (interactive) (byte-code┆ 0x0c0…0e0 20 22 c1 88 cc 20 88 c1 cd ce 0b 21 cf 0b 21 5c 22 1a 18 cf 0b 21 62 88 d0 60 60 5c 22 88 0a 63 ┆ " ! !\" !b ``\" c┆ 0x0e0…100 88 d0 65 64 53 5c 22 2a 88 c5 c1 18 1c d1 8e 8c 65 62 88 d2 65 d3 d4 21 88 60 5c 22 88 d5 63 88 ┆ edS\"* eb e ! `\" c ┆ 0x100…120 d0 60 64 5c 22 88 d6 1e 06 c5 1e 07 d7 8c d3 d8 21 88 d0 65 60 5c 22 88 64 62 88 d9 da 21 86 5c ┆ `d\" ! e`\" db ! \┆ 0x120…140 5c 00 d9 db 21 29 86 63 00 c4 dc 21 21 1e 08 8a 64 62 88 dd de 21 88 df c1 1e 0a 1e 09 0e 09 e0 ┆\ !) c !! db ! ┆ 0x140…160 56 85 7e 00 0e 0a 3f 85 a4 00 e1 e2 21 88 0e 09 53 89 16 09 88 e3 e4 e5 e6 21 e7 e8 52 21 83 9f ┆V ~ ? ! S ! R! ┆ 0x160…180 00 c5 89 16 0a 82 a0 00 c1 88 82 74 00 88 0e 0a 3f 83 b1 00 c4 dc 21 82 b2 00 c1 2a 29 88 e9 ea ┆ t ? ! *) ┆ 0x180…1a0 eb ec ed 5c 22 ee 51 21 88 ef d5 21 88 8c d0 60 d3 d8 21 88 60 5c 22 88 d9 db 21 83 d7 00 c1 82 ┆ \" Q! ! ` ! `\" ! ┆ 0x1a0…1c0 e0 00 65 62 88 f0 f1 0e 08 f2 23 29 88 e9 d8 eb f3 ed 5c 22 ee 51 c1 c5 23 85 27 01 ef f4 21 88 ┆ eb #) \" Q # ' ! ┆ 0x1c0…1e0 8c e3 f5 21 83 04 01 f0 f1 0e 08 d8 23 82 0e 01 d0 60 d3 d8 c1 f6 23 88 60 5c 22 88 d9 db 21 83 ┆ ! # ` # `\" ! ┆ 0x1e0…200 19 01 c1 82 5c 22 01 65 62 88 f0 f1 0e 08 f2 23 29 88 82 e2 00 2b 29 88 c1 89 14 88 f7 f8 21 88 ┆ \" eb #) +) ! ┆ 0x200…220 0b 1e 0b f9 20 88 fa 0e 0b 21 88 fb 20 29 29 2a 87 22 20 5b 62 75 66 66 65 72 2d 72 65 61 64 2d ┆ ! ))* " [buffer-read-┆ 0x220…240 6f 6e 6c 79 20 6e 69 6c 20 6d 73 67 2d 73 74 72 69 6e 67 20 72 6d 61 69 6c 2d 63 75 72 72 65 6e ┆only nil msg-string rmail-curren┆ 0x240…260 74 2d 6d 65 73 73 61 67 65 20 65 72 72 6f 72 20 74 20 66 69 6c 6c 2d 70 72 65 66 69 78 20 63 61 ┆t-message error t fill-prefix ca┆ 0x260…280 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 64 69 67 65 73 74 2d 6e 61 6d 65 20 63 6f 75 6e 74 ┆se-fold-search digest-name count┆ 0x280…2a0 20 66 6f 75 6e 64 20 6e 20 77 69 64 65 6e 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 ┆ found n widen buffer-substring ┆ 0x2a0…2c0 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 6e 61 72 72 6f 77 ┆rmail-msgbeg rmail-msgend narrow┆ 0x2c0…2e0 2d 74 6f 2d 72 65 67 69 6f 6e 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 0c 00 c2 65 64 5c ┆-to-region ((byte-code " ed\┆ 0x2e0…300 22 88 c3 09 21 87 22 20 5b 65 72 72 6f 72 20 72 6d 61 69 6c 2d 63 75 72 72 65 6e 74 2d 6d 65 73 ┆" ! " [error rmail-current-mes┆ 0x300…320 73 61 67 65 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 72 6d 61 69 6c 2d 73 68 6f 77 2d 6d 65 ┆sage delete-region rmail-show-me┆ 0x320…340 73 73 61 67 65 5d 20 33 29 29 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 65 61 72 63 68 2d ┆ssage] 3)) delete-region search-┆ 0x340…360 66 6f 72 77 61 72 64 20 22 0a 2a 2a 2a 20 45 4f 4f 48 20 2a 2a 2a 0a 22 20 22 1f 0c 0a 30 2c 75 ┆forward " *** EOOH *** " " 0,u┆ 0x360…380 6e 73 65 65 6e 2c 2c 0a 2a 2a 2a 20 45 4f 4f 48 20 2a 2a 2a 0a 22 20 22 22 20 6d 61 69 6c 2d 73 ┆nseen,, *** EOOH *** " "" mail-s┆ 0x380…3a0 74 72 69 70 2d 71 75 6f 74 65 64 2d 6e 61 6d 65 73 20 22 0a 0a 22 20 6d 61 69 6c 2d 66 65 74 63 ┆trip-quoted-names " " mail-fetc┆ 0x3a0…3c0 68 2d 66 69 65 6c 64 20 22 52 65 70 6c 79 2d 54 6f 22 20 22 54 6f 22 20 22 4d 65 73 73 61 67 65 ┆h-field "Reply-To" "To" "Message┆ 0x3c0…3e0 20 69 73 20 6e 6f 74 20 61 20 64 69 67 65 73 74 22 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 ┆ is not a digest" skip-chars-bac┆ 0x3e0…400 6b 77 61 72 64 20 22 20 09 0a 22 20 31 30 20 30 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 ┆kward " " 10 0 forward-line -1┆ 0x400…420 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 45 6e 64 20 6f 66 2e 2a 44 69 67 65 73 74 2e 2a 0a 22 20 ┆ looking-at "End of.*Digest.* " ┆ 0x420…440 72 65 67 65 78 70 2d 71 75 6f 74 65 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 20 22 2a 22 20 22 5c 5c ┆regexp-quote "*********" "*" "\\┆ 0x440…460 28 0a 2d 2d 2d 2d 2d 2d 2a 5c 5c 29 2a 22 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 ┆( ------*\\)*" re-search-forward┆ 0x460…480 20 22 5e 22 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 35 35 20 34 35 20 22 2d 2a 0a 2a 22 20 72 65 ┆ "^" make-string 55 45 "-* *" re┆ 0x480…4a0 70 6c 61 63 65 2d 6d 61 74 63 68 20 69 6e 73 65 72 74 20 22 54 6f 3a 20 22 20 22 0a 22 20 32 37 ┆place-match insert "To: " " " 27┆ 0x4a0…4c0 20 22 0a 0a 1f 0c 0a 30 2c 75 6e 73 65 65 6e 2c 2c 0a 2a 2a 2a 20 45 4f 4f 48 20 2a 2a 2a 0a 22 ┆ " 0,unseen,, *** EOOH *** "┆ 0x4c0…4e0 20 22 45 6e 64 20 22 20 6d 6f 76 65 20 6d 65 73 73 61 67 65 20 22 4d 65 73 73 61 67 65 20 73 75 ┆ "End " move message "Message su┆ 0x4e0…500 63 63 65 73 73 66 75 6c 6c 79 20 75 6e 64 69 67 65 73 74 69 66 69 65 64 22 20 72 6d 61 69 6c 2d ┆ccessfully undigestified" rmail-┆ 0x500…520 66 6f 72 67 65 74 2d 6d 65 73 73 61 67 65 73 20 72 6d 61 69 6c 2d 73 68 6f 77 2d 6d 65 73 73 61 ┆forget-messages rmail-show-messa┆ 0x520…53e 67 65 20 72 6d 61 69 6c 2d 64 65 6c 65 74 65 2d 66 6f 72 77 61 72 64 5d 20 34 32 29 29 0a ┆ge rmail-delete-forward] 42)) ┆