|
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: ┃ s ┃
Length: 9200 (0x23f0)
Names: »sendmail.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/sendmail.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 73 65 6e 64 6d 61 69 6c 29 29 0a 0a 28 64 65 ┆ (provide (quote sendmail)) (de┆
0x0020…0040 66 76 61 72 20 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 74 20 22 5c 0a 41 6c 69 61 73 20 6f 66 20 ┆fvar mail-aliases t "\ Alias of ┆
0x0040…0060 6d 61 69 6c 20 61 64 64 72 65 73 73 20 61 6c 69 61 73 65 73 2c 0a 6f 72 20 74 20 6d 65 61 6e 69 ┆mail address aliases, or t meani┆
0x0060…0080 6e 67 20 73 68 6f 75 6c 64 20 62 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 66 72 6f 6d 20 2e 6d ┆ng should be initialized from .m┆
0x0080…00a0 61 69 6c 72 63 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 69 6c 2d 61 62 62 72 65 76 73 2d 6c ┆ailrc.") (defvar mail-abbrevs-l┆
0x00a0…00c0 6f 61 64 65 64 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 6d 61 69 6c 2d 6d 6f 64 65 2d 6d 61 ┆oaded nil) (defvar mail-mode-ma┆
0x00c0…00e0 70 20 6e 69 6c 29 0a 0a 28 61 75 74 6f 6c 6f 61 64 20 28 71 75 6f 74 65 20 62 75 69 6c 64 2d 6d ┆p nil) (autoload (quote build-m┆
0x00e0…0100 61 69 6c 2d 61 6c 69 61 73 65 73 29 20 22 6d 61 69 6c 61 6c 69 61 73 22 20 22 5c 0a 52 65 61 64 ┆ail-aliases) "mailalias" "\ Read┆
0x0100…0120 20 6d 61 69 6c 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 ┆ mail aliases from ~/.mailrc and┆
0x0120…0140 20 73 65 74 20 6d 61 69 6c 2d 61 6c 69 61 73 65 73 2e 22 20 6e 69 6c 29 0a 0a 28 61 75 74 6f 6c ┆ set mail-aliases." nil) (autol┆
0x0140…0160 6f 61 64 20 28 71 75 6f 74 65 20 65 78 70 61 6e 64 2d 6d 61 69 6c 2d 61 6c 69 61 73 65 73 29 20 ┆oad (quote expand-mail-aliases) ┆
0x0160…0180 22 6d 61 69 6c 61 6c 69 61 73 22 20 22 5c 0a 45 78 70 61 6e 64 20 61 6c 6c 20 6d 61 69 6c 20 61 ┆"mailalias" "\ Expand all mail a┆
0x0180…01a0 6c 69 61 73 65 73 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 ┆liases in suitable header fields┆
0x01a0…01c0 20 66 6f 75 6e 64 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 ┆ found between BEG and END. Suit┆
0x01c0…01e0 61 62 6c 65 20 68 65 61 64 65 72 20 66 69 65 6c 64 73 20 61 72 65 20 54 6f 2c 20 43 43 20 61 6e ┆able header fields are To, CC an┆
0x01e0…0200 64 20 42 43 43 2e 22 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c 2d 73 65 74 75 70 20 ┆d BCC." nil) (defun mail-setup ┆
0x0200…0220 28 74 6f 20 73 75 62 6a 65 63 74 20 69 6e 2d 72 65 70 6c 79 2d 74 6f 20 63 63 20 72 65 70 6c 79 ┆(to subject in-reply-to cc reply┆
0x0220…0240 62 75 66 66 65 72 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c1 3d 85 12 00 c2 89 10 88 ce cf ┆buffer) (byte-code " = ┆
0x0240…0260 21 85 12 00 d0 20 88 0c 89 13 88 65 62 88 d1 63 88 8a 0d 83 32 00 d2 0d d3 5c 22 88 d4 1e 06 d5 ┆! eb c 2 \" ┆
0x0260…0280 65 64 5c 22 29 82 34 00 d6 20 88 0e 07 85 4d 00 60 d4 1e 06 1e 08 d2 d7 0e 07 d3 23 88 d8 0e 08 ┆ed\") 4 M ` # ┆
0x0280…02a0 64 5c 22 2a 88 0e 09 85 59 00 d2 d9 0e 09 d3 23 88 d2 da 0e 0a 86 62 00 db d3 23 88 0e 0b 85 70 ┆d\"* Y # b # p┆
0x02a0…02c0 00 d2 dc dd 20 d3 23 88 0e 0c 85 7c 00 d2 de 0e 0c d3 23 88 d2 0e 0d d3 5c 22 29 88 0d 85 8a 00 ┆ # | # \") ┆
0x02c0…02e0 64 62 88 0d 86 9c 00 0e 0a 86 9c 00 0e 09 86 9c 00 df c2 21 88 e0 e1 21 87 22 20 5b 6d 61 69 6c ┆db ! ! " [mail┆
0x02e0…0300 2d 61 6c 69 61 73 65 73 20 74 20 6e 69 6c 20 6d 61 69 6c 2d 72 65 70 6c 79 2d 62 75 66 66 65 72 ┆-aliases t nil mail-reply-buffer┆
0x0300…0320 20 72 65 70 6c 79 62 75 66 66 65 72 20 74 6f 20 66 69 6c 6c 2d 70 72 65 66 69 78 20 63 63 20 6f ┆ replybuffer to fill-prefix cc o┆
0x0320…0340 70 6f 73 20 69 6e 2d 72 65 70 6c 79 2d 74 6f 20 73 75 62 6a 65 63 74 20 6d 61 69 6c 2d 73 65 6c ┆pos in-reply-to subject mail-sel┆
0x0340…0360 66 2d 62 6c 69 6e 64 20 6d 61 69 6c 2d 61 72 63 68 69 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 6d ┆f-blind mail-archive-file-name m┆
0x0360…0380 61 69 6c 2d 68 65 61 64 65 72 2d 73 65 70 61 72 61 74 6f 72 20 66 69 6c 65 2d 65 78 69 73 74 73 ┆ail-header-separator file-exists┆
0x0380…03a0 2d 70 20 22 7e 2f 2e 6d 61 69 6c 72 63 22 20 62 75 69 6c 64 2d 6d 61 69 6c 2d 61 6c 69 61 73 65 ┆-p "~/.mailrc" build-mail-aliase┆
0x03a0…03c0 73 20 22 54 6f 3a 20 22 20 69 6e 73 65 72 74 20 22 0a 22 20 22 09 22 20 66 69 6c 6c 2d 72 65 67 ┆s "To: " insert " " " " fill-reg┆
0x03c0…03e0 69 6f 6e 20 6e 65 77 6c 69 6e 65 20 22 43 43 3a 20 22 20 66 69 6c 6c 2d 72 65 67 69 6f 6e 2d 61 ┆ion newline "CC: " fill-region-a┆
0x03e0…0400 73 2d 70 61 72 61 67 72 61 70 68 20 22 49 6e 2d 72 65 70 6c 79 2d 74 6f 3a 20 22 20 22 53 75 62 ┆s-paragraph "In-reply-to: " "Sub┆
0x0400…0420 6a 65 63 74 3a 20 22 20 22 22 20 22 42 43 43 3a 20 22 20 75 73 65 72 2d 6c 6f 67 69 6e 2d 6e 61 ┆ject: " "" "BCC: " user-login-na┆
0x0420…0440 6d 65 20 22 46 43 43 3a 20 22 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 ┆me "FCC: " set-buffer-modified-p┆
0x0440…0460 20 72 75 6e 2d 68 6f 6f 6b 73 20 6d 61 69 6c 2d 73 65 74 75 70 2d 68 6f 6f 6b 5d 20 31 36 29 29 ┆ run-hooks mail-setup-hook] 16))┆
0x0460…0480 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 ┆ (defun mail-mode nil "\ Major ┆
0x0480…04a0 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 6d 61 69 6c 20 74 6f 20 62 65 20 73 65 6e 74 ┆mode for editing mail to be sent┆
0x04a0…04c0 2e 0a 4c 69 6b 65 20 54 65 78 74 20 4d 6f 64 65 20 62 75 74 20 77 69 74 68 20 74 68 65 73 65 20 ┆. Like Text Mode but with these ┆
0x04c0…04e0 61 64 64 69 74 69 6f 6e 61 6c 20 63 6f 6d 6d 61 6e 64 73 3a 0a 43 2d 63 20 43 2d 73 20 20 6d 61 ┆additional commands: C-c C-s ma┆
0x04e0…0500 69 6c 2d 73 65 6e 64 20 28 73 65 6e 64 20 74 68 65 20 6d 65 73 73 61 67 65 29 20 20 20 20 43 2d ┆il-send (send the message) C-┆
0x0500…0520 63 20 43 2d 63 20 20 6d 61 69 6c 2d 73 65 6e 64 2d 61 6e 64 2d 65 78 69 74 0a 43 2d 63 20 43 2d ┆c C-c mail-send-and-exit C-c C-┆
0x0520…0540 66 20 20 6d 6f 76 65 20 74 6f 20 61 20 68 65 61 64 65 72 20 66 69 65 6c 64 20 28 61 6e 64 20 63 ┆f move to a header field (and c┆
0x0540…0560 72 65 61 74 65 20 69 74 20 69 66 20 74 68 65 72 65 20 69 73 6e 27 74 29 3a 0a 09 20 43 2d 63 20 ┆reate it if there isn't): C-c ┆
0x0560…0580 43 2d 66 20 43 2d 74 20 20 6d 6f 76 65 20 74 6f 20 54 6f 3a 09 43 2d 63 20 43 2d 66 20 43 2d 73 ┆C-f C-t move to To: C-c C-f C-s┆
0x0580…05a0 20 20 6d 6f 76 65 20 74 6f 20 53 75 62 6a 3a 0a 09 20 43 2d 63 20 43 2d 66 20 43 2d 62 20 20 6d ┆ move to Subj: C-c C-f C-b m┆
0x05a0…05c0 6f 76 65 20 74 6f 20 42 43 43 3a 09 43 2d 63 20 43 2d 66 20 43 2d 63 20 20 6d 6f 76 65 20 74 6f ┆ove to BCC: C-c C-f C-c move to┆
0x05c0…05e0 20 43 43 3a 0a 43 2d 63 20 43 2d 77 20 20 6d 61 69 6c 2d 73 69 67 6e 61 74 75 72 65 20 28 69 6e ┆ CC: C-c C-w mail-signature (in┆
0x05e0…0600 73 65 72 74 20 7e 2f 2e 73 69 67 6e 61 74 75 72 65 20 61 74 20 65 6e 64 29 2e 0a 43 2d 63 20 43 ┆sert ~/.signature at end). C-c C┆
0x0600…0620 2d 79 20 20 6d 61 69 6c 2d 79 61 6e 6b 2d 6f 72 69 67 69 6e 61 6c 20 28 69 6e 73 65 72 74 20 63 ┆-y mail-yank-original (insert c┆
0x0620…0640 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 2c 20 69 6e 20 52 6d 61 69 6c 29 2e 0a 43 2d 63 20 43 ┆urrent message, in Rmail). C-c C┆
0x0640…0660 2d 71 20 20 6d 61 69 6c 2d 66 69 6c 6c 2d 79 61 6e 6b 65 64 2d 6d 65 73 73 61 67 65 20 28 66 69 ┆-q mail-fill-yanked-message (fi┆
0x0660…0680 6c 6c 20 77 68 61 74 20 77 61 73 20 79 61 6e 6b 65 64 29 2e 22 20 28 69 6e 74 65 72 61 63 74 69 ┆ll what was yanked)." (interacti┆
0x0680…06a0 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 cd 20 88 ce c0 21 88 c1 89 10 88 cf 0a 21 ┆ve) (byte-code " ! !┆
0x06a0…06c0 88 d0 0b 21 88 0d 89 14 88 d1 89 16 06 88 d2 89 16 07 88 c9 89 16 08 88 ce cc 21 88 ce ca 21 88 ┆ ! ! ! ┆
0x06c0…06e0 d3 0e 0b d4 0e 0a 52 89 16 0a 88 d3 0e 0b d4 0e 0c 52 89 16 0c 88 d5 d6 d7 5c 22 87 22 20 5b 6d ┆ R R \" " [m┆
0x06e0…0700 61 69 6c 2d 72 65 70 6c 79 2d 62 75 66 66 65 72 20 6e 69 6c 20 74 65 78 74 2d 6d 6f 64 65 2d 73 ┆ail-reply-buffer nil text-mode-s┆
0x0700…0720 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 61 69 6c 2d 6d 6f 64 65 2d 6d 61 70 20 6c 6f 63 61 6c 2d ┆yntax-table mail-mode-map local-┆
0x0720…0740 61 62 62 72 65 76 2d 74 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 ┆abbrev-table text-mode-abbrev-ta┆
0x0740…0760 62 6c 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 62 75 66 66 65 72 2d ┆ble major-mode mode-name buffer-┆
0x0760…0780 6f 66 66 65 72 2d 73 61 76 65 20 74 20 70 61 72 61 67 72 61 70 68 2d 73 74 61 72 74 20 6d 61 69 ┆offer-save t paragraph-start mai┆
0x0780…07a0 6c 2d 68 65 61 64 65 72 2d 73 65 70 61 72 61 74 6f 72 20 70 61 72 61 67 72 61 70 68 2d 73 65 70 ┆l-header-separator paragraph-sep┆
0x07a0…07c0 61 72 61 74 65 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 6d ┆arate kill-all-local-variables m┆
0x07c0…07e0 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 ┆ake-local-variable set-syntax-ta┆
0x07e0…0800 62 6c 65 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6d 61 69 6c 2d 6d 6f 64 65 20 22 4d 61 69 ┆ble use-local-map mail-mode "Mai┆
0x0800…0820 6c 22 20 22 5e 22 20 22 24 5c 5c 7c 5e 5b 20 09 5d 2a 5b 2d 5f 5d 5b 2d 5f 5d 5b 2d 5f 5d 2b 24 ┆l" "^" "$\\|^[ ]*[-_][-_][-_]+$┆
0x0820…0840 5c 5c 7c 22 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 20 6d 61 ┆\\|" run-hooks text-mode-hook ma┆
0x0840…0860 69 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 31 30 29 29 0a 0a 28 69 66 20 6d 61 69 6c 2d 6d 6f 64 ┆il-mode-hook] 10)) (if mail-mod┆
0x0860…0880 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 6d 61 69 6c 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d ┆e-map nil (setq mail-mode-map (m┆
0x0880…08a0 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆ake-sparse-keymap)) (define-key ┆
0x08a0…08c0 6d 61 69 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 3f 22 20 28 71 75 6f 74 65 20 64 65 73 63 72 69 ┆mail-mode-map " ?" (quote descri┆
0x08c0…08e0 62 65 2d 6d 6f 64 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 69 6c 2d 6d 6f 64 65 2d ┆be-mode)) (define-key mail-mode-┆
0x08e0…0900 6d 61 70 20 22 03 06 14 22 20 28 71 75 6f 74 65 20 6d 61 69 6c 2d 74 6f 29 29 20 28 64 65 66 69 ┆map " " (quote mail-to)) (defi┆
0x0900…0920 6e 65 2d 6b 65 79 20 6d 61 69 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 06 02 22 20 28 71 75 6f 74 ┆ne-key mail-mode-map " " (quot┆
0x0920…0940 65 20 6d 61 69 6c 2d 62 63 63 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 69 6c 2d 6d 6f ┆e mail-bcc)) (define-key mail-mo┆
0x0940…0960 64 65 2d 6d 61 70 20 22 03 06 03 22 20 28 71 75 6f 74 65 20 6d 61 69 6c 2d 63 63 29 29 20 28 64 ┆de-map " " (quote mail-cc)) (d┆
0x0960…0980 65 66 69 6e 65 2d 6b 65 79 20 6d 61 69 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 06 13 22 20 28 71 ┆efine-key mail-mode-map " " (q┆
0x0980…09a0 75 6f 74 65 20 6d 61 69 6c 2d 73 75 62 6a 65 63 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆uote mail-subject)) (define-key ┆
0x09a0…09c0 6d 61 69 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 17 22 20 28 71 75 6f 74 65 20 6d 61 69 6c 2d 73 ┆mail-mode-map " " (quote mail-s┆
0x09c0…09e0 69 67 6e 61 74 75 72 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 69 6c 2d 6d 6f 64 65 ┆ignature)) (define-key mail-mode┆
0x09e0…0a00 2d 6d 61 70 20 22 03 19 22 20 28 71 75 6f 74 65 20 6d 61 69 6c 2d 79 61 6e 6b 2d 6f 72 69 67 69 ┆-map " " (quote mail-yank-origi┆
0x0a00…0a20 6e 61 6c 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 69 6c 2d 6d 6f 64 65 2d 6d 61 70 20 ┆nal)) (define-key mail-mode-map ┆
0x0a20…0a40 22 03 11 22 20 28 71 75 6f 74 65 20 6d 61 69 6c 2d 66 69 6c 6c 2d 79 61 6e 6b 65 64 2d 6d 65 73 ┆" " (quote mail-fill-yanked-mes┆
0x0a40…0a60 73 61 67 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 69 6c 2d 6d 6f 64 65 2d 6d 61 70 ┆sage)) (define-key mail-mode-map┆
0x0a60…0a80 20 22 03 03 22 20 28 71 75 6f 74 65 20 6d 61 69 6c 2d 73 65 6e 64 2d 61 6e 64 2d 65 78 69 74 29 ┆ " " (quote mail-send-and-exit)┆
0x0a80…0aa0 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 69 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 13 22 ┆) (define-key mail-mode-map " "┆
0x0aa0…0ac0 20 28 71 75 6f 74 65 20 6d 61 69 6c 2d 73 65 6e 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 ┆ (quote mail-send))) (defun mai┆
0x0ac0…0ae0 6c 2d 73 65 6e 64 2d 61 6e 64 2d 65 78 69 74 20 28 61 72 67 29 20 22 5c 0a 53 65 6e 64 20 6d 65 ┆l-send-and-exit (arg) "\ Send me┆
0x0ae0…0b00 73 73 61 67 65 20 6c 69 6b 65 20 6d 61 69 6c 2d 73 65 6e 64 2c 20 74 68 65 6e 2c 20 69 66 20 6e ┆ssage like mail-send, then, if n┆
0x0b00…0b20 6f 20 65 72 72 6f 72 73 2c 20 65 78 69 74 20 66 72 6f 6d 20 6d 61 69 6c 20 62 75 66 66 65 72 2e ┆o errors, exit from mail buffer.┆
0x0b20…0b40 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆" (interactive "P") (byte-code "┆
0x0b40…0b60 c2 88 c3 20 88 c4 70 21 88 08 86 10 00 c5 c1 21 83 1b 00 c6 c7 70 21 21 82 1d 00 c8 20 87 22 20 ┆ p! ! p!! " ┆
0x0b60…0b80 5b 61 72 67 20 74 20 6e 69 6c 20 6d 61 69 6c 2d 73 65 6e 64 20 62 75 72 79 2d 62 75 66 66 65 72 ┆[arg t nil mail-send bury-buffer┆
0x0b80…0ba0 20 6f 6e 65 2d 77 69 6e 64 6f 77 2d 70 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 6f ┆ one-window-p switch-to-buffer o┆
0x0ba0…0bc0 74 68 65 72 2d 62 75 66 66 65 72 20 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 5d 20 37 29 29 0a 0a ┆ther-buffer delete-window] 7)) ┆
0x0bc0…0be0 28 64 65 66 75 6e 20 6f 6e 65 2d 77 69 6e 64 6f 77 2d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e ┆(defun one-window-p (&optional n┆
0x0be0…0c00 6f 6d 69 6e 69 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 20 08 85 0a 00 c2 c3 20 21 83 12 00 ┆omini) (byte-code " ! ┆
0x0c00…0c20 c4 20 82 16 00 c4 c4 20 21 3d 87 22 20 5b 6e 6f 6d 69 6e 69 20 73 65 6c 65 63 74 65 64 2d 77 69 ┆ != " [nomini selected-wi┆
0x0c20…0c40 6e 64 6f 77 20 7a 65 72 6f 70 20 6d 69 6e 69 62 75 66 66 65 72 2d 64 65 70 74 68 20 6e 65 78 74 ┆ndow zerop minibuffer-depth next┆
0x0c40…0c60 2d 77 69 6e 64 6f 77 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c 2d 73 65 6e 64 20 6e ┆-window] 8)) (defun mail-send n┆
0x0c60…0c80 69 6c 20 22 5c 0a 53 65 6e 64 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 6e 20 74 68 65 20 63 75 ┆il "\ Send the message in the cu┆
0x0c80…0ca0 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 49 66 20 20 6d 61 69 6c 2d 69 6e 74 65 72 61 63 74 69 ┆rrent buffer. If mail-interacti┆
0x0ca0…0cc0 76 65 20 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 77 61 69 74 20 66 6f 72 20 73 75 63 63 65 73 73 ┆ve is non-nil, wait for success┆
0x0cc0…0ce0 20 69 6e 64 69 63 61 74 69 6f 6e 0a 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2c 20 61 ┆ indication or error messages, a┆
0x0ce0…0d00 6e 64 20 69 6e 66 6f 72 6d 20 75 73 65 72 2e 0a 4f 74 68 65 72 77 69 73 65 20 61 6e 79 20 66 61 ┆nd inform user. Otherwise any fa┆
0x0d00…0d20 69 6c 75 72 65 20 69 73 20 72 65 70 6f 72 74 65 64 20 69 6e 20 61 20 6d 65 73 73 61 67 65 20 62 ┆ilure is reported in a message b┆
0x0d20…0d40 61 63 6b 20 74 6f 0a 74 68 65 20 75 73 65 72 20 66 72 6f 6d 20 74 68 65 20 6d 61 69 6c 65 72 2e ┆ack to the user from the mailer.┆
0x0d40…0d60 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 c1 88 c2 c3 ┆" (interactive) (byte-code " ┆
0x0d60…0d80 21 88 c4 08 21 88 c5 c1 21 88 c6 20 88 c2 c7 21 87 22 20 5b 73 65 6e 64 2d 6d 61 69 6c 2d 66 75 ┆! ! ! ! " [send-mail-fu┆
0x0d80…0da0 6e 63 74 69 6f 6e 20 6e 69 6c 20 6d 65 73 73 61 67 65 20 22 53 65 6e 64 69 6e 67 2e 2e 2e 22 20 ┆nction nil message "Sending..." ┆
0x0da0…0dc0 66 75 6e 63 61 6c 6c 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 64 65 ┆funcall set-buffer-modified-p de┆
0x0dc0…0de0 6c 65 74 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 69 66 2d 6e 65 63 65 73 73 61 72 79 ┆lete-auto-save-file-if-necessary┆
0x0de0…0e00 20 22 53 65 6e 64 69 6e 67 2e 2e 2e 64 6f 6e 65 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 ┆ "Sending...done"] 6)) (defun s┆
0x0e00…0e20 65 6e 64 6d 61 69 6c 2d 73 65 6e 64 2d 69 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆endmail-send-it nil (byte-code "┆
0x0e20…0e40 09 83 0a 00 cb cc 21 82 0b 00 cd cb ce 21 c4 c4 70 1e 06 1d 1b 1a 18 cf 8e 8a 0a 71 88 d0 20 88 ┆ ! ! p q ┆
0x0e40…0e60 d1 0e 06 21 88 64 62 88 68 d2 55 86 30 00 d2 63 88 65 62 88 d3 d4 d5 0e 07 21 d6 51 21 88 d7 d6 ┆ ! db h U 0 c eb ! Q! ┆
0x0e60…0e80 21 88 d8 d9 21 88 da 20 89 15 88 0e 08 85 54 00 db 65 0d 5c 22 88 65 62 88 d3 dc 0d c9 23 85 63 ┆! ! T e \" eb # c┆
0x0e80…0ea0 00 60 0d 57 85 6d 00 d7 d6 21 88 82 58 00 88 c9 1b 65 62 88 d3 dd 0d c9 23 85 7e 00 de 0d 21 88 ┆ ` W m ! X eb # ~ ! ┆
0x0ea0…0ec0 65 62 88 d3 df 0d c9 23 85 a2 00 8a 65 62 88 d3 e0 0d c9 23 29 3f 85 a2 00 e1 d9 21 88 e2 e3 e4 ┆eb # eb #)? ! ┆
0x0ec0…0ee0 20 d6 23 88 65 62 88 d3 e5 0d c9 23 85 b1 00 d7 e6 21 88 09 85 bd 00 8a 08 71 88 d0 20 29 29 88 ┆ # eb # ! q )) ┆
0x0ee0…0f00 e7 e8 e9 ea 65 64 eb ca 21 83 d0 00 0e 0a 82 d1 00 ec c4 08 c4 ed ee 26 08 ef f0 20 f1 5c 22 85 ┆ ed ! & \" ┆
0x0f00…0f20 e4 00 f2 e4 20 44 09 3f 85 ea 00 f3 23 5c 22 88 09 85 18 01 8a 08 71 88 65 62 88 d3 f4 c4 c9 23 ┆ D ? #\" q eb #┆
0x0f20…0f40 85 07 01 d7 f5 21 88 82 f8 00 88 f6 f7 20 21 3f 85 17 01 f8 f9 fa 65 64 5c 22 5c 22 29 29 29 2d ┆ ! !? ed\"\")))-┆
0x0f40…0f60 87 22 20 5b 65 72 72 62 75 66 20 6d 61 69 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 20 74 65 6d 62 ┆ " [errbuf mail-interactive temb┆
0x0f60…0f80 75 66 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 64 65 6c 69 6d 6c 69 6e ┆uf case-fold-search nil delimlin┆
0x0f80…0fa0 65 20 6d 61 69 6c 62 75 66 20 6d 61 69 6c 2d 68 65 61 64 65 72 2d 73 65 70 61 72 61 74 6f 72 20 ┆e mailbuf mail-header-separator ┆
0x0fa0…0fc0 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 74 20 73 65 6e 64 6d 61 69 6c 2d 70 72 6f 67 72 61 6d 20 ┆mail-aliases t sendmail-program ┆
0x0fc0…0fe0 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 73 65 6e 64 6d 61 69 6c 20 65 ┆generate-new-buffer " sendmail e┆
0x0fe0…1000 72 72 6f 72 73 22 20 30 20 22 20 73 65 6e 64 6d 61 69 6c 20 74 65 6d 70 22 20 28 28 62 79 74 65 ┆rrors" 0 " sendmail temp" ((byte┆
0x1000…1020 2d 63 6f 64 65 20 22 c2 08 21 88 c3 09 21 85 0d 00 c2 09 21 87 22 20 5b 74 65 6d 62 75 66 20 65 ┆-code " ! ! ! " [tembuf e┆
0x1020…1040 72 72 62 75 66 20 6b 69 6c 6c 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 70 5d 20 34 29 29 20 65 ┆rrbuf kill-buffer bufferp] 4)) e┆
0x1040…1060 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 73 65 72 74 2d 62 75 66 66 65 72 2d 73 75 62 73 74 72 ┆rase-buffer insert-buffer-substr┆
0x1060…1080 69 6e 67 20 31 30 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 22 20 72 65 67 ┆ing 10 re-search-forward "^" reg┆
0x1080…10a0 65 78 70 2d 71 75 6f 74 65 20 22 0a 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 62 61 63 6b ┆exp-quote " " replace-match back┆
0x10a0…10c0 77 61 72 64 2d 63 68 61 72 20 31 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 20 65 78 70 61 6e 64 2d ┆ward-char 1 point-marker expand-┆
0x10c0…10e0 6d 61 69 6c 2d 61 6c 69 61 73 65 73 20 22 0a 0a 0a 2a 22 20 22 5e 46 43 43 3a 22 20 6d 61 69 6c ┆mail-aliases " *" "^FCC:" mail┆
0x10e0…1100 2d 64 6f 2d 66 63 63 20 22 5e 46 72 6f 6d 3a 22 20 22 5e 53 65 6e 64 65 72 3a 22 20 66 6f 72 77 ┆-do-fcc "^From:" "^Sender:" forw┆
0x1100…1120 61 72 64 2d 6c 69 6e 65 20 69 6e 73 65 72 74 20 22 53 65 6e 64 65 72 3a 20 22 20 75 73 65 72 2d ┆ard-line insert "Sender: " user-┆
0x1120…1140 6c 6f 67 69 6e 2d 6e 61 6d 65 20 22 5e 53 75 62 6a 65 63 74 3a 5b 20 09 5d 2a 0a 22 20 22 22 20 ┆login-name "^Subject:[ ]* " "" ┆
0x1140…1160 61 70 70 6c 79 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65 67 69 6f 6e 20 61 70 70 65 6e 64 ┆apply call-process-region append┆
0x1160…1180 20 6c 69 73 74 20 62 6f 75 6e 64 70 20 22 2f 75 73 72 2f 6c 69 62 2f 73 65 6e 64 6d 61 69 6c 22 ┆ list boundp "/usr/lib/sendmail"┆
0x1180…11a0 20 22 2d 6f 69 22 20 22 2d 74 22 20 65 71 75 61 6c 20 75 73 65 72 2d 72 65 61 6c 2d 6c 6f 67 69 ┆ "-oi" "-t" equal user-real-logi┆
0x11a0…11c0 6e 2d 6e 61 6d 65 20 22 72 6f 6f 74 22 20 22 2d 66 22 20 28 22 2d 6f 65 6d 22 20 22 2d 6f 64 62 ┆n-name "root" "-f" ("-oem" "-odb┆
0x11c0…11e0 22 29 20 22 0a 0a 2a 20 2a 22 20 22 3b 20 22 20 7a 65 72 6f 70 20 62 75 66 66 65 72 2d 73 69 7a ┆") " * *" "; " zerop buffer-siz┆
0x11e0…1200 65 20 65 72 72 6f 72 20 22 53 65 6e 64 69 6e 67 2e 2e 2e 66 61 69 6c 65 64 20 74 6f 20 25 73 22 ┆e error "Sending...failed to %s"┆
0x1200…1220 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 5d 20 33 38 29 29 0a 0a 28 64 65 66 75 6e 20 ┆ buffer-substring] 38)) (defun ┆
0x1220…1240 6d 61 69 6c 2d 64 6f 2d 66 63 63 20 28 68 65 61 64 65 72 2d 65 6e 64 29 20 28 62 79 74 65 2d 63 ┆mail-do-fcc (header-end) (byte-c┆
0x1240…1260 6f 64 65 20 22 c6 70 c7 c8 21 c4 1b 1a 19 18 8a 65 62 88 c9 ca 0d c4 23 85 34 00 cb 60 cc 20 88 ┆ode " p ! eb # 4 ` ┆
0x1260…1280 cd ce 21 88 60 5c 22 08 42 89 10 88 cf d0 d1 21 d2 d3 21 88 60 5c 22 88 82 0e 00 88 0a 71 88 d4 ┆ ! `\" B ! ! `\" q ┆
0x1280…12a0 20 88 d5 d6 d7 20 d8 d9 20 da 25 88 db 09 21 88 64 62 88 dc 63 88 dd 62 88 c6 1b de d6 c6 c4 23 ┆ % ! db c b #┆
0x12a0…12c0 85 66 00 df e0 21 88 e1 63 88 82 54 00 29 88 08 85 7c 00 e2 65 64 08 40 c4 24 88 08 41 89 10 88 ┆ f ! c T ) | ed @ $ A ┆
0x12c0…12e0 82 68 00 29 88 e3 0a 21 2c 87 22 20 5b 66 63 63 2d 6c 69 73 74 20 72 6d 61 69 6c 62 75 66 20 74 ┆ h ) !, " [fcc-list rmailbuf t┆
0x12e0…1300 65 6d 62 75 66 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 20 68 65 61 64 65 72 2d ┆embuf case-fold-search t header-┆
0x1300…1320 65 6e 64 20 6e 69 6c 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 72 6d ┆end nil generate-new-buffer " rm┆
0x1320…1340 61 69 6c 20 6f 75 74 70 75 74 22 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e ┆ail output" re-search-forward "^┆
0x1340…1360 46 43 43 3a 5b 20 09 5d 2a 22 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 65 6e 64 2d ┆FCC:[ ]*" buffer-substring end-┆
0x1360…1380 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 09 22 ┆of-line skip-chars-backward " "┆
0x1380…13a0 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 ┆ delete-region match-beginning 0┆
0x13a0…13c0 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 73 ┆ forward-line 1 erase-buffer ins┆
0x13c0…13e0 65 72 74 20 22 0a 46 72 6f 6d 20 22 20 75 73 65 72 2d 6c 6f 67 69 6e 2d 6e 61 6d 65 20 22 20 22 ┆ert " From " user-login-name " "┆
0x13e0…1400 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 22 0a 22 20 69 6e 73 65 72 74 2d ┆ current-time-string " " insert-┆
0x1400…1420 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 31 30 20 32 20 73 65 61 72 63 68 2d 66 6f 72 ┆buffer-substring 10 2 search-for┆
0x1420…1440 77 61 72 64 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 35 20 36 32 20 77 72 69 74 65 2d 72 65 ┆ward forward-char -5 62 write-re┆
0x1440…1460 67 69 6f 6e 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 31 29 29 0a 0a 28 64 65 66 75 6e 20 6d ┆gion kill-buffer] 21)) (defun m┆
0x1460…1480 61 69 6c 2d 74 6f 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 65 6e 64 20 ┆ail-to nil "\ Move point to end ┆
0x1480…14a0 6f 66 20 54 6f 2d 66 69 65 6c 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 ┆of To-field." (interactive) (byt┆
0x14a0…14c0 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 c3 21 87 22 20 5b 6e 69 6c 20 65 78 70 61 6e 64 2d 61 ┆e-code " ! " [nil expand-a┆
0x14c0…14e0 62 62 72 65 76 20 6d 61 69 6c 2d 70 6f 73 69 74 69 6f 6e 2d 6f 6e 2d 66 69 65 6c 64 20 22 54 6f ┆bbrev mail-position-on-field "To┆
0x14e0…1500 22 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c 2d 73 75 62 6a 65 63 74 20 6e 69 6c 20 ┆"] 3)) (defun mail-subject nil ┆
0x1500…1520 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 65 6e 64 20 6f 66 20 53 75 62 6a 65 63 74 2d ┆"\ Move point to end of Subject-┆
0x1520…1540 66 69 65 6c 64 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 ┆field." (interactive) (byte-code┆
0x1540…1560 20 22 c0 88 c1 20 88 c2 c3 21 87 22 20 5b 6e 69 6c 20 65 78 70 61 6e 64 2d 61 62 62 72 65 76 20 ┆ " ! " [nil expand-abbrev ┆
0x1560…1580 6d 61 69 6c 2d 70 6f 73 69 74 69 6f 6e 2d 6f 6e 2d 66 69 65 6c 64 20 22 53 75 62 6a 65 63 74 22 ┆mail-position-on-field "Subject"┆
0x1580…15a0 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c 2d 63 63 20 6e 69 6c 20 22 5c 0a 4d 6f 76 ┆] 3)) (defun mail-cc nil "\ Mov┆
0x15a0…15c0 65 20 70 6f 69 6e 74 20 74 6f 20 65 6e 64 20 6f 66 20 43 43 2d 66 69 65 6c 64 2e 20 20 43 72 65 ┆e point to end of CC-field. Cre┆
0x15c0…15e0 61 74 65 20 61 20 43 43 20 66 69 65 6c 64 20 69 66 20 6e 6f 6e 65 2e 22 20 28 69 6e 74 65 72 61 ┆ate a CC field if none." (intera┆
0x15e0…1600 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 20 88 c3 c4 c0 5c 22 86 12 00 ┆ctive) (byte-code " \" ┆
0x1600…1620 c3 c5 21 88 c6 63 87 22 20 5b 74 20 6e 69 6c 20 65 78 70 61 6e 64 2d 61 62 62 72 65 76 20 6d 61 ┆ ! c " [t nil expand-abbrev ma┆
0x1620…1640 69 6c 2d 70 6f 73 69 74 69 6f 6e 2d 6f 6e 2d 66 69 65 6c 64 20 22 63 63 22 20 22 74 6f 22 20 22 ┆il-position-on-field "cc" "to" "┆
0x1640…1660 0a 43 43 3a 20 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c 2d 62 63 63 20 6e 69 6c ┆ CC: "] 4)) (defun mail-bcc nil┆
0x1660…1680 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 65 6e 64 20 6f 66 20 42 43 43 2d 66 69 65 ┆ "\ Move point to end of BCC-fie┆
0x1680…16a0 6c 64 2e 20 20 43 72 65 61 74 65 20 61 20 42 43 43 20 66 69 65 6c 64 20 69 66 20 6e 6f 6e 65 2e ┆ld. Create a BCC field if none.┆
0x16a0…16c0 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 c1 88 c2 20 ┆" (interactive) (byte-code " ┆
0x16c0…16e0 88 c3 c4 c0 5c 22 86 12 00 c3 c5 21 88 c6 63 87 22 20 5b 74 20 6e 69 6c 20 65 78 70 61 6e 64 2d ┆ \" ! c " [t nil expand-┆
0x16e0…1700 61 62 62 72 65 76 20 6d 61 69 6c 2d 70 6f 73 69 74 69 6f 6e 2d 6f 6e 2d 66 69 65 6c 64 20 22 62 ┆abbrev mail-position-on-field "b┆
0x1700…1720 63 63 22 20 22 74 6f 22 20 22 0a 42 43 43 3a 20 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d ┆cc" "to" " BCC: "] 4)) (defun m┆
0x1720…1740 61 69 6c 2d 70 6f 73 69 74 69 6f 6e 2d 6f 6e 2d 66 69 65 6c 64 20 28 66 69 65 6c 64 20 26 6f 70 ┆ail-position-on-field (field &op┆
0x1740…1760 74 69 6f 6e 61 6c 20 73 6f 66 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 c2 19 18 65 62 88 ┆tional soft) (byte-code " eb ┆
0x1760…1780 c7 c8 0b c8 51 21 88 c9 ca 21 89 10 88 65 62 88 cb cc cd 0c 21 ce 51 08 c2 23 83 35 00 cb cf c5 ┆ Q! ! eb ! Q # 5 ┆
0x1780…17a0 d0 23 88 d1 20 88 d2 c8 21 88 c2 82 48 00 0e 06 86 46 00 08 62 88 d2 c8 21 88 d3 c8 0c d4 23 88 ┆ # ! H F b ! # ┆
0x17a0…17c0 c5 2a 87 22 20 5b 65 6e 64 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 20 6d 61 69 ┆ * " [end case-fold-search t mai┆
0x17c0…17e0 6c 2d 68 65 61 64 65 72 2d 73 65 70 61 72 61 74 6f 72 20 66 69 65 6c 64 20 6e 69 6c 20 73 6f 66 ┆l-header-separator field nil sof┆
0x17e0…1800 74 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 0a 22 20 6d 61 74 63 68 2d 62 65 67 69 6e ┆t search-forward " " match-begin┆
0x1800…1820 6e 69 6e 67 20 30 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 22 20 72 65 67 ┆ning 0 re-search-forward "^" reg┆
0x1820…1840 65 78 70 2d 71 75 6f 74 65 20 22 3a 22 20 22 5e 5b 5e 20 09 5d 22 20 6d 6f 76 65 20 62 65 67 69 ┆exp-quote ":" "^[^ ]" move begi┆
0x1840…1860 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 ┆nning-of-line skip-chars-backwar┆
0x1860…1880 64 20 69 6e 73 65 72 74 20 22 3a 20 22 5d 20 31 32 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 69 6c ┆d insert ": "] 12)) (defun mail┆
0x1880…18a0 2d 73 69 67 6e 61 74 75 72 65 20 6e 69 6c 20 22 5c 0a 53 69 67 6e 20 6c 65 74 74 65 72 20 77 69 ┆-signature nil "\ Sign letter wi┆
0x18a0…18c0 74 68 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 7e 2f 2e 73 69 67 6e 61 74 75 72 65 20 66 69 6c 65 ┆th contents of ~/.signature file┆
0x18c0…18e0 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 c0 88 8a ┆." (interactive) (byte-code " ┆
0x18e0…1900 64 62 88 c1 c2 c3 21 21 29 87 22 20 5b 6e 69 6c 20 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e ┆db !!) " [nil insert-file-con┆
0x1900…1920 74 65 6e 74 73 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 7e 2f 2e 73 69 67 6e 61 ┆tents expand-file-name "~/.signa┆
[…truncated at 200 lines…]