|
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: ┃ r ┃
Length: 4682 (0x124a)
Names: »rmailkwd.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/rmailkwd.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 72 6d 61 69 6c 2d 6c 61 62 65 6c 2d 6f 62 61 72 72 61 79 20 28 6d 61 ┆ (defvar rmail-label-obarray (ma┆
0x0020…0040 6b 65 2d 76 65 63 74 6f 72 20 34 37 20 30 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 72 6d 61 69 ┆ke-vector 47 0)) (defconst rmai┆
0x0040…0060 6c 2d 61 74 74 72 69 62 75 74 65 73 20 28 63 6f 6e 73 20 28 71 75 6f 74 65 20 72 6d 61 69 6c 2d ┆l-attributes (cons (quote rmail-┆
0x0060…0080 6b 65 79 77 6f 72 64 73 29 20 28 6d 61 70 63 61 72 20 28 71 75 6f 74 65 20 28 6c 61 6d 62 64 61 ┆keywords) (mapcar (quote (lambda┆
0x0080…00a0 20 28 73 29 20 28 69 6e 74 65 72 6e 20 73 20 72 6d 61 69 6c 2d 6c 61 62 65 6c 2d 6f 62 61 72 72 ┆ (s) (intern s rmail-label-obarr┆
0x00a0…00c0 61 79 29 29 29 20 28 71 75 6f 74 65 20 28 22 64 65 6c 65 74 65 64 22 20 22 61 6e 73 77 65 72 65 ┆ay))) (quote ("deleted" "answere┆
0x00c0…00e0 64 22 20 22 66 69 6c 65 64 22 20 22 66 6f 72 77 61 72 64 65 64 22 20 22 75 6e 73 65 65 6e 22 20 ┆d" "filed" "forwarded" "unseen" ┆
0x00e0…0100 22 65 64 69 74 65 64 22 29 29 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 72 6d 61 69 6c 2d 64 ┆"edited"))))) (defconst rmail-d┆
0x0100…0120 65 6c 65 74 65 64 2d 6c 61 62 65 6c 20 28 69 6e 74 65 72 6e 20 22 64 65 6c 65 74 65 64 22 20 72 ┆eleted-label (intern "deleted" r┆
0x0120…0140 6d 61 69 6c 2d 6c 61 62 65 6c 2d 6f 62 61 72 72 61 79 29 29 0a 0a 28 64 65 66 76 61 72 20 72 6d ┆mail-label-obarray)) (defvar rm┆
0x0140…0160 61 69 6c 2d 6b 65 79 77 6f 72 64 73 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d ┆ail-keywords nil) (defun rmail-┆
0x0160…0180 61 64 64 2d 6c 61 62 65 6c 20 28 73 74 72 69 6e 67 29 20 22 5c 0a 41 64 64 20 4c 41 42 45 4c 20 ┆add-label (string) "\ Add LABEL ┆
0x0180…01a0 74 6f 20 6c 61 62 65 6c 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 63 75 72 72 65 6e ┆to labels associated with curren┆
0x01a0…01c0 74 20 52 4d 41 49 4c 20 6d 65 73 73 61 67 65 2e 0a 43 6f 6d 70 6c 65 74 69 6f 6e 20 69 73 20 70 ┆t RMAIL message. Completion is p┆
0x01c0…01e0 65 72 66 6f 72 6d 65 64 20 6f 76 65 72 20 6b 6e 6f 77 6e 20 6c 61 62 65 6c 73 20 77 68 65 6e 20 ┆erformed over known labels when ┆
0x01e0…0200 72 65 61 64 69 6e 67 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 ┆reading." (interactive (byte-cod┆
0x0200…0220 65 20 22 c0 c1 21 43 87 22 20 5b 72 6d 61 69 6c 2d 72 65 61 64 2d 6c 61 62 65 6c 20 22 41 64 64 ┆e " !C " [rmail-read-label "Add┆
0x0220…0240 20 6c 61 62 65 6c 22 5d 20 32 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 08 c1 5c 22 ┆ label"] 2)) (byte-code " \"┆
0x0240…0260 87 22 20 5b 73 74 72 69 6e 67 20 74 20 6e 69 6c 20 72 6d 61 69 6c 2d 73 65 74 2d 6c 61 62 65 6c ┆ " [string t nil rmail-set-label┆
0x0260…0280 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 6b 69 6c 6c 2d 6c 61 62 65 6c 20 28 ┆] 3)) (defun rmail-kill-label (┆
0x0280…02a0 73 74 72 69 6e 67 29 20 22 5c 0a 52 65 6d 6f 76 65 20 4c 41 42 45 4c 20 66 72 6f 6d 20 6c 61 62 ┆string) "\ Remove LABEL from lab┆
0x02a0…02c0 65 6c 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 63 75 72 72 65 6e 74 20 52 4d 41 49 ┆els associated with current RMAI┆
0x02c0…02e0 4c 20 6d 65 73 73 61 67 65 2e 0a 43 6f 6d 70 6c 65 74 69 6f 6e 20 69 73 20 70 65 72 66 6f 72 6d ┆L message. Completion is perform┆
0x02e0…0300 65 64 20 6f 76 65 72 20 6b 6e 6f 77 6e 20 6c 61 62 65 6c 73 20 77 68 65 6e 20 72 65 61 64 69 6e ┆ed over known labels when readin┆
0x0300…0320 67 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 ┆g." (interactive (byte-code " !┆
0x0320…0340 43 87 22 20 5b 72 6d 61 69 6c 2d 72 65 61 64 2d 6c 61 62 65 6c 20 22 52 65 6d 6f 76 65 20 6c 61 ┆C " [rmail-read-label "Remove la┆
0x0340…0360 62 65 6c 22 5d 20 32 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 c1 5c 22 87 22 20 ┆bel"] 2)) (byte-code " \" " ┆
0x0360…0380 5b 73 74 72 69 6e 67 20 6e 69 6c 20 72 6d 61 69 6c 2d 73 65 74 2d 6c 61 62 65 6c 5d 20 33 29 29 ┆[string nil rmail-set-label] 3))┆
0x0380…03a0 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 72 65 61 64 2d 6c 61 62 65 6c 20 28 70 72 6f 6d 70 ┆ (defun rmail-read-label (promp┆
0x03a0…03c0 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3f 83 0a 00 c7 20 82 0b 00 c5 88 c8 0a 0b 83 1b ┆t) (byte-code " ? ┆
0x03c0…03e0 00 c9 ca 0b 21 cb 51 82 1c 00 cc 50 0c c5 c5 24 19 cd 09 ce 5c 22 83 2d 00 0b 82 33 00 cf 09 c6 ┆ ! Q P $ \" - 3 ┆
0x03e0…0400 5c 22 89 13 29 87 22 20 5b 72 6d 61 69 6c 2d 6b 65 79 77 6f 72 64 73 20 72 65 73 75 6c 74 20 70 ┆\" ) " [rmail-keywords result p┆
0x0400…0420 72 6f 6d 70 74 20 72 6d 61 69 6c 2d 6c 61 73 74 2d 6c 61 62 65 6c 20 72 6d 61 69 6c 2d 6c 61 62 ┆rompt rmail-last-label rmail-lab┆
0x0420…0440 65 6c 2d 6f 62 61 72 72 61 79 20 6e 69 6c 20 74 20 72 6d 61 69 6c 2d 70 61 72 73 65 2d 66 69 6c ┆el-obarray nil t rmail-parse-fil┆
0x0440…0460 65 2d 6b 65 79 77 6f 72 64 73 20 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 20 28 64 65 ┆e-keywords completing-read " (de┆
0x0460…0480 66 61 75 6c 74 20 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 29 3a 20 22 20 22 3a 20 22 20 73 ┆fault " symbol-name "): " ": " s┆
0x0480…04a0 74 72 69 6e 67 3d 20 22 22 20 72 6d 61 69 6c 2d 6d 61 6b 65 2d 6c 61 62 65 6c 5d 20 37 29 29 0a ┆tring= "" rmail-make-label] 7)) ┆
0x04a0…04c0 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 73 65 74 2d 6c 61 62 65 6c 20 28 6c 20 73 74 61 74 65 ┆ (defun rmail-set-label (l state┆
0x04c0…04e0 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 d1 20 88 08 3f 83 ┆ &optional n) (byte-code " ? ┆
0x04e0…0500 0e 00 09 89 10 82 0f 00 c3 88 0a 08 53 c3 49 88 d2 0d 21 1c 0c 3f 85 28 00 d3 0d 21 86 28 00 d4 ┆ S I ! ? ( ! ( ┆
0x0500…0520 0d 21 1e 06 0c 86 30 00 0e 06 1e 07 0e 07 83 ef 00 d5 20 64 5a d5 20 65 5a c3 cc 1e 0b 1e 0a 1e ┆ ! 0 dZ eZ ┆
0x0520…0540 09 1e 08 d6 8e 8a d7 20 88 d8 08 21 62 88 d9 da 21 88 db dc 21 3f 83 63 00 c3 82 e9 00 60 54 c3 ┆ !b ! !? c `T ┆
0x0540…0560 1e 0e 1e 0d dd 60 de 20 88 60 5c 22 88 64 89 16 0e 88 df e0 c3 cc 23 88 0c 83 89 00 60 54 89 16 ┆ ` `\" d # `T ┆
0x0560…0580 0e 82 8e 00 60 54 89 16 0d 88 0e 0d 62 88 e1 e2 c3 cc 23 85 a2 00 e3 e4 21 88 82 93 00 88 0e 0d ┆ `T b # ! ┆
0x0580…05a0 62 88 e1 e4 e5 0e 07 21 e4 51 0e 0e e6 23 83 c6 00 0e 0f 3f 83 c2 00 e3 e4 21 82 c3 00 c3 82 d6 ┆b ! Q # ? ! ┆
0x05a0…05c0 00 0e 0f 83 d5 00 e7 e8 0e 07 21 e4 5c 22 82 d6 00 c3 88 0e 07 0e 10 3d 83 e7 00 e9 08 0e 0f 5c ┆ ! \" = \┆
0x05c0…05e0 22 82 e8 00 c3 2a 29 29 2c 82 f0 00 c3 2b 87 22 20 5b 6e 20 72 6d 61 69 6c 2d 63 75 72 72 65 6e ┆" *)), + " [n rmail-curren┆
0x05e0…0600 74 2d 6d 65 73 73 61 67 65 20 72 6d 61 69 6c 2d 73 75 6d 6d 61 72 79 2d 76 65 63 74 6f 72 20 6e ┆t-message rmail-summary-vector n┆
0x0600…0620 69 6c 20 61 74 74 72 69 62 75 74 65 20 6c 20 6b 65 79 77 6f 72 64 20 6c 61 62 65 6c 20 6f 6d 61 ┆il attribute l keyword label oma┆
0x0620…0640 78 20 6f 6d 69 6e 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 63 61 73 65 2d 66 6f 6c ┆x omin buffer-read-only case-fol┆
0x0640…0660 64 2d 73 65 61 72 63 68 20 74 20 73 74 61 72 74 20 62 6f 75 6e 64 20 73 74 61 74 65 20 72 6d 61 ┆d-search t start bound state rma┆
0x0660…0680 69 6c 2d 64 65 6c 65 74 65 64 2d 6c 61 62 65 6c 20 72 6d 61 69 6c 2d 6d 61 79 62 65 2d 73 65 74 ┆il-deleted-label rmail-maybe-set┆
0x0680…06a0 2d 6d 65 73 73 61 67 65 2d 63 6f 75 6e 74 65 72 73 20 72 6d 61 69 6c 2d 61 74 74 72 69 62 75 74 ┆-message-counters rmail-attribut┆
0x06a0…06c0 65 2d 70 20 72 6d 61 69 6c 2d 6b 65 79 77 6f 72 64 2d 70 20 72 6d 61 69 6c 2d 69 6e 73 74 61 6c ┆e-p rmail-keyword-p rmail-instal┆
0x06c0…06e0 6c 2d 6b 65 79 77 6f 72 64 20 62 75 66 66 65 72 2d 73 69 7a 65 20 28 28 62 79 74 65 2d 63 6f 64 ┆l-keyword buffer-size ((byte-cod┆
0x06e0…0700 65 20 22 c4 c5 20 08 5a c5 20 09 5a 5c 22 88 0a 0b 55 83 16 00 c6 20 82 17 00 c7 87 22 20 5b 6f ┆e " Z Z\" U " [o┆
0x0700…0720 6d 69 6e 20 6f 6d 61 78 20 6e 20 72 6d 61 69 6c 2d 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 ┆min omax n rmail-current-message┆
0x0720…0740 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 62 75 66 66 65 72 2d 73 69 7a 65 20 72 6d ┆ narrow-to-region buffer-size rm┆
0x0740…0760 61 69 6c 2d 64 69 73 70 6c 61 79 2d 6c 61 62 65 6c 73 20 6e 69 6c 5d 20 36 29 29 20 77 69 64 65 ┆ail-display-labels nil] 6)) wide┆
0x0760…0780 6e 20 72 6d 61 69 6c 2d 6d 73 67 62 65 67 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 6c 6f ┆n rmail-msgbeg forward-line 1 lo┆
0x0780…07a0 6f 6b 69 6e 67 2d 61 74 20 22 5b 30 31 5d 2c 22 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f ┆oking-at "[01]," narrow-to-regio┆
0x07a0…07c0 6e 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 2c ┆n end-of-line search-backward ",┆
0x07c0…07e0 2c 22 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 20 09 5d 2a 2c 5b 20 09 5d ┆," re-search-forward "[ ]*,[ ]┆
0x07e0…0800 2a 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 2c 22 20 72 6d 61 69 6c 2d 71 75 6f 74 65 ┆*" replace-match "," rmail-quote┆
0x0800…0820 2d 6c 61 62 65 6c 2d 6e 61 6d 65 20 6d 6f 76 65 20 69 6e 73 65 72 74 20 73 79 6d 62 6f 6c 2d 6e ┆-label-name move insert symbol-n┆
0x0820…0840 61 6d 65 20 72 6d 61 69 6c 2d 73 65 74 2d 6d 65 73 73 61 67 65 2d 64 65 6c 65 74 65 64 2d 70 5d ┆ame rmail-set-message-deleted-p]┆
0x0840…0860 20 32 33 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 61 74 74 72 69 62 75 74 65 2d 70 20 ┆ 23)) (defun rmail-attribute-p ┆
0x0860…0880 28 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 09 21 18 08 0a 41 3e 83 0f 00 08 82 10 00 c4 ┆(s) (byte-code " ! A> ┆
0x0880…08a0 29 87 22 20 5b 73 79 6d 62 6f 6c 20 73 20 72 6d 61 69 6c 2d 61 74 74 72 69 62 75 74 65 73 20 72 ┆) " [symbol s rmail-attributes r┆
0x08a0…08c0 6d 61 69 6c 2d 6d 61 6b 65 2d 6c 61 62 65 6c 20 6e 69 6c 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e ┆mail-make-label nil] 3)) (defun┆
0x08c0…08e0 20 72 6d 61 69 6c 2d 6b 65 79 77 6f 72 64 2d 70 20 28 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆ rmail-keyword-p (s) (byte-code ┆
0x08e0…0900 22 c2 09 21 18 08 c3 20 41 3e 83 10 00 08 82 11 00 c4 29 87 22 20 5b 73 79 6d 62 6f 6c 20 73 20 ┆" ! A> ) " [symbol s ┆
0x0900…0920 72 6d 61 69 6c 2d 6d 61 6b 65 2d 6c 61 62 65 6c 20 72 6d 61 69 6c 2d 6b 65 79 77 6f 72 64 73 20 ┆rmail-make-label rmail-keywords ┆
0x0920…0940 6e 69 6c 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 6d 61 6b 65 2d 6c 61 62 65 ┆nil] 4)) (defun rmail-make-labe┆
0x0940…0960 6c 20 28 73 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 63 65 70 29 20 28 62 79 74 65 2d 63 6f 64 ┆l (s &optional forcep) (byte-cod┆
0x0960…0980 65 20 22 08 39 83 09 00 08 82 20 00 09 83 16 00 c4 c5 08 21 0a 5c 22 82 20 00 c3 85 20 00 c6 c5 ┆e " 9 ! \" ┆
0x0980…09a0 08 21 0a 5c 22 87 22 20 5b 73 20 66 6f 72 63 65 70 20 72 6d 61 69 6c 2d 6c 61 62 65 6c 2d 6f 62 ┆ ! \" " [s forcep rmail-label-ob┆
0x09a0…09c0 61 72 72 61 79 20 74 20 69 6e 74 65 72 6e 20 64 6f 77 6e 63 61 73 65 20 69 6e 74 65 72 6e 2d 73 ┆array t intern downcase intern-s┆
0x09c0…09e0 6f 66 74 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 66 6f 72 63 65 2d 6d 61 6b ┆oft] 6)) (defun rmail-force-mak┆
0x09e0…0a00 65 2d 6c 61 62 65 6c 20 28 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 08 21 09 5c 22 87 ┆e-label (s) (byte-code " ! \" ┆
0x0a00…0a20 22 20 5b 73 20 72 6d 61 69 6c 2d 6c 61 62 65 6c 2d 6f 62 61 72 72 61 79 20 69 6e 74 65 72 6e 20 ┆" [s rmail-label-obarray intern ┆
0x0a20…0a40 64 6f 77 6e 63 61 73 65 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 71 75 6f 74 ┆downcase] 4)) (defun rmail-quot┆
0x0a40…0a60 65 2d 6c 61 62 65 6c 2d 6e 61 6d 65 20 28 6c 61 62 65 6c 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆e-label-name (label) (byte-code ┆
0x0a60…0a80 22 c2 c3 c4 08 c1 5c 22 21 21 87 22 20 5b 6c 61 62 65 6c 20 74 20 72 65 67 65 78 70 2d 71 75 6f ┆" \"!! " [label t regexp-quo┆
0x0a80…0aa0 74 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 72 6d 61 69 6c 2d 6d 61 6b 65 2d 6c 61 62 65 6c 5d ┆te symbol-name rmail-make-label]┆
0x0aa0…0ac0 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 70 72 65 76 69 6f 75 73 2d 6c 61 62 65 ┆ 5)) (defun rmail-previous-labe┆
0x0ac0…0ae0 6c 65 64 2d 6d 65 73 73 61 67 65 20 28 6e 20 6c 61 62 65 6c 29 20 22 5c 0a 53 68 6f 77 20 70 72 ┆led-message (n label) "\ Show pr┆
0x0ae0…0b00 65 76 69 6f 75 73 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 4c 41 42 45 4c 2e 20 20 44 65 66 61 ┆evious message with LABEL. Defa┆
0x0b00…0b20 75 6c 74 73 20 74 6f 20 6c 61 73 74 20 6c 61 62 65 6c 73 20 75 73 65 64 2e 0a 57 69 74 68 20 70 ┆ults to last labels used. With p┆
0x0b20…0b40 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 4e 20 6d 6f 76 65 73 20 62 61 63 6b 77 61 72 64 20 ┆refix argument N moves backward ┆
0x0b40…0b60 4e 20 6d 65 73 73 61 67 65 73 20 77 69 74 68 20 74 68 65 73 65 20 6c 61 62 65 6c 73 2e 22 20 28 ┆N messages with these labels." (┆
0x0b60…0b80 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 0a 73 4d 6f 76 65 20 74 6f 20 70 72 65 76 69 6f 75 73 ┆interactive "p sMove to previous┆
0x0b80…0ba0 20 6d 73 67 20 77 69 74 68 20 6c 61 62 65 6c 73 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆ msg with labels: ") (byte-code ┆
0x0ba0…0bc0 22 c2 88 c3 08 5b 09 5c 22 87 22 20 5b 6e 20 6c 61 62 65 6c 20 6e 69 6c 20 72 6d 61 69 6c 2d 6e ┆" [ \" " [n label nil rmail-n┆
0x0bc0…0be0 65 78 74 2d 6c 61 62 65 6c 65 64 2d 6d 65 73 73 61 67 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e ┆ext-labeled-message] 3)) (defun┆
0x0be0…0c00 20 72 6d 61 69 6c 2d 6e 65 78 74 2d 6c 61 62 65 6c 65 64 2d 6d 65 73 73 61 67 65 20 28 6e 20 6c ┆ rmail-next-labeled-message (n l┆
0x0c00…0c20 61 62 65 6c 73 29 20 22 5c 0a 53 68 6f 77 20 6e 65 78 74 20 6d 65 73 73 61 67 65 20 77 69 74 68 ┆abels) "\ Show next message with┆
0x0c20…0c40 20 4c 41 42 45 4c 2e 20 20 44 65 66 61 75 6c 74 73 20 74 6f 20 6c 61 73 74 20 6c 61 62 65 6c 73 ┆ LABEL. Defaults to last labels┆
0x0c40…0c60 20 75 73 65 64 2e 0a 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 4e 20 6d 6f ┆ used. With prefix argument N mo┆
0x0c60…0c80 76 65 73 20 66 6f 72 77 61 72 64 20 4e 20 6d 65 73 73 61 67 65 73 20 77 69 74 68 20 74 68 65 73 ┆ves forward N messages with thes┆
0x0c80…0ca0 65 20 6c 61 62 65 6c 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 0a 73 4d 6f 76 65 ┆e labels." (interactive "p sMove┆
0x0ca0…0cc0 20 74 6f 20 6e 65 78 74 20 6d 73 67 20 77 69 74 68 20 6c 61 62 65 6c 73 3a 20 22 29 20 28 62 79 ┆ to next msg with labels: ") (by┆
0x0cc0…0ce0 74 65 2d 63 6f 64 65 20 22 c8 88 c9 08 ca 5c 22 83 0f 00 09 89 10 82 10 00 c8 88 08 86 18 00 cb ┆te-code " \" ┆
0x0ce0…0d00 cc 21 88 08 89 11 88 cd 20 88 0b 0b ce cf 08 21 d0 51 1d 1c 1a 8c d1 20 88 0e 06 d2 56 85 3a 00 ┆ ! ! Q V : ┆
0x0d00…0d20 0c 0e 07 57 85 59 00 0c 54 89 14 88 d3 0c 0d 5c 22 83 54 00 0c 12 0e 06 53 89 16 06 82 55 00 c8 ┆ W Y T \" T S U ┆
0x0d20…0d40 88 82 2f 00 88 0e 06 d2 57 85 64 00 0c d4 56 85 83 00 0c 53 89 14 88 d3 0c 0d 5c 22 83 7e 00 0c ┆ / W d V S \" ~ ┆
0x0d40…0d60 12 0e 06 54 89 16 06 82 7f 00 c8 88 82 5a 00 29 88 d5 0a 21 88 0e 06 d2 57 83 97 00 d6 d7 08 5c ┆ T Z ) ! W \┆
0x0d60…0d80 22 82 98 00 c8 88 0e 06 d2 56 83 a7 00 d6 d8 08 5c 22 82 a8 00 c8 2b 87 22 20 5b 6c 61 62 65 6c ┆" V \" + " [label┆
0x0d80…0da0 73 20 72 6d 61 69 6c 2d 6c 61 73 74 2d 6d 75 6c 74 69 2d 6c 61 62 65 6c 73 20 6c 61 73 74 77 69 ┆s rmail-last-multi-labels lastwi┆
0x0da0…0dc0 6e 20 72 6d 61 69 6c 2d 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 63 75 72 72 65 6e 74 20 ┆n rmail-current-message current ┆
0x0dc0…0de0 72 65 67 65 78 70 20 6e 20 72 6d 61 69 6c 2d 74 6f 74 61 6c 2d 6d 65 73 73 61 67 65 73 20 6e 69 ┆regexp n rmail-total-messages ni┆
0x0de0…0e00 6c 20 73 74 72 69 6e 67 3d 20 22 22 20 65 72 72 6f 72 20 22 4e 6f 20 6c 61 62 65 6c 73 20 74 6f ┆l string= "" error "No labels to┆
0x0e00…0e20 20 66 69 6e 64 20 68 61 76 65 20 62 65 65 6e 20 73 70 65 63 69 66 69 65 64 20 70 72 65 76 69 6f ┆ find have been specified previo┆
0x0e20…0e40 75 73 6c 79 22 20 72 6d 61 69 6c 2d 6d 61 79 62 65 2d 73 65 74 2d 6d 65 73 73 61 67 65 2d 63 6f ┆usly" rmail-maybe-set-message-co┆
0x0e40…0e60 75 6e 74 65 72 73 20 22 2c 5c 5c 28 22 20 6d 61 69 6c 2d 63 6f 6d 6d 61 2d 6c 69 73 74 2d 72 65 ┆unters ",\\(" mail-comma-list-re┆
0x0e60…0e80 67 65 78 70 20 22 5c 5c 29 2c 22 20 77 69 64 65 6e 20 30 20 72 6d 61 69 6c 2d 6d 65 73 73 61 67 ┆gexp "\\)," widen 0 rmail-messag┆
0x0e80…0ea0 65 2d 6c 61 62 65 6c 73 2d 70 20 31 20 72 6d 61 69 6c 2d 73 68 6f 77 2d 6d 65 73 73 61 67 65 20 ┆e-labels-p 1 rmail-show-message ┆
0x0ea0…0ec0 6d 65 73 73 61 67 65 20 22 4e 6f 20 70 72 65 76 69 6f 75 73 20 6d 65 73 73 61 67 65 20 77 69 74 ┆message "No previous message wit┆
0x0ec0…0ee0 68 20 6c 61 62 65 6c 73 20 25 73 22 20 22 4e 6f 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 65 73 73 61 ┆h labels %s" "No following messa┆
0x0ee0…0f00 67 65 20 77 69 74 68 20 6c 61 62 65 6c 73 20 25 73 22 5d 20 31 32 29 29 0a 0a 28 64 65 66 75 6e ┆ge with labels %s"] 12)) (defun┆
0x0f00…0f20 20 72 6d 61 69 6c 2d 6b 65 79 77 6f 72 64 73 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆ rmail-keywords nil (byte-code "┆
0x0f20…0f40 08 86 06 00 c1 20 87 22 20 5b 72 6d 61 69 6c 2d 6b 65 79 77 6f 72 64 73 20 72 6d 61 69 6c 2d 70 ┆ " [rmail-keywords rmail-p┆
0x0f40…0f60 61 72 73 65 2d 66 69 6c 65 2d 6b 65 79 77 6f 72 64 73 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 ┆arse-file-keywords] 2)) (defun ┆
0x0f60…0f80 72 6d 61 69 6c 2d 70 61 72 73 65 2d 66 69 6c 65 2d 6b 65 79 77 6f 72 64 73 20 6e 69 6c 20 28 62 ┆rmail-parse-file-keywords nil (b┆
0x0f80…0fa0 79 74 65 2d 63 6f 64 65 20 22 8c 8a c2 20 88 c3 62 88 c4 c5 c6 c3 21 c1 23 83 27 00 c7 60 c8 20 ┆yte-code " b ! # ' ` ┆
0x0fa0…0fc0 88 60 5c 22 88 65 62 88 c0 c9 ca cb 20 5c 22 42 82 28 00 cc 89 10 29 29 87 22 20 5b 72 6d 61 69 ┆ `\" eb \"B ( )) " [rmai┆
0x0fc0…0fe0 6c 2d 6b 65 79 77 6f 72 64 73 20 74 20 77 69 64 65 6e 20 31 20 73 65 61 72 63 68 2d 66 6f 72 77 ┆l-keywords t widen 1 search-forw┆
0x0fe0…1000 61 72 64 20 22 0a 4c 61 62 65 6c 73 3a 22 20 72 6d 61 69 6c 2d 6d 73 67 62 65 67 20 6e 61 72 72 ┆ard " Labels:" rmail-msgbeg narr┆
0x1000…1020 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 6d 61 70 63 61 72 20 ┆ow-to-region end-of-line mapcar ┆
0x1020…1040 72 6d 61 69 6c 2d 66 6f 72 63 65 2d 6d 61 6b 65 2d 6c 61 62 65 6c 20 6d 61 69 6c 2d 70 61 72 73 ┆rmail-force-make-label mail-pars┆
0x1040…1060 65 2d 63 6f 6d 6d 61 2d 6c 69 73 74 20 6e 69 6c 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 72 ┆e-comma-list nil] 10)) (defun r┆
0x1060…1080 6d 61 69 6c 2d 69 6e 73 74 61 6c 6c 2d 6b 65 79 77 6f 72 64 20 28 77 6f 72 64 29 20 28 62 79 74 ┆mail-install-keyword (word) (byt┆
0x1080…10a0 65 2d 63 6f 64 65 20 22 c9 09 c2 5c 22 ca 20 1b 18 cb 08 21 86 11 00 cc 08 21 3f 83 69 00 cd 20 ┆e-code " \" ! !? i ┆
0x10a0…10c0 65 5a cd 20 64 5a 1d 1c ce 8e 8a cf 20 88 d0 62 88 c2 c8 1e 07 1e 06 d1 d2 c8 c2 23 86 3b 00 d3 ┆eZ dZ b # ; ┆
0x10c0…10e0 20 88 d2 63 88 d4 60 d3 20 88 60 5c 22 88 d5 0b 08 0b 41 42 5c 22 88 0b 41 89 13 85 5e 00 d6 d7 ┆ c ` `\" AB\" A ^ ┆
0x10e0…1100 0b 40 21 d8 5c 22 88 82 4c 00 88 d9 da 21 2a 29 29 2a 82 6a 00 c8 88 08 2a 87 22 20 5b 6b 65 79 ┆ @! \" L !*))* j * " [key┆
0x1100…1120 77 6f 72 64 20 77 6f 72 64 20 74 20 6b 65 79 77 6f 72 64 73 20 6f 6d 69 6e 20 6f 6d 61 78 20 63 ┆word word t keywords omin omax c┆
0x1120…1140 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 ┆ase-fold-search buffer-read-only┆
0x1140…1160 20 6e 69 6c 20 72 6d 61 69 6c 2d 6d 61 6b 65 2d 6c 61 62 65 6c 20 72 6d 61 69 6c 2d 6b 65 79 77 ┆ nil rmail-make-label rmail-keyw┆
0x1160…1180 6f 72 64 73 20 72 6d 61 69 6c 2d 61 74 74 72 69 62 75 74 65 2d 70 20 72 6d 61 69 6c 2d 6b 65 79 ┆ords rmail-attribute-p rmail-key┆
0x1180…11a0 77 6f 72 64 2d 70 20 62 75 66 66 65 72 2d 73 69 7a 65 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆word-p buffer-size ((byte-code "┆
0x11a0…11c0 c2 c3 20 08 5a c3 20 09 5a 5c 22 87 22 20 5b 6f 6d 69 6e 20 6f 6d 61 78 20 6e 61 72 72 6f 77 2d ┆ Z Z\" " [omin omax narrow-┆
0x11c0…11e0 74 6f 2d 72 65 67 69 6f 6e 20 62 75 66 66 65 72 2d 73 69 7a 65 5d 20 36 29 29 20 77 69 64 65 6e ┆to-region buffer-size] 6)) widen┆
0x11e0…1200 20 31 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 0a 4c 61 62 65 6c 73 3a 22 20 65 6e 64 ┆ 1 search-forward " Labels:" end┆
0x1200…1220 2d 6f 66 2d 6c 69 6e 65 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 65 74 63 64 72 20 69 6e ┆-of-line delete-region setcdr in┆
0x1220…1240 73 65 72 74 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 2c 22 20 64 65 6c 65 74 65 2d 63 68 61 72 ┆sert symbol-name "," delete-char┆
0x1240…124a 20 2d 31 5d 20 31 37 29 29 0a ┆ -1] 17)) ┆