DataMuseum.dk

top - metrics - download

    Length: 1380 (0x564)
    Names: »undigest.elc«

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

Hex Dump

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 62   ┆ `d\"           !  e`\" db   ! b┆
0x120…140 00 d9 db 21 86 62 00 d9 dc 21 29 86 69 00 c4 dd 21 21 1e 08 8a 64 62 88 de df 21 88 e0 c1 1e 0a   ┆   ! b   !) i   !!   db   !     ┆
0x140…160 1e 09 0e 09 e1 56 85 84 00 0e 0a 3f 85 a6 00 e2 e3 21 88 0e 09 53 89 16 09 88 e4 e5 e6 e7 21 e8   ┆     V     ?     !   S        ! ┆
0x160…180 e9 52 21 85 a2 00 c5 89 16 0a 88 82 7a 00 88 0e 0a 3f 85 b0 00 c4 dd 21 2a 29 88 ea eb ec ed ee   ┆ R!         z    ?     !*)      ┆
0x180…1a0 5c 22 ef 51 21 88 f0 d5 21 88 8c d0 60 d3 d8 21 88 60 5c 22 88 d9 db 21 83 d5 00 c1 82 de 00 65   ┆\" Q!   !   `  ! `\"   !       e┆
0x1a0…1c0 62 88 f1 f2 0e 08 f3 23 29 88 ea d8 ec f4 ee 5c 22 ef 51 c1 c5 23 85 25 01 f0 f5 21 88 8c e4 f6   ┆b      #)      \" Q  # %   !    ┆
0x1c0…1e0 21 83 02 01 f1 f2 0e 08 d8 23 82 0c 01 d0 60 d3 d8 c1 f7 23 88 60 5c 22 88 d9 db 21 83 17 01 c1   ┆!        #    `    # `\"   !    ┆
0x1e0…200 82 20 01 65 62 88 f1 f2 0e 08 f3 23 29 88 82 e0 00 2b 29 88 c1 89 14 88 f8 f9 21 88 0b 1e 0b fa   ┆   eb      #)    +)       !     ┆
0x200…220 20 88 fb 0e 0b 21 88 fc 20 29 29 2a 87 22 20 5b 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79   ┆     !   ))* " [buffer-read-only┆
0x220…240 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 74 2d 6d 65   ┆ nil msg-string rmail-current-me┆
0x240…260 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 73 65 2d 66   ┆ssage error t fill-prefix case-f┆
0x260…280 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 20 66 6f 75   ┆old-search digest-name count fou┆
0x280…2a0 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 72 6d 61 69   ┆nd n widen buffer-substring rmai┆
0x2a0…2c0 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 2d 74 6f 2d   ┆l-msgbeg rmail-msgend narrow-to-┆
0x2c0…2e0 72 65 67 69 6f 6e 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 12 00 c2 65 64 54 5c 22 88 c3   ┆region ((byte-code "     edT\"  ┆
0x2e0…300 65 64 5c 22 88 c4 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   ┆ed\"   ! " [error rmail-current-┆
0x300…320 6d 65 73 73 61 67 65 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 64 65 6c 65 74 65 2d   ┆message narrow-to-region delete-┆
0x320…340 72 65 67 69 6f 6e 20 72 6d 61 69 6c 2d 73 68 6f 77 2d 6d 65 73 73 61 67 65 5d 20 34 29 29 20 64   ┆region rmail-show-message] 4)) d┆
0x340…360 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 0a 2a 2a   ┆elete-region search-forward " **┆
0x360…380 2a 20 45 4f 4f 48 20 2a 2a 2a 0a 22 20 22 1f 0c 0a 30 2c 20 75 6e 73 65 65 6e 2c 2c 0a 2a 2a 2a   ┆* EOOH *** " "   0, unseen,, ***┆
0x380…3a0 20 45 4f 4f 48 20 2a 2a 2a 0a 22 20 22 22 20 6d 61 69 6c 2d 73 74 72 69 70 2d 71 75 6f 74 65 64   ┆ EOOH *** " "" mail-strip-quoted┆
0x3a0…3c0 2d 6e 61 6d 65 73 20 22 0a 0a 22 20 6d 61 69 6c 2d 66 65 74 63 68 2d 66 69 65 6c 64 20 22 52 65   ┆-names "  " mail-fetch-field "Re┆
0x3c0…3e0 70 6c 79 2d 54 6f 22 20 22 54 6f 22 20 22 41 70 70 61 72 65 6e 74 6c 79 2d 54 6f 22 20 22 4d 65   ┆ply-To" "To" "Apparently-To" "Me┆
0x3e0…400 73 73 61 67 65 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   ┆ssage is not a digest" skip-char┆
0x400…420 73 2d 62 61 63 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   ┆s-backward "   " 10 0 forward-li┆
0x420…440 6e 65 20 2d 31 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   ┆ne -1 looking-at "End of.*Digest┆
0x440…460 2e 2a 0a 22 20 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   ┆.* " regexp-quote "*********" "*┆
0x460…480 22 20 22 5c 5c 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   ┆" "\\( ------*\\)*" re-search-fo┆
0x480…4a0 72 77 61 72 64 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   ┆rward "^" make-string 55 45 "-* ┆
0x4a0…4c0 2a 22 20 72 65 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   ┆*" replace-match insert "To: " "┆
0x4c0…4e0 0a 22 20 32 37 20 22 0a 0a 1f 0c 0a 30 2c 20 75 6e 73 65 65 6e 2c 2c 0a 2a 2a 2a 20 45 4f 4f 48   ┆ " 27 "     0, unseen,, *** EOOH┆
0x4e0…500 20 2a 2a 2a 0a 22 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   ┆ *** " "End " move message "Mess┆
0x500…520 61 67 65 20 73 75 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   ┆age successfully undigestified" ┆
0x520…540 72 6d 61 69 6c 2d 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   ┆rmail-forget-messages rmail-show┆
0x540…560 2d 6d 65 73 73 61 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   ┆-message rmail-delete-forward] 4┆
0x560…564 33 29 29 0a   ┆3)) ┆