|
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: ┃ m ┃
Length: 1631 (0x65f)
Names: »mailalias.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/mailalias.elc«
0x000…020 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┆ 0x020…040 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┆ 0x040…060 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┆ 0x060…080 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┆ 0x080…0a0 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.┆ 0x0a0…0c0 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 ┆ 0x0c0…0e0 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 ┆ \" #) ! ` ┆ 0x0e0…100 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┆ 0x100…120 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 ┆ 0x120…140 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 ┆ 0x140…160 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 ┆ ! \" \"┆ 0x160…180 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 ┆ 0x180…1a0 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 ┆ 0x1a0…1c0 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 \". \") " [┆ 0x1c0…1e0 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-┆ 0x1e0…200 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┆ 0x200…220 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┆ 0x220…240 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┆ 0x240…260 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┆ 0x260…280 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┆ 0x280…2a0 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┆ 0x2a0…2c0 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┆ 0x2c0…2e0 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 "[ ┆ 0x2e0…300 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 ┆ 0x300…320 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┆ 0x320…340 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┆ 0x340…360 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┆ 0x360…380 65 73 20 6e 69 6c 20 22 5c 0a 52 65 61 64 20 6d 61 69 6c 20 61 6c 69 61 73 65 73 20 66 72 6f 6d ┆es nil "\ Read mail aliases from┆ 0x380…3a0 20 7e 2f 2e 6d 61 69 6c 72 63 20 61 6e 64 20 73 65 74 20 6d 61 69 6c 2d 61 6c 69 61 73 65 73 2e ┆ ~/.mailrc and set mail-aliases.┆ 0x3a0…3c0 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 c4 c4 c7 1b 1a 19 18 c8 0b 21 89 11 88 c9 8e ca 0b ┆" (byte-code " ! ┆ 0x3c0…3e0 21 3f 83 1d 00 c4 89 10 82 55 00 8a cb 0b 21 89 10 71 88 65 62 88 cc cd c4 c5 23 85 51 00 cc ce ┆!? U ! q eb # Q ┆ 0x3e0…400 21 88 cf d0 d1 21 d2 d1 21 5c 22 89 12 88 d3 d4 21 88 d5 0a cf 60 d6 20 88 60 5c 22 5c 22 88 82 ┆! ! !\" ! ` `\"\" ┆ 0x400…420 28 00 88 0e 06 29 29 2c 87 22 20 5b 62 75 66 66 65 72 20 65 78 69 73 74 73 20 6e 61 6d 65 20 66 ┆( )), " [buffer exists name f┆ 0x420…440 69 6c 65 20 6e 69 6c 20 74 20 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 22 7e 2f 2e 6d 61 69 6c 72 ┆ile nil t mail-aliases "~/.mailr┆ 0x440…460 63 22 20 67 65 74 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆c" get-file-buffer ((byte-code "┆ 0x460…480 08 86 0c 00 09 3f 86 0c 00 c2 09 21 87 22 20 5b 65 78 69 73 74 73 20 62 75 66 66 65 72 20 6b 69 ┆ ? ! " [exists buffer ki┆ 0x480…4a0 6c 6c 2d 62 75 66 66 65 72 5d 20 32 29 29 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6e ┆ll-buffer] 2)) file-exists-p fin┆ 0x4a0…4c0 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 ┆d-file-noselect re-search-forwar┆ 0x4c0…4e0 64 20 22 5e 61 6c 69 61 73 5b 20 09 5d 2a 5c 5c 7c 5e 61 5b 20 09 5d 2a 22 20 22 5b 5e 20 09 5d ┆d "^alias[ ]*\\|^a[ ]*" "[^ ]┆ 0x4e0…500 2b 22 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e ┆+" buffer-substring match-beginn┆ 0x500…520 69 6e 67 20 30 20 6d 61 74 63 68 2d 65 6e 64 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 ┆ing 0 match-end skip-chars-forwa┆ 0x520…540 72 64 20 22 20 09 22 20 64 65 66 69 6e 65 2d 6d 61 69 6c 2d 61 6c 69 61 73 20 65 6e 64 2d 6f 66 ┆rd " " define-mail-alias end-of┆ 0x540…560 2d 6c 69 6e 65 5d 20 31 36 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 6d 61 69 6c 2d ┆-line] 16)) (defun define-mail-┆ 0x560…580 61 6c 69 61 73 20 28 6e 61 6d 65 20 64 65 66 69 6e 69 74 69 6f 6e 29 20 22 5c 0a 44 65 66 69 6e ┆alias (name definition) "\ Defin┆ 0x580…5a0 65 20 4e 41 4d 45 20 61 73 20 61 20 6d 61 69 6c 2d 61 6c 69 61 73 20 74 68 61 74 20 74 72 61 6e ┆e NAME as a mail-alias that tran┆ 0x5a0…5c0 73 6c 61 74 65 73 20 74 6f 20 44 45 46 49 4e 49 54 49 4f 4e 2e 22 20 28 69 6e 74 65 72 61 63 74 ┆slates to DEFINITION." (interact┆ 0x5c0…5e0 69 76 65 20 22 73 44 65 66 69 6e 65 20 6d 61 69 6c 20 61 6c 69 61 73 3a 20 0a 73 44 65 66 69 6e ┆ive "sDefine mail alias: sDefin┆ 0x5e0…600 65 20 25 73 20 61 73 20 6d 61 69 6c 20 61 6c 69 61 73 20 66 6f 72 3a 20 22 29 20 28 62 79 74 65 ┆e %s as mail alias for: ") (byte┆ 0x600…620 2d 63 6f 64 65 20 22 c4 88 c5 09 0a 5c 22 18 08 83 12 00 c6 08 0b 5c 22 82 19 00 09 0b 42 0a 42 ┆-code " \" \" B B┆ 0x620…640 89 12 29 87 22 20 5b 61 65 6c 74 20 6e 61 6d 65 20 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 64 65 ┆ ) " [aelt name mail-aliases de┆ 0x640…65f 66 69 6e 69 74 69 6f 6e 20 6e 69 6c 20 61 73 73 6f 63 20 72 70 6c 61 63 64 5d 20 34 29 29 0a ┆finition nil assoc rplacd] 4)) ┆