|
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 - metrics - downloadIndex: r
Length: 4576 (0x11e0)
Names: »rmailkwd.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/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 85 07 00 c7 20 88 c8 0a 0b 83 17 00 c9 ca 0b ┆t) (byte-code " ? ┆
0x03c0…03e0 21 cb 51 82 18 00 cc 50 0c c5 c5 24 19 cd 09 ce 5c 22 83 29 00 0b 82 2f 00 cf 09 c6 5c 22 89 13 ┆! Q P $ \" ) / \" ┆
0x03e0…0400 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 72 6f 6d 70 ┆) " [rmail-keywords result promp┆
0x0400…0420 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 65 6c 2d 6f ┆t rmail-last-label rmail-label-o┆
0x0420…0440 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 65 2d 6b 65 ┆barray nil t rmail-parse-file-ke┆
0x0440…0460 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 66 61 75 6c ┆ywords completing-read " (defaul┆
0x0460…0480 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 74 72 69 6e ┆t " symbol-name "): " ": " strin┆
0x0480…04a0 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 0a 28 64 65 ┆g= "" rmail-make-label] 7)) (de┆
0x04a0…04c0 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 20 26 6f 70 ┆fun rmail-set-label (l state &op┆
0x04c0…04e0 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 85 0b 00 09 89 ┆tional n) (byte-code " ? ┆
0x04e0…0500 10 88 0a 08 53 c3 49 88 d2 0d 21 1c 0c 3f 85 24 00 d3 0d 21 86 24 00 d4 0d 21 1e 06 0c 86 2c 00 ┆ S I ! ? $ ! $ ! , ┆
0x0500…0520 0e 06 1e 07 0e 07 85 c9 00 d5 20 64 5a d5 20 65 5a c3 cc 1e 0b 1e 0a 1e 09 1e 08 d6 8e 8a d7 20 ┆ dZ eZ ┆
0x0520…0540 88 d8 08 21 62 88 d9 da 21 88 db dc 21 3f 83 5f 00 c3 82 c6 00 60 54 c3 1e 0e 1e 0d dd 60 de 20 ┆ !b ! !? _ `T ` ┆
0x0540…0560 88 60 5c 22 88 64 89 16 0e 88 df e0 c3 cc 23 88 0c 83 85 00 60 54 89 16 0e 82 8a 00 60 54 89 16 ┆ `\" d # `T `T ┆
0x0560…0580 0d 88 0e 0d 62 88 e1 e2 e3 0e 07 21 e4 51 0e 0e e5 23 83 aa 00 0e 0f 3f 85 a7 00 e6 e4 21 82 b7 ┆ b ! Q # ? ! ┆
0x0580…05a0 00 0e 0f 85 b7 00 e7 e8 e9 0e 07 21 e4 23 88 0e 07 0e 10 3d 85 c5 00 ea 08 0e 0f 5c 22 2a 29 29 ┆ ! # = \"*))┆
0x05a0…05c0 2c 2b 87 22 20 5b 6e 20 72 6d 61 69 6c 2d 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 72 6d ┆,+ " [n rmail-current-message rm┆
0x05c0…05e0 61 69 6c 2d 73 75 6d 6d 61 72 79 2d 76 65 63 74 6f 72 20 6e 69 6c 20 61 74 74 72 69 62 75 74 65 ┆ail-summary-vector nil attribute┆
0x05e0…0600 20 6c 20 6b 65 79 77 6f 72 64 20 6c 61 62 65 6c 20 6f 6d 61 78 20 6f 6d 69 6e 20 62 75 66 66 65 ┆ l keyword label omax omin buffe┆
0x0600…0620 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 20 73 ┆r-read-only case-fold-search t s┆
0x0620…0640 74 61 72 74 20 62 6f 75 6e 64 20 73 74 61 74 65 20 72 6d 61 69 6c 2d 64 65 6c 65 74 65 64 2d 6c ┆tart bound state rmail-deleted-l┆
0x0640…0660 61 62 65 6c 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 75 ┆abel rmail-maybe-set-message-cou┆
0x0660…0680 6e 74 65 72 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 ┆nters rmail-attribute-p rmail-ke┆
0x0680…06a0 79 77 6f 72 64 2d 70 20 72 6d 61 69 6c 2d 69 6e 73 74 61 6c 6c 2d 6b 65 79 77 6f 72 64 20 62 75 ┆yword-p rmail-install-keyword bu┆
0x06a0…06c0 66 66 65 72 2d 73 69 7a 65 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 c5 20 08 5a c5 20 09 5a ┆ffer-size ((byte-code " Z Z┆
0x06c0…06e0 5c 22 88 0a 0b 55 85 13 00 c6 20 87 22 20 5b 6f 6d 69 6e 20 6f 6d 61 78 20 6e 20 72 6d 61 69 6c ┆\" U " [omin omax n rmail┆
0x06e0…0700 2d 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f ┆-current-message narrow-to-regio┆
0x0700…0720 6e 20 62 75 66 66 65 72 2d 73 69 7a 65 20 72 6d 61 69 6c 2d 64 69 73 70 6c 61 79 2d 6c 61 62 65 ┆n buffer-size rmail-display-labe┆
0x0720…0740 6c 73 5d 20 36 29 29 20 77 69 64 65 6e 20 72 6d 61 69 6c 2d 6d 73 67 62 65 67 20 66 6f 72 77 61 ┆ls] 6)) widen rmail-msgbeg forwa┆
0x0740…0760 72 64 2d 6c 69 6e 65 20 31 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 30 31 5d 2c 22 20 6e 61 72 ┆rd-line 1 looking-at "[01]," nar┆
0x0760…0780 72 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 73 65 61 72 63 68 ┆row-to-region end-of-line search┆
0x0780…07a0 2d 62 61 63 6b 77 61 72 64 20 22 2c 2c 22 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 ┆-backward ",," re-search-forward┆
0x07a0…07c0 20 22 2c 20 22 20 72 6d 61 69 6c 2d 71 75 6f 74 65 2d 6c 61 62 65 6c 2d 6e 61 6d 65 20 22 2c 22 ┆ ", " rmail-quote-label-name ","┆
0x07c0…07e0 20 6d 6f 76 65 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 69 6e 73 65 72 74 20 22 20 22 20 73 ┆ move replace-match insert " " s┆
0x07e0…0800 79 6d 62 6f 6c 2d 6e 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 ┆ymbol-name rmail-set-message-del┆
0x0800…0820 65 74 65 64 2d 70 5d 20 32 31 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 61 74 74 72 69 ┆eted-p] 21)) (defun rmail-attri┆
0x0820…0840 62 75 74 65 2d 70 20 28 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 09 21 18 08 0a 41 3e 85 ┆bute-p (s) (byte-code " ! A> ┆
0x0840…0860 0c 00 08 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 ┆ ) " [symbol s rmail-attribute┆
0x0860…0880 73 20 72 6d 61 69 6c 2d 6d 61 6b 65 2d 6c 61 62 65 6c 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 ┆s rmail-make-label] 3)) (defun ┆
0x0880…08a0 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 22 ┆rmail-keyword-p (s) (byte-code "┆
0x08a0…08c0 c2 09 21 18 08 c3 20 41 3e 85 0d 00 08 29 87 22 20 5b 73 79 6d 62 6f 6c 20 73 20 72 6d 61 69 6c ┆ ! A> ) " [symbol s rmail┆
0x08c0…08e0 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 5d 20 34 29 29 0a ┆-make-label rmail-keywords] 4)) ┆
0x08e0…0900 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 6d 61 6b 65 2d 6c 61 62 65 6c 20 28 73 20 26 6f 70 74 ┆ (defun rmail-make-label (s &opt┆
0x0900…0920 69 6f 6e 61 6c 20 66 6f 72 63 65 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 39 83 09 00 08 ┆ional forcep) (byte-code " 9 ┆
0x0920…0940 82 1c 00 09 83 16 00 c4 c5 08 21 0a 5c 22 82 1c 00 c6 c5 08 21 0a 5c 22 87 22 20 5b 73 20 66 6f ┆ ! \" ! \" " [s fo┆
0x0940…0960 72 63 65 70 20 72 6d 61 69 6c 2d 6c 61 62 65 6c 2d 6f 62 61 72 72 61 79 20 74 20 69 6e 74 65 72 ┆rcep rmail-label-obarray t inter┆
0x0960…0980 6e 20 64 6f 77 6e 63 61 73 65 20 69 6e 74 65 72 6e 2d 73 6f 66 74 5d 20 36 29 29 0a 0a 28 64 65 ┆n downcase intern-soft] 6)) (de┆
0x0980…09a0 66 75 6e 20 72 6d 61 69 6c 2d 66 6f 72 63 65 2d 6d 61 6b 65 2d 6c 61 62 65 6c 20 28 73 29 20 28 ┆fun rmail-force-make-label (s) (┆
0x09a0…09c0 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 08 21 09 5c 22 87 22 20 5b 73 20 72 6d 61 69 6c 2d 6c 61 ┆byte-code " ! \" " [s rmail-la┆
0x09c0…09e0 62 65 6c 2d 6f 62 61 72 72 61 79 20 69 6e 74 65 72 6e 20 64 6f 77 6e 63 61 73 65 5d 20 34 29 29 ┆bel-obarray intern downcase] 4))┆
0x09e0…0a00 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 71 75 6f 74 65 2d 6c 61 62 65 6c 2d 6e 61 6d 65 20 ┆ (defun rmail-quote-label-name ┆
0x0a00…0a20 28 6c 61 62 65 6c 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4 08 c1 5c 22 21 21 87 22 20 ┆(label) (byte-code " \"!! " ┆
0x0a20…0a40 5b 6c 61 62 65 6c 20 74 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d ┆[label t regexp-quote symbol-nam┆
0x0a40…0a60 65 20 72 6d 61 69 6c 2d 6d 61 6b 65 2d 6c 61 62 65 6c 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 ┆e rmail-make-label] 5)) (defun ┆
0x0a60…0a80 72 6d 61 69 6c 2d 70 72 65 76 69 6f 75 73 2d 6c 61 62 65 6c 65 64 2d 6d 65 73 73 61 67 65 20 28 ┆rmail-previous-labeled-message (┆
0x0a80…0aa0 6e 20 6c 61 62 65 6c 29 20 22 5c 0a 53 68 6f 77 20 70 72 65 76 69 6f 75 73 20 6d 65 73 73 61 67 ┆n label) "\ Show previous messag┆
0x0aa0…0ac0 65 20 77 69 74 68 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 ┆e with LABEL. Defaults to last ┆
0x0ac0…0ae0 6c 61 62 65 6c 73 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 ┆labels used. With prefix argumen┆
0x0ae0…0b00 74 20 4e 20 6d 6f 76 65 73 20 62 61 63 6b 77 61 72 64 20 4e 20 6d 65 73 73 61 67 65 73 20 77 69 ┆t N moves backward N messages wi┆
0x0b00…0b20 74 68 20 74 68 65 73 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 ┆th these labels." (interactive "┆
0x0b20…0b40 70 0a 73 4d 6f 76 65 20 74 6f 20 70 72 65 76 69 6f 75 73 20 6d 73 67 20 77 69 74 68 20 6c 61 62 ┆p sMove to previous msg with lab┆
0x0b40…0b60 65 6c 73 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 08 5b 09 5c 22 87 22 20 5b ┆els: ") (byte-code " [ \" " [┆
0x0b60…0b80 6e 20 6c 61 62 65 6c 20 6e 69 6c 20 72 6d 61 69 6c 2d 6e 65 78 74 2d 6c 61 62 65 6c 65 64 2d 6d ┆n label nil rmail-next-labeled-m┆
0x0b80…0ba0 65 73 73 61 67 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 6e 65 78 74 2d 6c ┆essage] 3)) (defun rmail-next-l┆
0x0ba0…0bc0 61 62 65 6c 65 64 2d 6d 65 73 73 61 67 65 20 28 6e 20 6c 61 62 65 6c 73 29 20 22 5c 0a 53 68 6f ┆abeled-message (n labels) "\ Sho┆
0x0bc0…0be0 77 20 6e 65 78 74 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 ┆w next message with LABEL. Defa┆
0x0be0…0c00 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┆
0x0c00…0c20 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 4e 20 6d 6f 76 65 73 20 66 6f 72 77 61 72 64 20 4e ┆refix argument N moves forward N┆
0x0c20…0c40 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 69 ┆ messages with these labels." (i┆
0x0c40…0c60 6e 74 65 72 61 63 74 69 76 65 20 22 70 0a 73 4d 6f 76 65 20 74 6f 20 6e 65 78 74 20 6d 73 67 20 ┆nteractive "p sMove to next msg ┆
0x0c60…0c80 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 22 c8 88 c9 08 ┆with labels: ") (byte-code " ┆
0x0c80…0ca0 ca 5c 22 85 0c 00 09 89 10 88 08 86 14 00 cb cc 21 88 08 89 11 88 cd 20 88 0b 0b ce cf 08 21 d0 ┆ \" ! ! ┆
0x0ca0…0cc0 51 1d 1c 1a 8c d1 20 88 0e 06 d2 56 85 36 00 0c 0e 07 57 85 51 00 0c 54 89 14 88 d3 0c 0d 5c 22 ┆Q V 6 W Q T \"┆
0x0cc0…0ce0 85 4d 00 0c 12 0e 06 53 89 16 06 88 82 2b 00 88 0e 06 d2 57 85 5c 5c 00 0c d4 56 85 77 00 0c 53 ┆ M S + W \\ V w S┆
0x0ce0…0d00 89 14 88 d3 0c 0d 5c 22 85 73 00 0c 12 0e 06 54 89 16 06 88 82 52 00 29 88 d5 0a 21 88 0e 06 d2 ┆ \" s T R ) ! ┆
0x0d00…0d20 57 85 88 00 d6 d7 08 5c 22 88 0e 06 d2 56 85 94 00 d6 d8 08 5c 22 2b 87 22 20 5b 6c 61 62 65 6c ┆W \" V \"+ " [label┆
0x0d20…0d40 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┆
0x0d40…0d60 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 ┆
0x0d60…0d80 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┆
0x0d80…0da0 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┆
0x0da0…0dc0 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┆
0x0dc0…0de0 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┆
0x0de0…0e00 75 6e 74 65 72 73 20 22 2c 20 3f 5c 5c 28 22 20 6d 61 69 6c 2d 63 6f 6d 6d 61 2d 6c 69 73 74 2d ┆unters ", ?\\(" mail-comma-list-┆
0x0e00…0e20 72 65 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 ┆regexp "\\)," widen 0 rmail-mess┆
0x0e20…0e40 61 67 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 ┆age-labels-p 1 rmail-show-messag┆
0x0e40…0e60 65 20 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 ┆e message "No previous message w┆
0x0e60…0e80 69 74 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 ┆ith labels %s" "No following mes┆
0x0e80…0ea0 73 61 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 ┆sage with labels %s"] 12)) (def┆
0x0ea0…0ec0 75 6e 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 ┆un rmail-keywords nil (byte-code┆
0x0ec0…0ee0 20 22 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 ┆ " " [rmail-keywords rmail┆
0x0ee0…0f00 2d 70 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 ┆-parse-file-keywords] 2)) (defu┆
0x0f00…0f20 6e 20 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 ┆n rmail-parse-file-keywords nil ┆
0x0f20…0f40 28 62 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 85 24 00 c7 60 ┆(byte-code " b ! # $ `┆
0x0f40…0f60 c8 20 88 60 5c 22 88 65 62 88 c0 c9 ca cb 20 5c 22 42 89 10 29 29 87 22 20 5b 72 6d 61 69 6c 2d ┆ `\" eb \"B )) " [rmail-┆
0x0f60…0f80 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 61 72 ┆keywords t widen 1 search-forwar┆
0x0f80…0fa0 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 6f 77 ┆d " Labels:" rmail-msgbeg narrow┆
0x0fa0…0fc0 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 72 6d ┆-to-region end-of-line mapcar rm┆
0x0fc0…0fe0 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 65 2d ┆ail-force-make-label mail-parse-┆
0x0fe0…1000 63 6f 6d 6d 61 2d 6c 69 73 74 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 72 6d 61 69 6c 2d 69 ┆comma-list] 10)) (defun rmail-i┆
0x1000…1020 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 65 2d 63 6f 64 65 ┆nstall-keyword (word) (byte-code┆
0x1020…1040 20 22 c9 09 c2 5c 22 ca 20 1b 18 cb 08 21 86 11 00 cc 08 21 3f 85 66 00 cd 20 65 5a cd 20 64 5a ┆ " \" ! !? f eZ dZ┆
0x1040…1060 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 20 88 d2 63 88 d4 ┆ b # ; c ┆
0x1060…1080 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 0b 40 21 d8 5c 22 ┆` `\" AB\" A ^ @! \"┆
0x1080…10a0 88 82 4c 00 88 d9 da 21 2a 29 29 2a 88 08 2a 87 22 20 5b 6b 65 79 77 6f 72 64 20 77 6f 72 64 20 ┆ L !*))* * " [keyword word ┆
0x10a0…10c0 74 20 6b 65 79 77 6f 72 64 73 20 6f 6d 69 6e 20 6f 6d 61 78 20 63 61 73 65 2d 66 6f 6c 64 2d 73 ┆t keywords omin omax case-fold-s┆
0x10c0…10e0 65 61 72 63 68 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 72 6d 61 69 6c ┆earch buffer-read-only nil rmail┆
0x10e0…1100 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 72 6d 61 69 6c ┆-make-label rmail-keywords rmail┆
0x1100…1120 2d 61 74 74 72 69 62 75 74 65 2d 70 20 72 6d 61 69 6c 2d 6b 65 79 77 6f 72 64 2d 70 20 62 75 66 ┆-attribute-p rmail-keyword-p buf┆
0x1120…1140 66 65 72 2d 73 69 7a 65 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 20 08 5a c3 20 09 5a 5c ┆fer-size ((byte-code " Z Z\┆
0x1140…1160 22 87 22 20 5b 6f 6d 69 6e 20 6f 6d 61 78 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 ┆" " [omin omax narrow-to-region ┆
0x1160…1180 62 75 66 66 65 72 2d 73 69 7a 65 5d 20 36 29 29 20 77 69 64 65 6e 20 31 20 73 65 61 72 63 68 2d ┆buffer-size] 6)) widen 1 search-┆
0x1180…11a0 66 6f 72 77 61 72 64 20 22 0a 4c 61 62 65 6c 73 3a 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 64 ┆forward " Labels:" end-of-line d┆
0x11a0…11c0 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 65 74 63 64 72 20 69 6e 73 65 72 74 20 73 79 6d 62 6f ┆elete-region setcdr insert symbo┆
0x11c0…11e0 6c 2d 6e 61 6d 65 20 22 2c 22 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 31 5d 20 31 37 29 29 0a ┆l-name "," delete-char -1] 17)) ┆