DataMuseum.dk

top - metrics - download

    Length: 2037 (0x7f5)
    Names: »mailalias.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/mailalias.elc« 

Hex Dump

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 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 65 29 20 22 5c 0a 52 65 61 64 20 6d 61 69 6c   ┆es (&optional file) "\ Read mail┆
0x380…3a0 20 61 6c 69 61 73 65 73 20 66 72 6f 6d 20 7e 2f 2e 6d 61 69 6c 72 63 20 61 6e 64 20 73 65 74 20   ┆ aliases from ~/.mailrc and set ┆
0x3a0…3c0 6d 61 69 6c 2d 61 6c 69 61 73 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 08 86 06 00   ┆mail-aliases." (byte-code "     ┆
0x3c0…3e0 c9 21 89 10 88 c2 70 1b 19 ca 8e cb cc 21 89 11 88 cd 09 21 88 09 71 88 ce 08 21 83 32 00 8a ce   ┆ !    p      !     !  q   ! 2   ┆
0x3e0…400 08 21 71 88 cf 65 64 5c 22 29 63 82 3c 00 d0 08 21 3f 86 3c 00 d1 08 21 88 64 62 88 68 d2 3d 86   ┆ !q  ed\")c <   !? <   ! db h = ┆
0x400…420 48 00 d3 20 88 65 62 88 6d 3f 85 6e 00 d4 20 88 68 d5 55 83 67 00 d6 d7 21 88 d6 d8 21 88 d9 63   ┆H    eb m? n    h U g   !   !  c┆
0x420…440 82 6a 00 da d8 21 88 82 4c 00 88 65 62 88 db dc c2 c4 23 86 7f 00 db dd c2 c4 23 85 a6 00 db de   ┆ j   !  L  eb     #       #     ┆
0x440…460 21 88 cf df e0 21 e1 e0 21 5c 22 1d e2 e3 21 88 60 1e 06 d4 20 88 e4 0d cf 0e 06 60 5c 22 5c 22   ┆!    !  !\"   ! `          `\"\"┆
0x460…480 2a 88 82 72 00 88 0e 07 29 2a 87 22 20 5b 66 69 6c 65 20 62 75 66 66 65 72 20 6e 69 6c 20 6f 62   ┆*  r    )* " [file buffer nil ob┆
0x480…4a0 75 66 20 74 20 6e 61 6d 65 20 73 74 61 72 74 20 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 65 78 70   ┆uf t name start mail-aliases exp┆
0x4a0…4c0 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 7e 2f 2e 6d 61 69 6c 72 63 22 20 28 28 62 79 74 65   ┆and-file-name "~/.mailrc" ((byte┆
0x4c0…4e0 2d 63 6f 64 65 20 22 08 85 07 00 c2 08 21 88 09 71 87 22 20 5b 62 75 66 66 65 72 20 6f 62 75 66   ┆-code "      !  q " [buffer obuf┆
0x4e0…500 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 29 29 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62   ┆ kill-buffer] 2)) generate-new-b┆
0x500…520 75 66 66 65 72 20 22 6d 61 69 6c 72 63 22 20 62 75 66 66 65 72 2d 66 6c 75 73 68 2d 75 6e 64 6f   ┆uffer "mailrc" buffer-flush-undo┆
0x520…540 20 67 65 74 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e   ┆ get-file-buffer buffer-substrin┆
0x540…560 67 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74   ┆g file-exists-p insert-file-cont┆
0x560…580 65 6e 74 73 20 31 30 20 6e 65 77 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 39 32 20 64   ┆ents 10 newline end-of-line 92 d┆
0x580…5a0 65 6c 65 74 65 2d 63 68 61 72 20 2d 31 20 31 20 33 32 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20   ┆elete-char -1 1 32 forward-char ┆
0x5a0…5c0 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 61 5c 5c 28 6c 69 61 73 5c 5c 7c 5c   ┆re-search-forward "^a\\(lias\\|\┆
0x5c0…5e0 5c 29 5b 20 09 5d 2b 22 20 22 5e 67 5c 5c 28 72 6f 75 70 5c 5c 7c 5c 5c 29 5b 20 09 5d 2b 22 20   ┆\)[  ]+" "^g\\(roup\\|\\)[  ]+" ┆
0x5e0…600 22 5b 5e 20 09 5d 2b 22 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 20 6d 61 74 63 68   ┆"[^  ]+" match-beginning 0 match┆
0x600…620 2d 65 6e 64 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 64 65 66   ┆-end skip-chars-forward "  " def┆
0x620…640 69 6e 65 2d 6d 61 69 6c 2d 61 6c 69 61 73 5d 20 32 37 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66   ┆ine-mail-alias] 27))  (defun def┆
0x640…660 69 6e 65 2d 6d 61 69 6c 2d 61 6c 69 61 73 20 28 6e 61 6d 65 20 64 65 66 69 6e 69 74 69 6f 6e 29   ┆ine-mail-alias (name definition)┆
0x660…680 20 22 5c 0a 44 65 66 69 6e 65 20 4e 41 4d 45 20 61 73 20 61 20 6d 61 69 6c 2d 61 6c 69 61 73 20   ┆ "\ Define NAME as a mail-alias ┆
0x680…6a0 74 68 61 74 20 74 72 61 6e 73 6c 61 74 65 73 20 74 6f 20 44 45 46 49 4e 49 54 49 4f 4e 2e 22 20   ┆that translates to DEFINITION." ┆
0x6a0…6c0 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 44 65 66 69 6e 65 20 6d 61 69 6c 20 61 6c 69 61 73   ┆(interactive "sDefine mail alias┆
0x6c0…6e0 3a 20 0a 73 44 65 66 69 6e 65 20 25 73 20 61 73 20 6d 61 69 6c 20 61 6c 69 61 73 20 66 6f 72 3a   ┆:  sDefine %s as mail alias for:┆
0x6e0…700 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08 c1 3d 85 14 00 c2 89 10 88 c6 c7 21 85   ┆ ") (byte-code "    =         ! ┆
0x700…720 14 00 c8 20 88 c2 1b c9 ca 0c 0b 23 89 13 85 4d 00 cb cc 21 0c 47 55 83 34 00 0c cc 0b 54 4f 89   ┆           #   M   ! GU 4    TO ┆
0x720…740 14 82 49 00 0c cc 0b 54 4f cd 0c cb cc 21 c2 4f 51 89 14 88 ce 0b 5c 5c 89 13 88 82 17 00 88 cf   ┆  I    TO    ! OQ     \\        ┆
0x740…760 0d 08 5c 22 89 13 88 0b 83 60 00 d0 0b 0c 5c 22 82 67 00 0d 0c 42 08 42 89 10 29 87 22 20 5b 6d   ┆  \"     `    \" g   B B  ) " [m┆
0x760…780 61 69 6c 2d 61 6c 69 61 73 65 73 20 74 20 6e 69 6c 20 74 65 6d 20 64 65 66 69 6e 69 74 69 6f 6e   ┆ail-aliases t nil tem definition┆
0x780…7a0 20 6e 61 6d 65 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 22 7e 2f 2e 6d 61 69 6c 72 63 22 20   ┆ name file-exists-p "~/.mailrc" ┆
0x7a0…7c0 62 75 69 6c 64 2d 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20   ┆build-mail-aliases string-match ┆
0x7c0…7e0 22 5b 5e 20 09 2c 5d 5b 20 09 2c 5d 2b 22 20 6d 61 74 63 68 2d 65 6e 64 20 30 20 22 2c 20 22 20   ┆"[^  ,][  ,]+" match-end 0 ", " ┆
0x7e0…7f5 33 20 61 73 73 6f 63 20 72 70 6c 61 63 64 5d 20 31 31 29 29 0a   ┆3 assoc rplacd] 11)) ┆