DataMuseum.dk Presents historical artifacts from the history of: DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦6e034ad57⟧

    Length: 2258 (0x8d2)
    Names: »rmailedit.elc«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/rmailedit.elc« 

Hex Dump

0x000…020 0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 72 6d 61 69 6c 29 29 0a 0a 28 64 65 66 76 61   ┆ (require (quote rmail))  (defva┆
0x020…040 72 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 72 6d 61 69 6c   ┆r rmail-edit-map nil)  (if rmail┆
0x040…060 2d 65 64 69 74 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d   ┆-edit-map nil (setq rmail-edit-m┆
0x060…080 61 70 20 28 63 6f 70 79 2d 6b 65 79 6d 61 70 20 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 29 29 20   ┆ap (copy-keymap text-mode-map)) ┆
0x080…0a0 28 64 65 66 69 6e 65 2d 6b 65 79 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 61 70 20 22 03 03 22 20   ┆(define-key rmail-edit-map "  " ┆
0x0a0…0c0 28 71 75 6f 74 65 20 72 6d 61 69 6c 2d 63 65 61 73 65 2d 65 64 69 74 29 29 20 28 64 65 66 69 6e   ┆(quote rmail-cease-edit)) (defin┆
0x0c0…0e0 65 2d 6b 65 79 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 61 70 20 22 03 1d 22 20 28 71 75 6f 74 65   ┆e-key rmail-edit-map "  " (quote┆
0x0e0…100 20 72 6d 61 69 6c 2d 61 62 6f 72 74 2d 65 64 69 74 29 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74   ┆ rmail-abort-edit)))  (put (quot┆
0x100…120 65 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 6f 64 65 29 20 28 71 75 6f 74 65 20 6d 6f 64 65 2d 63   ┆e rmail-edit-mode) (quote mode-c┆
0x120…140 6c 61 73 73 29 20 28 71 75 6f 74 65 20 73 70 65 63 69 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 72   ┆lass) (quote special))  (defun r┆
0x140…160 6d 61 69 6c 2d 65 64 69 74 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65   ┆mail-edit-mode nil "\ Major mode┆
0x160…180 20 66 6f 72 20 65 64 69 74 69 6e 67 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 61 6e 20   ┆ for editing the contents of an ┆
0x180…1a0 52 4d 41 49 4c 20 6d 65 73 73 61 67 65 2e 0a 54 68 65 20 65 64 69 74 69 6e 67 20 63 6f 6d 6d 61   ┆RMAIL message. The editing comma┆
0x1a0…1c0 6e 64 73 20 61 72 65 20 74 68 65 20 73 61 6d 65 20 61 73 20 69 6e 20 54 65 78 74 20 6d 6f 64 65   ┆nds are the same as in Text mode┆
0x1c0…1e0 2c 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 74 77 6f 20 63 6f 6d 6d 61 6e 64 73 0a 74 6f 20   ┆, together with two commands to ┆
0x1e0…200 72 65 74 75 72 6e 20 74 6f 20 72 65 67 75 6c 61 72 20 52 4d 41 49 4c 3a 0a 20 20 2a 20 20 72 6d   ┆return to regular RMAIL:   *  rm┆
0x200…220 61 69 6c 2d 61 62 6f 72 74 2d 65 64 69 74 20 63 61 6e 63 65 6c 73 20 74 68 65 20 63 68 61 6e 67   ┆ail-abort-edit cancels the chang┆
0x220…240 65 73 0a 20 20 20 20 20 79 6f 75 20 68 61 76 65 20 6d 61 64 65 20 61 6e 64 20 72 65 74 75 72 6e   ┆es      you have made and return┆
0x240…260 73 20 74 6f 20 52 4d 41 49 4c 0a 20 20 2a 20 20 72 6d 61 69 6c 2d 63 65 61 73 65 2d 65 64 69 74   ┆s to RMAIL   *  rmail-cease-edit┆
0x260…280 20 6d 61 6b 65 73 20 74 68 65 6d 20 70 65 72 6d 61 6e 65 6e 74 2e 0a 5c 5c 7b 72 6d 61 69 6c 2d   ┆ makes them permanent. \\{rmail-┆
0x280…2a0 65 64 69 74 2d 6d 61 70 7d 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 08 21 88 c6 89 11 88 c7   ┆edit-map}" (byte-code "  !      ┆
0x2a0…2c0 89 12 88 c8 c3 21 83 1a 00 c9 c3 21 89 13 82 1f 00 c9 c4 21 89 14 88 ca cb cc 5c 22 87 22 20 5b   ┆     !     !       !      \" " [┆
0x2c0…2e0 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 61 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e   ┆rmail-edit-map major-mode mode-n┆
0x2e0…300 61 6d 65 20 6d 6f 64 65 2d 6c 69 6e 65 2d 6d 6f 64 69 66 69 65 64 20 6d 6f 64 65 2d 6c 69 6e 65   ┆ame mode-line-modified mode-line┆
0x300…320 2d 66 6f 72 6d 61 74 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 72 6d 61 69 6c 2d 65 64 69 74   ┆-format use-local-map rmail-edit┆
0x320…340 2d 6d 6f 64 65 20 22 52 4d 41 49 4c 20 45 64 69 74 22 20 62 6f 75 6e 64 70 20 64 65 66 61 75 6c   ┆-mode "RMAIL Edit" boundp defaul┆
0x340…360 74 2d 76 61 6c 75 65 20 72 75 6e 2d 68 6f 6f 6b 73 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b   ┆t-value run-hooks text-mode-hook┆
0x360…380 20 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 37 29 29 0a 0a 28 64 65 66   ┆ rmail-edit-mode-hook] 7))  (def┆
0x380…3a0 75 6e 20 72 6d 61 69 6c 2d 65 64 69 74 2d 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 6e 69   ┆un rmail-edit-current-message ni┆
0x3a0…3c0 6c 20 22 5c 0a 45 64 69 74 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 69 73 20 6d   ┆l "\ Edit the contents of this m┆
0x3c0…3e0 65 73 73 61 67 65 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   ┆essage." (interactive) (byte-cod┆
0x3e0…400 65 20 22 c2 88 c3 20 88 c4 c0 21 88 c5 65 64 5c 22 89 10 88 c2 89 11 88 c6 c7 20 21 88 c8 c9 21   ┆e "       !  ed\"          !   !┆
0x400…420 ca 3d 85 26 00 c8 cb 21 cc 3d 83 2f 00 cd ce 21 82 34 00 cd cf d0 21 21 87 22 20 5b 72 6d 61 69   ┆ = &   ! = /   ! 4    !! " [rmai┆
0x420…440 6c 2d 6f 6c 64 2d 74 65 78 74 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20   ┆l-old-text buffer-read-only nil ┆
0x440…460 72 6d 61 69 6c 2d 65 64 69 74 2d 6d 6f 64 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61   ┆rmail-edit-mode make-local-varia┆
0x460…480 62 6c 65 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 73 65 74 2d 62 75 66 66 65 72 2d   ┆ble buffer-substring set-buffer-┆
0x480…4a0 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 6b 65 79   ┆modified-p buffer-modified-p key┆
0x4a0…4c0 2d 62 69 6e 64 69 6e 67 20 22 03 03 22 20 72 6d 61 69 6c 2d 63 65 61 73 65 2d 65 64 69 74 20 22   ┆-binding "  " rmail-cease-edit "┆
0x4c0…4e0 03 1d 22 20 72 6d 61 69 6c 2d 61 62 6f 72 74 2d 65 64 69 74 20 6d 65 73 73 61 67 65 20 22 45 64   ┆  " rmail-abort-edit message "Ed┆
0x4e0…500 69 74 69 6e 67 3a 20 54 79 70 65 20 43 2d 63 20 43 2d 63 20 74 6f 20 72 65 74 75 72 6e 20 74 6f   ┆iting: Type C-c C-c to return to┆
0x500…520 20 52 6d 61 69 6c 2c 20 43 2d 63 20 43 2d 5d 20 74 6f 20 61 62 6f 72 74 22 20 73 75 62 73 74 69   ┆ Rmail, C-c C-] to abort" substi┆
0x520…540 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 22 45 64 69 74 69 6e 67 3a 20 54 79 70 65   ┆tute-command-keys "Editing: Type┆
0x540…560 20 5c 5c 5b 72 6d 61 69 6c 2d 63 65 61 73 65 2d 65 64 69 74 5d 20 74 6f 20 72 65 74 75 72 6e 20   ┆ \\[rmail-cease-edit] to return ┆
0x560…580 74 6f 20 52 6d 61 69 6c 2c 20 5c 5c 5b 72 6d 61 69 6c 2d 61 62 6f 72 74 2d 65 64 69 74 5d 20 74   ┆to Rmail, \\[rmail-abort-edit] t┆
0x580…5a0 6f 20 61 62 6f 72 74 22 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 63 65 61   ┆o abort"] 11))  (defun rmail-cea┆
0x5a0…5c0 73 65 2d 65 64 69 74 20 6e 69 6c 20 22 5c 0a 46 69 6e 69 73 68 20 65 64 69 74 69 6e 67 20 6d 65   ┆se-edit nil "\ Finish editing me┆
0x5c0…5e0 73 73 61 67 65 3b 20 73 77 69 74 63 68 20 62 61 63 6b 20 74 6f 20 52 6d 61 69 6c 20 70 72 6f 70   ┆ssage; switch back to Rmail prop┆
0x5e0…600 65 72 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 20 22 c4   ┆er." (interactive) (byte-code " ┆
0x600…620 88 8a 64 62 88 c8 68 c9 5c 22 85 0f 00 ca 63 88 cb 08 09 54 48 60 5c 22 29 88 0b 1a cc cd 20 21   ┆  db  h \"    c    TH`\")      !┆
0x620…640 88 ce 20 88 0a 47 64 65 5a 55 85 33 00 cf 0a d0 65 64 5c 22 5c 22 83 3a 00 c4 82 58 00 c4 89 12   ┆     GdeZU 3    ed\"\" :   X    ┆
0x640…660 88 d1 d2 c5 5c 22 88 d3 c6 21 85 58 00 0e 06 09 53 c4 49 88 8a d4 d5 21 88 d6 20 29 29 88 c5 89   ┆    \"   ! X    S I    !   ))   ┆
0x660…680 16 07 87 22 20 5b 72 6d 61 69 6c 2d 6d 65 73 73 61 67 65 2d 76 65 63 74 6f 72 20 72 6d 61 69 6c   ┆   " [rmail-message-vector rmail┆
0x680…6a0 2d 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 6f 6c 64 20 72 6d 61 69 6c 2d 6f 6c 64 2d 74   ┆-current-message old rmail-old-t┆
0x6a0…6c0 65 78 74 20 6e 69 6c 20 74 20 72 6d 61 69 6c 2d 73 75 6d 6d 61 72 79 2d 76 65 63 74 6f 72 20 62   ┆ext nil t rmail-summary-vector b┆
0x6c0…6e0 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 2f 3d 20 31 30 20 22 0a 22 20 73 65 74 2d 6d 61   ┆uffer-read-only /= 10 " " set-ma┆
0x6e0…700 72 6b 65 72 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65   ┆rker set-buffer-modified-p buffe┆
0x700…720 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 72 6d 61 69 6c 2d 6d 6f 64 65 2d 31 20 73 74 72 69 6e 67   ┆r-modified-p rmail-mode-1 string┆
0x720…740 3d 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 72 6d 61 69 6c 2d 73 65 74 2d 61 74 74   ┆= buffer-substring rmail-set-att┆
0x740…760 72 69 62 75 74 65 20 22 65 64 69 74 65 64 22 20 62 6f 75 6e 64 70 20 72 6d 61 69 6c 2d 77 69 64   ┆ribute "edited" boundp rmail-wid┆
0x760…780 65 6e 2d 74 6f 2d 63 75 72 72 65 6e 74 2d 6d 73 67 62 65 67 20 28 6c 61 6d 62 64 61 20 6e 69 6c   ┆en-to-current-msgbeg (lambda nil┆
0x780…7a0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 88 c4 c5 21 85 15 00 c1 18 c6 60 c2 c7 21 88 60   ┆ (byte-code "  !   !      `  ! `┆
0x7a0…7c0 5c 22 29 87 22 20 5b 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 66 6f 72 77   ┆\") " [buffer-read-only nil forw┆
0x7c0…7e0 61 72 64 2d 6c 69 6e 65 20 32 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 53 75 6d 6d 61 72 79 2d 6c   ┆ard-line 2 looking-at "Summary-l┆
0x7e0…800 69 6e 65 3a 20 22 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 31 5d 20 36 29 29 20 72 6d 61 69   ┆ine: " delete-region 1] 6)) rmai┆
0x800…820 6c 2d 73 68 6f 77 2d 6d 65 73 73 61 67 65 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61   ┆l-show-message] 13))  (defun rma┆
0x820…840 69 6c 2d 61 62 6f 72 74 2d 65 64 69 74 20 6e 69 6c 20 22 5c 0a 41 62 6f 72 74 20 65 64 69 74 20   ┆il-abort-edit nil "\ Abort edit ┆
0x840…860 6f 66 20 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 3b 20 72 65 73 74 6f 72 65 20 6f 72 69 67   ┆of current message; restore orig┆
0x860…880 69 6e 61 6c 20 63 6f 6e 74 65 6e 74 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62   ┆inal contents." (interactive) (b┆
0x880…8a0 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 65 64 5c 22 88 08 63 88 c3 20 87 22 20 5b 72 6d 61 69 6c   ┆yte-code "   ed\"  c    " [rmail┆
0x8a0…8c0 2d 6f 6c 64 2d 74 65 78 74 20 6e 69 6c 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 72 6d 61 69   ┆-old-text nil delete-region rmai┆
0x8c0…8d2 6c 2d 63 65 61 73 65 2d 65 64 69 74 5d 20 33 29 29 0a   ┆l-cease-edit] 3)) ┆