|
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: 54735 (0xd5cf)
Names: »mh-e.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/mh-e.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 6d 68 2d 66 6f 6c 64 65 72 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c ┆ (defvar mh-folder-mode-hook nil┆
0x0020…0040 20 22 5c 0a 2a 49 6e 76 6f 6b 65 64 20 69 6e 20 6d 68 2d 66 6f 6c 64 65 72 2d 6d 6f 64 65 20 6f ┆ "\ *Invoked in mh-folder-mode o┆
0x0040…0060 6e 20 61 20 6e 65 77 20 66 6f 6c 64 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d 6c 65 ┆n a new folder.") (defvar mh-le┆
0x0060…0080 74 74 65 72 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 2a 49 6e 76 6f 6b 65 64 20 69 ┆tter-mode-hook nil "\ *Invoked i┆
0x0080…00a0 6e 20 6d 68 2d 6c 65 74 74 65 72 2d 6d 6f 64 65 20 6f 6e 20 61 20 6e 65 77 20 6c 65 74 74 65 72 ┆n mh-letter-mode on a new letter┆
0x00a0…00c0 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d 63 6f 6d 70 6f 73 65 2d 6c 65 74 74 65 72 2d 68 ┆.") (defvar mh-compose-letter-h┆
0x00c0…00e0 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 2a 49 6e 76 6f 6b 65 64 20 69 6e 20 6d 68 2d 63 6f 6d 70 6f 73 ┆ook nil "\ *Invoked in mh-compos┆
0x00e0…0100 65 2d 61 6e 64 2d 73 65 6e 64 2d 6d 61 69 6c 20 6f 6e 20 61 6e 20 6f 75 74 67 6f 69 6e 67 20 6c ┆e-and-send-mail on an outgoing l┆
0x0100…0120 65 74 74 65 72 2e 20 20 49 74 20 69 73 20 70 61 73 73 65 64 0a 74 68 72 65 65 20 61 72 67 75 6d ┆etter. It is passed three argum┆
0x0120…0140 65 6e 74 73 3a 20 54 4f 20 72 65 63 69 70 69 65 6e 74 73 2c 20 53 55 42 4a 45 43 54 2c 20 61 6e ┆ents: TO recipients, SUBJECT, an┆
0x0140…0160 64 20 43 43 20 72 65 63 69 70 69 65 6e 74 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d 63 ┆d CC recipients.") (defvar mh-c┆
0x0160…0180 6c 65 61 6e 2d 6d 65 73 73 61 67 65 2d 68 65 61 64 65 72 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d ┆lean-message-header nil "\ *Non-┆
0x0180…01a0 6e 69 6c 20 6d 65 61 6e 73 20 72 65 6d 6f 76 65 20 69 6e 76 69 73 69 62 6c 65 20 68 65 61 64 65 ┆nil means remove invisible heade┆
0x01a0…01c0 72 20 6c 69 6e 65 73 20 6f 72 20 6f 6e 6c 79 20 73 68 6f 77 20 76 69 73 69 62 6c 65 20 68 65 61 ┆r lines or only show visible hea┆
0x01c0…01e0 64 65 72 0a 6c 69 6e 65 73 20 69 6e 20 6d 65 73 73 61 67 65 73 2e 22 29 0a 0a 28 64 65 66 76 61 ┆der lines in messages.") (defva┆
0x01e0…0200 72 20 6d 68 2d 76 69 73 69 62 6c 65 2d 68 65 61 64 65 72 73 20 6e 69 6c 20 22 5c 0a 2a 49 66 20 ┆r mh-visible-headers nil "\ *If ┆
0x0200…0220 6e 6f 6e 2d 6e 69 6c 2c 20 69 74 20 63 6f 6e 74 61 69 6e 73 20 61 20 72 65 67 65 78 70 20 73 70 ┆non-nil, it contains a regexp sp┆
0x0220…0240 65 63 69 66 79 69 6e 67 20 74 68 65 20 68 65 61 64 65 72 73 20 74 68 61 74 20 61 72 65 20 73 68 ┆ecifying the headers that are sh┆
0x0240…0260 6f 77 6e 20 69 6e 0a 61 20 6d 65 73 73 61 67 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d ┆own in a message.") (defvar mh-┆
0x0260…0280 75 73 65 2d 6d 68 6c 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 75 73 ┆use-mhl nil "\ *Non-nil means us┆
0x0280…02a0 65 20 6d 68 6c 20 74 6f 20 66 6f 72 6d 61 74 20 6d 65 73 73 61 67 65 73 2e 22 29 0a 0a 28 64 65 ┆e mhl to format messages.") (de┆
0x02a0…02c0 66 76 61 72 20 6d 68 2d 6c 70 72 2d 63 6f 6d 6d 61 6e 64 2d 66 6f 72 6d 61 74 20 22 6c 70 72 20 ┆fvar mh-lpr-command-format "lpr ┆
0x02c0…02e0 2d 70 20 2d 4a 20 27 25 73 27 22 20 22 5c 0a 2a 46 6f 72 6d 61 74 20 66 6f 72 20 55 6e 69 78 20 ┆-p -J '%s'" "\ *Format for Unix ┆
0x02e0…0300 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 74 6f 20 70 72 69 6e 74 20 61 20 6d 65 73 73 61 67 65 2e ┆command line to print a message.┆
0x0300…0320 20 54 68 65 20 66 6f 72 6d 61 74 20 73 68 6f 75 6c 64 20 62 65 0a 61 20 75 6e 69 78 20 63 6f 6d ┆ The format should be a unix com┆
0x0320…0340 6d 61 6e 64 20 6c 69 6e 65 2c 20 77 69 74 68 20 74 68 65 20 73 74 72 69 6e 67 20 5c 22 25 73 5c ┆mand line, with the string \"%s\┆
0x0340…0360 22 20 77 68 65 72 65 20 74 68 65 20 66 6f 6c 64 65 72 20 61 6e 64 20 6d 65 73 73 61 67 65 0a 6e ┆" where the folder and message n┆
0x0360…0380 75 6d 62 65 72 20 73 68 6f 75 6c 64 20 61 70 70 65 61 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 ┆umber should appear.") (defvar ┆
0x0380…03a0 6d 68 2d 73 75 6d 6d 61 72 79 2d 68 65 69 67 68 74 20 34 20 22 5c 0a 2a 4e 75 6d 62 65 72 20 6f ┆mh-summary-height 4 "\ *Number o┆
0x03a0…03c0 66 20 6c 69 6e 65 73 20 69 6e 20 73 75 6d 6d 61 72 79 20 77 69 6e 64 6f 77 2e 22 29 0a 0a 28 64 ┆f lines in summary window.") (d┆
0x03c0…03e0 65 66 76 61 72 20 6d 68 2d 69 6e 73 2d 62 75 66 2d 70 72 65 66 69 78 20 22 3e 3e 20 22 20 22 5c ┆efvar mh-ins-buf-prefix ">> " "\┆
0x03e0…0400 0a 2a 53 74 72 69 6e 67 20 74 6f 20 70 75 74 20 62 65 66 6f 72 65 20 65 61 63 68 20 6e 6f 6e 2d ┆ *String to put before each non-┆
0x0400…0420 62 6c 61 6e 6b 20 6c 69 6e 65 20 6f 66 20 74 68 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 65 ┆blank line of the the current me┆
0x0420…0440 73 73 61 67 65 0a 61 73 20 69 74 20 69 73 20 69 6e 73 65 72 74 65 64 20 69 6e 20 61 6e 20 6f 75 ┆ssage as it is inserted in an ou┆
0x0440…0460 74 67 6f 69 6e 67 20 6c 65 74 74 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d 63 6d 64 ┆tgoing letter.") (defvar mh-cmd┆
0x0460…0480 2d 6e 6f 74 65 20 34 20 22 5c 0a 4f 66 66 73 65 74 20 74 6f 20 69 6e 73 65 72 74 20 6e 6f 74 61 ┆-note 4 "\ Offset to insert nota┆
0x0480…04a0 74 69 6f 6e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d 69 6e 76 69 73 69 62 6c 65 2d 68 65 61 ┆tion") (defvar mh-invisible-hea┆
0x04a0…04c0 64 65 72 73 20 22 5e 52 65 63 65 69 76 65 64 3a 20 5c 5c 7c 5e 4d 65 73 73 61 67 65 2d 49 64 3a ┆ders "^Received: \\|^Message-Id:┆
0x04c0…04e0 20 5c 5c 7c 5e 52 65 6d 61 69 6c 65 64 2d 5c 5c 7c 5e 56 69 61 3a 20 5c 5c 7c 5e 4d 61 69 6c 2d ┆ \\|^Remailed-\\|^Via: \\|^Mail-┆
0x04e0…0500 66 72 6f 6d 3a 20 5c 5c 7c 5e 52 65 74 75 72 6e 2d 50 61 74 68 3a 20 5c 5c 7c 5e 49 6e 2d 52 65 ┆from: \\|^Return-Path: \\|^In-Re┆
0x0500…0520 70 6c 79 2d 54 6f 3a 20 5c 5c 7c 5e 52 65 73 65 6e 74 2d 22 20 22 5c 0a 52 65 67 65 78 70 20 73 ┆ply-To: \\|^Resent-" "\ Regexp s┆
0x0520…0540 70 65 63 69 66 79 69 6e 67 20 68 65 61 64 65 72 73 20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 74 ┆pecifying headers that are not t┆
0x0540…0560 6f 20 62 65 20 73 68 6f 77 6e 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d 72 65 6a 65 63 74 ┆o be shown.") (defvar mh-reject┆
0x0560…0580 65 64 2d 6c 65 74 74 65 72 2d 73 74 61 72 74 20 22 5e 20 20 20 2d 2d 2d 2d 2d 20 55 6e 73 65 6e ┆ed-letter-start "^ ----- Unsen┆
0x0580…05a0 74 20 6d 65 73 73 61 67 65 20 66 6f 6c 6c 6f 77 73 20 2d 2d 2d 2d 2d 24 22 20 22 5c 0a 52 65 67 ┆t message follows -----$" "\ Reg┆
0x05a0…05c0 65 78 70 20 73 70 65 63 69 66 79 69 6e 67 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 ┆exp specifying the beginning of ┆
0x05c0…05e0 74 68 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 61 20 6c 65 74 74 65 72 20 72 65 74 75 ┆the wrapper around a letter retu┆
0x05e0…0600 72 6e 65 64 0a 62 79 20 74 68 65 20 6d 61 69 6c 20 73 79 73 74 65 6d 2e 22 29 0a 0a 28 64 65 66 ┆rned by the mail system.") (def┆
0x0600…0620 76 61 72 20 6d 68 2d 67 6f 6f 64 2d 6d 73 67 2d 72 65 67 65 78 70 20 22 5e 2e 2e 2e 2e 5b 5e 44 ┆var mh-good-msg-regexp "^....[^D┆
0x0620…0640 5e 5d 22 20 22 5c 0a 52 65 67 65 78 70 20 73 70 65 63 69 66 69 79 69 6e 67 20 74 68 65 20 73 63 ┆^]" "\ Regexp specifiying the sc┆
0x0640…0660 61 6e 20 6c 69 6e 65 73 20 74 68 61 74 20 61 72 65 20 27 67 6f 6f 64 27 20 6d 65 73 73 61 67 65 ┆an lines that are 'good' message┆
0x0660…0680 73 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d 72 65 64 69 73 74 2d 66 75 6c 6c 2d 63 6f 6e 74 ┆s") (defvar mh-redist-full-cont┆
0x0680…06a0 65 6e 74 73 20 74 20 22 5c 0a 4e 6f 6e 2d 6e 69 6c 20 69 66 20 4d 48 20 60 64 69 73 74 27 20 63 ┆ents t "\ Non-nil if MH `dist' c┆
0x06a0…06c0 6f 6d 6d 61 6e 64 20 77 61 6e 74 73 20 74 68 65 20 77 68 6f 6c 65 20 6c 65 74 74 65 72 20 74 6f ┆ommand wants the whole letter to┆
0x06c0…06e0 20 72 65 64 69 73 74 72 69 62 75 74 65 20 28 69 2e 65 2e 2c 0a 4d 48 2e 36 29 2e 20 20 4e 69 6c ┆ redistribute (i.e., MH.6). Nil┆
0x06e0…0700 20 6f 74 68 65 72 77 69 73 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d 75 73 65 72 2d 70 ┆ otherwise.") (defvar mh-user-p┆
0x0700…0720 61 74 68 20 22 22 20 22 5c 0a 55 73 65 72 27 73 20 6d 61 69 6c 20 66 6f 6c 64 65 72 2e 22 29 0a ┆ath "" "\ User's mail folder.") ┆
0x0720…0740 0a 28 64 65 66 76 61 72 20 6d 68 2d 6c 61 73 74 2d 64 65 73 74 69 6e 61 74 69 6f 6e 20 6e 69 6c ┆ (defvar mh-last-destination nil┆
0x0740…0760 20 22 5c 0a 44 65 73 74 69 6e 61 74 69 6f 6e 20 6f 66 20 6c 61 73 74 20 22 20 6d 6f 76 65 20 22 ┆ "\ Destination of last " move "┆
0x0760…0780 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d 66 6f 6c 64 65 72 2d 6d ┆ command.") (defvar mh-folder-m┆
0x0780…07a0 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 20 22 5c 0a ┆ode-map (make-sparse-keymap) "\ ┆
0x07a0…07c0 4b 65 79 6d 61 70 20 66 6f 72 20 4d 48 20 66 6f 6c 64 65 72 73 2e 22 29 0a 0a 28 64 65 66 76 61 ┆Keymap for MH folders.") (defva┆
0x07c0…07e0 72 20 6d 68 2d 6c 65 74 74 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 ┆r mh-letter-mode-map (make-spars┆
0x07e0…0800 65 2d 6b 65 79 6d 61 70 29 20 22 5c 0a 4b 65 79 6d 61 70 20 66 6f 72 20 63 6f 6d 70 6f 73 69 6e ┆e-keymap) "\ Keymap for composin┆
0x0800…0820 67 20 6d 61 69 6c 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 68 2d 70 69 63 6b 2d 6d 6f 64 65 2d ┆g mail.") (defvar mh-pick-mode-┆
0x0820…0840 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 20 22 5c 0a 4b 65 79 6d ┆map (make-sparse-keymap) "\ Keym┆
0x0840…0860 61 70 20 66 6f 72 20 73 65 61 72 63 68 69 6e 67 20 66 6f 6c 64 65 72 2e 22 29 0a 0a 28 64 65 66 ┆ap for searching folder.") (def┆
0x0860…0880 76 61 72 20 6d 68 2d 66 6f 6c 64 65 72 2d 6c 69 73 74 20 6e 69 6c 20 22 5c 0a 4c 69 73 74 20 6f ┆var mh-folder-list nil "\ List o┆
0x0880…08a0 66 20 66 6f 6c 64 65 72 20 6e 61 6d 65 73 20 66 6f 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 22 29 ┆f folder names for completion.")┆
0x08a0…08c0 0a 0a 28 64 65 66 6d 61 63 72 6f 20 70 75 73 68 20 28 76 20 6c 29 20 28 62 79 74 65 2d 63 6f 64 ┆ (defmacro push (v l) (byte-cod┆
0x08c0…08e0 65 20 22 c2 08 c3 09 08 45 45 87 22 20 5b 6c 20 76 20 73 65 74 71 20 63 6f 6e 73 5d 20 35 29 29 ┆e " EE " [l v setq cons] 5))┆
0x08e0…0900 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 61 61 72 20 28 6c 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆ (defmacro caar (l) (byte-code ┆
0x0900…0920 22 c1 c1 08 44 44 87 22 20 5b 6c 20 63 61 72 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 ┆" DD " [l car] 3)) (defmacro ┆
0x0920…0940 63 61 64 72 20 28 6c 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 5b 6c 20 ┆cadr (l) (byte-code " DD " [l ┆
0x0940…0960 63 61 72 20 63 64 72 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 64 61 72 20 28 6c 29 ┆car cdr] 3)) (defmacro cdar (l)┆
0x0960…0980 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 5b 6c 20 63 64 72 20 63 61 72 5d ┆ (byte-code " DD " [l cdr car]┆
0x0980…09a0 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 64 64 72 20 28 6c 29 20 28 62 79 74 65 2d 63 ┆ 3)) (defmacro cddr (l) (byte-c┆
0x09a0…09c0 6f 64 65 20 22 c1 c1 08 44 44 87 22 20 5b 6c 20 63 64 72 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 ┆ode " DD " [l cdr] 3)) (defma┆
0x09c0…09e0 63 72 6f 20 77 68 65 6e 20 28 70 72 65 64 20 26 72 65 73 74 20 62 6f 64 79 29 20 28 62 79 74 65 ┆cro when (pred &rest body) (byte┆
0x09e0…0a00 2d 63 6f 64 65 20 22 c2 08 09 42 44 87 22 20 5b 70 72 65 64 20 62 6f 64 79 20 63 6f 6e 64 5d 20 ┆-code " BD " [pred body cond] ┆
0x0a00…0a20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 70 63 20 28 66 75 6e 63 20 6c 69 73 74 29 20 28 62 79 ┆3)) (defun mapc (func list) (by┆
0x0a20…0a40 74 65 2d 63 6f 64 65 20 22 08 85 12 00 c2 09 08 40 5c 22 88 08 41 89 10 88 82 00 00 87 22 20 5b ┆te-code " @\" A " [┆
0x0a40…0a60 6c 69 73 74 20 66 75 6e 63 20 66 75 6e 63 61 6c 6c 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d ┆list func funcall] 4)) (defun m┆
0x0a60…0a80 68 2d 72 6d 61 69 6c 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 49 6e 63 28 6f ┆h-rmail (&optional arg) "\ Inc(o┆
0x0a80…0aa0 72 70 6f 72 61 74 65 29 20 6e 65 77 20 6d 61 69 6c 20 28 6e 6f 20 61 72 67 29 20 6f 72 20 73 63 ┆rporate) new mail (no arg) or sc┆
0x0aa0…0ac0 61 6e 20 61 20 4d 48 20 6d 61 69 6c 20 62 6f 78 20 28 61 72 67 20 67 69 76 65 6e 29 2e 0a 54 68 ┆an a MH mail box (arg given). Th┆
0x0ac0…0ae0 69 73 20 66 72 6f 6e 74 20 65 6e 64 20 75 73 65 73 20 74 68 65 20 4d 48 20 6d 61 69 6c 20 73 79 ┆is front end uses the MH mail sy┆
0x0ae0…0b00 73 74 65 6d 2c 20 77 68 69 63 68 20 75 73 65 73 20 64 69 66 66 65 72 65 6e 74 20 63 6f 6e 76 65 ┆stem, which uses different conve┆
0x0b00…0b20 6e 74 69 6f 6e 73 0a 66 72 6f 6d 20 74 68 65 20 75 73 75 61 6c 20 6d 61 69 6c 20 73 79 73 74 65 ┆ntions from the usual mail syste┆
0x0b20…0b40 6d 2e 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 ┆m." (interactive "P") (byte-code┆
0x0b40…0b60 20 22 c1 88 c2 20 88 08 83 0f 00 c3 c4 21 82 11 00 c5 20 87 22 20 5b 61 72 67 20 6e 69 6c 20 6d ┆ " ! " [arg nil m┆
0x0b60…0b80 68 2d 66 69 6e 64 2d 70 61 74 68 20 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 6d ┆h-find-path call-interactively m┆
0x0b80…0ba0 68 2d 76 69 73 69 74 2d 66 6f 6c 64 65 72 20 6d 68 2d 69 6e 63 2d 66 6f 6c 64 65 72 5d 20 34 29 ┆h-visit-folder mh-inc-folder] 4)┆
0x0ba0…0bc0 29 0a 0a 28 64 65 66 75 6e 20 6d 68 2d 73 6d 61 69 6c 20 6e 69 6c 20 22 5c 0a 53 65 6e 64 20 6d ┆) (defun mh-smail nil "\ Send m┆
0x0bc0…0be0 61 69 6c 20 75 73 69 6e 67 20 74 68 65 20 4d 48 20 6d 61 69 6c 20 73 79 73 74 65 6d 2e 22 20 28 ┆ail using the MH mail system." (┆
0x0be0…0c00 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 c1 20 88 c2 c3 ┆interactive) (byte-code " ┆
0x0c00…0c20 21 87 22 20 5b 6e 69 6c 20 6d 68 2d 66 69 6e 64 2d 70 61 74 68 20 63 61 6c 6c 2d 69 6e 74 65 72 ┆! " [nil mh-find-path call-inter┆
0x0c20…0c40 61 63 74 69 76 65 6c 79 20 6d 68 2d 73 65 6e 64 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 68 ┆actively mh-send] 3)) (defun mh┆
0x0c40…0c60 2d 73 6d 61 69 6c 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 22 5c 0a 53 65 6e 64 20 ┆-smail-other-window nil "\ Send ┆
0x0c60…0c80 6d 61 69 6c 20 69 6e 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 20 75 73 69 6e 67 20 74 68 65 20 4d ┆mail in other window using the M┆
0x0c80…0ca0 48 20 6d 61 69 6c 20 73 79 73 74 65 6d 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 ┆H mail system." (interactive) (b┆
0x0ca0…0cc0 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 c3 21 87 22 20 5b 6e 69 6c 20 6d 68 2d 66 69 6e ┆yte-code " ! " [nil mh-fin┆
0x0cc0…0ce0 64 2d 70 61 74 68 20 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 6d 68 2d 73 65 6e ┆d-path call-interactively mh-sen┆
0x0ce0…0d00 64 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 68 2d 61 ┆d-other-window] 3)) (defun mh-a┆
0x0d00…0d20 6e 73 77 65 72 20 28 70 72 65 66 69 78 2d 70 72 6f 76 69 64 65 64 20 6d 73 67 29 20 22 5c 0a 41 ┆nswer (prefix-provided msg) "\ A┆
0x0d20…0d40 6e 73 77 65 72 20 61 20 4d 45 53 53 41 47 45 20 28 64 65 66 61 75 6c 74 3a 20 64 69 73 70 6c 61 ┆nswer a MESSAGE (default: displa┆
0x0d40…0d60 79 65 64 20 6d 65 73 73 61 67 65 29 2e 0a 49 66 20 28 6f 70 74 69 6f 6e 61 6c 29 20 70 72 65 66 ┆yed message). If (optional) pref┆
0x0d60…0d80 69 78 20 61 72 67 75 6d 65 6e 74 20 70 72 6f 76 69 64 65 64 2c 20 74 68 65 6e 20 69 6e 63 6c 75 ┆ix argument provided, then inclu┆
0x0d80…0da0 64 65 20 74 68 65 20 6d 65 73 73 61 67 65 20 69 6e 20 74 68 65 20 72 65 70 6c 79 2e 22 20 28 69 ┆de the message in the reply." (i┆
0x0da0…0dc0 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c2 c1 21 44 87 22 20 5b ┆nteractive (byte-code " !D " [┆
0x0dc0…0de0 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 74 20 6d 68 2d 67 65 74 2d 6d 73 67 2d ┆current-prefix-arg t mh-get-msg-┆
0x0de0…0e00 6e 75 6d 5d 20 33 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 d0 1a d1 d2 d3 c4 c1 24 d4 ┆num] 3)) (byte-code " $ ┆
0x0e00…0e20 0e 06 21 0e 08 0e 0a 1e 09 1e 07 1d 1b d5 d6 21 88 d7 0b d8 5c 22 86 27 00 d7 0b d9 5c 22 83 46 ┆ ! ! \" ' \" F┆
0x0e20…0e40 00 da db dc dd de df e0 0e 08 0e 06 e1 e2 26 07 0e 0b 85 41 00 e3 e4 44 5c 22 5c 22 82 89 00 d7 ┆ & A D\"\" ┆
0x0e40…0e60 0b e5 5c 22 83 69 00 da db dc dd de df e0 0e 08 0e 06 e6 e5 26 07 0e 0b 85 64 00 e3 e4 44 5c 22 ┆ \" i & d D\"┆
0x0e60…0e80 5c 22 82 89 00 d7 0b e7 5c 22 85 89 00 da db dc dd de df e0 0e 08 0e 06 e6 e2 26 07 0e 0b 85 87 ┆\" \" & ┆
0x0e80…0ea0 00 e3 e4 44 5c 22 5c 22 88 e8 e9 ea eb 0e 0c 5c 22 5c 22 88 ec ea eb 0e 0c 5c 22 21 88 ed 20 88 ┆ D\"\" \"\" \"! ┆
0x0ea0…0ec0 ee c4 21 88 ef f0 21 ef f1 21 ef f2 21 1e 0f 1e 0e 1e 0d 65 62 88 f3 f4 21 88 0e 0b 3f 85 c5 00 ┆ ! ! ! ! eb ! ? ┆
0x0ec0…0ee0 f5 0e 06 0d 0e 09 23 88 f6 0e 06 f7 c1 23 88 d5 f8 21 88 f9 d9 0e 07 0e 06 0e 0d 0e 0e 0e 0f fa ┆ # # ! ┆
0x0ee0…0f00 fb 26 08 2b 2c 29 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 74 20 6d ┆ & +,) " [current-prefix-arg t m┆
0x0f00…0f20 69 6e 69 62 75 66 66 65 72 2d 68 65 6c 70 2d 66 6f 72 6d 20 72 65 70 6c 79 2d 74 6f 20 6e 69 6c ┆inibuffer-help-form reply-to nil┆
0x0f20…0f40 20 6d 73 67 2d 66 69 6c 65 6e 61 6d 65 20 6d 73 67 20 66 6f 6c 64 65 72 20 6d 68 2d 63 75 72 72 ┆ msg-filename msg folder mh-curr┆
0x0f40…0f60 65 6e 74 2d 66 6f 6c 64 65 72 20 73 68 6f 77 2d 62 75 66 66 65 72 20 6d 68 2d 73 68 6f 77 2d 62 ┆ent-folder show-buffer mh-show-b┆
0x0f60…0f80 75 66 66 65 72 20 70 72 65 66 69 78 2d 70 72 6f 76 69 64 65 64 20 6d 68 2d 75 73 65 72 2d 70 61 ┆uffer prefix-provided mh-user-pa┆
0x0f80…0fa0 74 68 20 74 6f 20 73 75 62 6a 65 63 74 20 63 63 20 22 66 72 6f 6d 20 3d 3e 20 53 65 6e 64 65 72 ┆th to subject cc "from => Sender┆
0x0fa0…0fc0 0a 20 20 74 6f 20 3d 3e 20 53 65 6e 64 65 72 20 61 6e 64 20 70 72 69 6d 61 72 79 20 72 65 63 69 ┆ to => Sender and primary reci┆
0x0fc0…0fe0 70 69 65 6e 74 73 0a 20 20 63 63 20 3d 3e 20 53 65 6e 64 65 72 20 61 6e 64 20 61 6c 6c 20 72 65 ┆pients cc => Sender and all re┆
0x0fe0…1000 63 69 70 69 65 6e 74 73 22 20 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 52 65 70 6c 79 ┆cipients" completing-read "Reply┆
0x1000…1020 20 74 6f 20 77 68 6f 6d 3a 20 22 20 28 28 22 66 72 6f 6d 22 29 20 28 22 74 6f 22 29 20 28 22 63 ┆ to whom: " (("from") ("to") ("c┆
0x1020…1040 63 22 29 29 20 6d 68 2d 6d 73 67 2d 66 69 6c 65 6e 61 6d 65 20 6d 65 73 73 61 67 65 20 22 43 6f ┆c")) mh-msg-filename message "Co┆
0x1040…1060 6d 70 6f 73 69 6e 67 20 61 20 72 65 70 6c 79 2e 2e 2e 22 20 65 71 75 61 6c 20 22 66 72 6f 6d 22 ┆mposing a reply..." equal "from"┆
0x1060…1080 20 22 22 20 61 70 70 6c 79 20 6d 68 2d 65 78 65 63 2d 63 6d 64 20 6e 63 6f 6e 63 20 6c 69 73 74 ┆ "" apply mh-exec-cmd nconc list┆
0x1080…10a0 20 22 72 65 70 6c 22 20 22 2d 62 75 69 6c 64 22 20 22 2d 6e 6f 64 72 61 66 74 66 6f 6c 64 65 72 ┆ "repl" "-build" "-nodraftfolder┆
0x10a0…10c0 22 20 22 2d 6e 6f 63 63 22 20 22 61 6c 6c 22 20 22 2d 66 69 6c 74 65 72 22 20 22 6d 68 6c 2e 72 ┆" "-nocc" "all" "-filter" "mhl.r┆
0x10c0…10e0 65 70 6c 79 22 20 22 74 6f 22 20 22 2d 63 63 22 20 22 63 63 22 20 6d 68 2d 72 65 61 64 2d 64 72 ┆eply" "to" "-cc" "cc" mh-read-dr┆
0x10e0…1100 61 66 74 20 22 72 65 70 6c 79 22 20 66 6f 72 6d 61 74 20 22 25 73 72 65 70 6c 79 22 20 64 65 6c ┆aft "reply" format "%sreply" del┆
0x1100…1120 65 74 65 2d 66 69 6c 65 20 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 73 20 73 65 ┆ete-file delete-other-windows se┆
0x1120…1140 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 6d 68 2d 67 65 74 2d 66 69 65 6c 64 ┆t-buffer-modified-p mh-get-field┆
0x1140…1160 20 22 54 6f 3a 22 20 22 53 75 62 6a 65 63 74 3a 22 20 22 43 63 3a 22 20 6d 68 2d 67 6f 74 6f 2d ┆ "To:" "Subject:" "Cc:" mh-goto-┆
0x1160…1180 68 65 61 64 65 72 2d 65 6e 64 20 31 20 6d 68 2d 64 69 73 70 6c 61 79 2d 6d 73 67 20 6d 68 2d 61 ┆header-end 1 mh-display-msg mh-a┆
0x1180…11a0 64 64 2d 6d 73 67 2d 74 6f 2d 73 65 71 20 22 61 6e 73 77 65 72 65 64 22 20 22 43 6f 6d 70 6f 73 ┆dd-msg-to-seq "answered" "Compos┆
0x11a0…11c0 69 6e 67 20 61 20 72 65 70 6c 79 2e 2e 2e 64 6f 6e 65 22 20 6d 68 2d 63 6f 6d 70 6f 73 65 2d 61 ┆ing a reply...done" mh-compose-a┆
0x11c0…11e0 6e 64 2d 73 65 6e 64 2d 6d 61 69 6c 20 22 2d 22 20 22 52 65 70 6c 69 65 64 3a 22 5d 20 33 38 29 ┆nd-send-mail "-" "Replied:"] 38)┆
0x11e0…1200 29 0a 0a 28 64 65 66 75 6e 20 6d 68 2d 62 75 72 73 74 2d 64 69 67 65 73 74 20 6e 69 6c 20 22 5c ┆) (defun mh-burst-digest nil "\┆
0x1200…1220 0a 42 75 72 73 74 20 61 70 61 72 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 ┆ Burst apart the current message┆
0x1220…1240 2c 20 77 68 69 63 68 20 73 68 6f 75 6c 64 20 62 65 20 61 20 64 69 67 65 73 74 2e 20 20 4d 65 73 ┆, which should be a digest. Mes┆
0x1240…1260 73 61 67 65 20 69 73 0a 72 65 70 6c 61 63 65 64 20 62 79 20 69 74 73 20 74 61 62 6c 65 20 6f 66 ┆sage is replaced by its table of┆
0x1260…1280 20 63 6f 6e 74 65 6e 74 73 20 61 6e 64 20 74 68 65 20 6c 65 74 74 65 72 73 20 66 72 6f 6d 20 74 ┆ contents and the letters from t┆
0x1280…12a0 68 65 20 64 69 67 65 73 74 20 61 72 65 20 69 6e 73 65 72 74 65 64 0a 69 6e 74 6f 20 74 68 65 20 ┆he digest are inserted into the ┆
0x12a0…12c0 66 6f 6c 64 65 72 20 61 66 74 65 72 20 74 68 61 74 20 6d 65 73 73 61 67 65 2e 22 20 28 69 6e 74 ┆folder after that message." (int┆
0x12c0…12e0 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 88 c7 c1 21 18 0a 86 0b 00 ┆eractive) (byte-code " ! ┆
0x12e0…1300 0b 85 1c 00 c8 c9 21 83 1a 00 ca 0c 21 82 1c 00 cb 20 88 cc cd 21 88 ce cf 0c 08 d0 24 88 d1 0c ┆ ! ! ! $ ┆
0x1300…1320 d2 d3 0d 5c 22 5c 22 88 cc d4 21 29 87 22 20 5b 64 69 67 65 73 74 20 74 20 6d 68 2d 64 65 6c 65 ┆ \"\" !) " [digest t mh-dele┆
0x1320…1340 74 65 2d 6c 69 73 74 20 6d 68 2d 6d 6f 76 65 2d 6c 69 73 74 20 6d 68 2d 63 75 72 72 65 6e 74 2d ┆te-list mh-move-list mh-current-┆
0x1340…1360 66 6f 6c 64 65 72 20 6d 68 2d 66 69 72 73 74 2d 6d 73 67 2d 6e 75 6d 20 6e 69 6c 20 6d 68 2d 67 ┆folder mh-first-msg-num nil mh-g┆
0x1360…1380 65 74 2d 6d 73 67 2d 6e 75 6d 20 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 22 50 72 6f 63 65 73 73 20 ┆et-msg-num yes-or-no-p "Process ┆
0x1380…13a0 6f 75 74 73 74 61 6e 64 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 28 6f 72 20 6c 6f 73 65 20 74 68 ┆outstanding commands (or lose th┆
0x13a0…13c0 65 6d 29 3f 20 22 20 6d 68 2d 70 72 6f 63 65 73 73 2d 63 6f 6d 6d 61 6e 64 73 20 6d 68 2d 75 6e ┆em)? " mh-process-commands mh-un┆
0x13c0…13e0 64 6f 2d 66 6f 6c 64 65 72 20 6d 65 73 73 61 67 65 20 22 42 75 72 73 74 69 6e 67 20 64 69 67 65 ┆do-folder message "Bursting dige┆
0x13e0…1400 73 74 2e 2e 2e 22 20 6d 68 2d 65 78 65 63 2d 63 6d 64 20 22 62 75 72 73 74 22 20 22 2d 69 6e 70 ┆st..." mh-exec-cmd "burst" "-inp┆
0x1400…1420 6c 61 63 65 22 20 6d 68 2d 73 63 61 6e 2d 66 6f 6c 64 65 72 20 66 6f 72 6d 61 74 20 22 25 64 2d ┆lace" mh-scan-folder format "%d-┆
0x1420…1440 6c 61 73 74 22 20 22 42 75 72 73 74 69 6e 67 20 64 69 67 65 73 74 2e 2e 2e 64 6f 6e 65 22 5d 20 ┆last" "Bursting digest...done"] ┆
0x1440…1460 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 6d 68 2d 63 6f 70 79 2d 6d 73 67 20 28 70 72 65 66 69 78 ┆11)) (defun mh-copy-msg (prefix┆
0x1460…1480 2d 70 72 6f 76 69 64 65 64 20 6d 73 67 2d 6f 72 2d 73 65 71 20 64 65 73 74 29 20 22 5c 0a 43 6f ┆-provided msg-or-seq dest) "\ Co┆
0x1480…14a0 70 79 20 73 70 65 63 69 66 69 65 64 20 4d 45 53 53 41 47 45 28 73 29 20 28 64 65 66 61 75 6c 74 ┆py specified MESSAGE(s) (default┆
0x14a0…14c0 3a 20 64 69 73 70 6c 61 79 65 64 20 6d 65 73 73 61 67 65 29 20 74 6f 20 61 6e 6f 74 68 65 72 0a ┆: displayed message) to another ┆
0x14c0…14e0 46 4f 4c 44 45 52 20 77 69 74 68 6f 75 74 20 64 65 6c 65 74 69 6e 67 20 74 68 65 6d 2e 0a 49 66 ┆FOLDER without deleting them. If┆
0x14e0…1500 20 28 6f 70 74 69 6f 6e 61 6c 29 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 73 75 70 70 ┆ (optional) prefix argument supp┆
0x1500…1520 6c 69 65 64 2c 20 74 68 65 6e 20 70 72 6f 6d 70 74 20 66 6f 72 20 73 65 71 75 65 6e 63 65 20 74 ┆lied, then prompt for sequence t┆
0x1520…1540 6f 20 75 73 65 0a 69 6e 73 74 65 61 64 20 6f 66 20 6d 65 73 73 61 67 65 2e 22 20 28 69 6e 74 65 ┆o use instead of message." (inte┆
0x1540…1560 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 08 83 0c 00 c3 c4 09 5c 22 82 0f ┆ractive (byte-code " \" ┆
0x1560…1580 00 c5 c2 21 c6 c7 c8 c2 23 45 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 ┆ ! #E " [current-prefix-arg┆
0x1580…15a0 20 6d 68 2d 6e 61 72 72 6f 77 65 64 2d 74 6f 2d 73 65 71 20 74 20 6d 68 2d 72 65 61 64 2d 73 65 ┆ mh-narrowed-to-seq t mh-read-se┆
0x15a0…15c0 71 20 22 43 6f 70 79 22 20 6d 68 2d 67 65 74 2d 6d 73 67 2d 6e 75 6d 20 6d 68 2d 70 72 6f 6d 70 ┆q "Copy" mh-get-msg-num mh-promp┆
0x15c0…15e0 74 2d 66 6f 72 2d 66 6f 6c 64 65 72 20 22 43 6f 70 79 20 74 6f 22 20 22 22 5d 20 38 29 29 20 28 ┆t-for-folder "Copy to" ""] 8)) (┆
0x15e0…1600 62 79 74 65 2d 63 6f 64 65 20 22 c8 88 c9 ca 0b cb cc 0c 0d 26 06 88 0e 06 83 1a 00 cd 0b ce 0e ┆byte-code " & ┆
0x1600…1620 07 23 82 20 00 cf 0b ce 0e 07 23 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 ┆ # # " [current-prefix-ar┆
0x1620…1640 67 20 6d 68 2d 6e 61 72 72 6f 77 65 64 2d 74 6f 2d 73 65 71 20 74 20 6d 73 67 2d 6f 72 2d 73 65 ┆g mh-narrowed-to-seq t msg-or-se┆
0x1640…1660 71 20 6d 68 2d 63 75 72 72 65 6e 74 2d 66 6f 6c 64 65 72 20 64 65 73 74 20 70 72 65 66 69 78 2d ┆q mh-current-folder dest prefix-┆
0x1660…1680 70 72 6f 76 69 64 65 64 20 6d 68 2d 63 6d 64 2d 6e 6f 74 65 20 6e 69 6c 20 6d 68 2d 65 78 65 63 ┆provided mh-cmd-note nil mh-exec┆
0x1680…16a0 2d 63 6d 64 20 22 72 65 66 69 6c 65 22 20 22 2d 6c 69 6e 6b 22 20 22 2d 73 72 63 22 20 6d 68 2d ┆-cmd "refile" "-link" "-src" mh-┆
0x16a0…16c0 6e 6f 74 61 74 65 2d 73 65 71 20 36 37 20 6d 68 2d 6e 6f 74 61 74 65 5d 20 37 29 29 0a 0a 28 64 ┆notate-seq 67 mh-notate] 7)) (d┆
0x16c0…16e0 65 66 75 6e 20 6d 68 2d 64 65 6c 65 74 65 2d 6d 73 67 20 28 70 72 65 66 69 78 2d 70 72 6f 76 69 ┆efun mh-delete-msg (prefix-provi┆
0x16e0…1700 64 65 64 20 6d 73 67 2d 6f 72 2d 73 65 71 29 20 22 5c 0a 4d 61 72 6b 20 74 68 65 20 73 70 65 63 ┆ded msg-or-seq) "\ Mark the spec┆
0x1700…1720 69 66 69 65 64 20 4d 45 53 53 41 47 45 28 73 29 20 28 64 65 66 61 75 6c 74 3a 20 64 69 73 70 6c ┆ified MESSAGE(s) (default: displ┆
0x1720…1740 61 79 65 64 20 6d 65 73 73 61 67 65 29 20 66 6f 72 20 6c 61 74 65 72 0a 64 65 6c 65 74 69 6f 6e ┆ayed message) for later deletion┆
0x1740…1760 2e 0a 49 66 20 28 6f 70 74 69 6f 6e 61 6c 29 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 ┆. If (optional) prefix argument ┆
0x1760…1780 73 75 70 70 6c 69 65 64 2c 20 74 68 65 6e 20 70 72 6f 6d 70 74 20 66 6f 72 20 73 65 71 75 65 6e ┆supplied, then prompt for sequen┆
0x1780…17a0 63 65 20 74 6f 20 75 73 65 0a 69 6e 73 74 65 61 64 20 6f 66 20 6d 65 73 73 61 67 65 2e 22 20 28 ┆ce to use instead of message." (┆
0x17a0…17c0 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 08 83 0c 00 c3 c4 09 ┆interactive (byte-code " ┆
0x17c0…17e0 5c 22 82 0f 00 c5 c2 21 44 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 ┆\" !D " [current-prefix-arg ┆
0x17e0…1800 6d 68 2d 6e 61 72 72 6f 77 65 64 2d 74 6f 2d 73 65 71 20 74 20 6d 68 2d 72 65 61 64 2d 73 65 71 ┆mh-narrowed-to-seq t mh-read-seq┆
0x1800…1820 20 22 44 65 6c 65 74 65 22 20 6d 68 2d 67 65 74 2d 6d 73 67 2d 6e 75 6d 5d 20 34 29 29 20 28 62 ┆ "Delete" mh-get-msg-num] 4)) (b┆
0x1820…1840 79 74 65 2d 63 6f 64 65 20 22 c5 88 0b 83 0d 00 c6 c7 0c 5c 22 82 10 00 c7 0c 21 88 c8 20 87 22 ┆yte-code " \" ! "┆
0x1840…1860 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 6d 68 2d 6e 61 72 72 6f 77 65 64 ┆ [current-prefix-arg mh-narrowed┆
0x1860…1880 2d 74 6f 2d 73 65 71 20 74 20 70 72 65 66 69 78 2d 70 72 6f 76 69 64 65 64 20 6d 73 67 2d 6f 72 ┆-to-seq t prefix-provided msg-or┆
0x1880…18a0 2d 73 65 71 20 6e 69 6c 20 6d 68 2d 6d 61 70 2d 74 6f 2d 73 65 71 2d 6d 73 67 73 20 6d 68 2d 64 ┆-seq nil mh-map-to-seq-msgs mh-d┆
0x18a0…18c0 65 6c 65 74 65 2d 61 2d 6d 73 67 20 6d 68 2d 6e 65 78 74 2d 6d 73 67 5d 20 34 29 29 0a 0a 28 64 ┆elete-a-msg mh-next-msg] 4)) (d┆
0x18c0…18e0 65 66 75 6e 20 6d 68 2d 64 65 6c 65 74 65 2d 6d 73 67 2d 66 72 6f 6d 2d 73 65 71 20 28 70 72 65 ┆efun mh-delete-msg-from-seq (pre┆
0x18e0…1900 66 69 78 2d 70 72 6f 76 69 64 65 64 20 6d 73 67 2d 6f 72 2d 73 65 71 20 26 6f 70 74 69 6f 6e 61 ┆fix-provided msg-or-seq &optiona┆
0x1900…1920 6c 20 66 72 6f 6d 2d 73 65 71 29 20 22 5c 0a 44 65 6c 65 74 65 20 4d 45 53 53 41 47 45 20 28 64 ┆l from-seq) "\ Delete MESSAGE (d┆
[…truncated at 200 lines…]