;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'rmail) #@84 Obarray of labels used by Rmail. `rmail-read-label' uses this to offer completion. (defvar rmail-label-obarray (make-vector 47 0) (#$ . 425)) (mapc #[(s) "\302A@ \"\207" [s rmail-label-obarray intern] 3] rmail-attr-array) #@65 Intern string S as a downcased symbol in `rmail-label-obarray'. (defalias 'rmail-make-label #[(s) "\302\227 \"\207" [s rmail-label-obarray intern] 3 (#$ . 654)]) #@188 Add LABEL to labels associated with current RMAIL message. Completes (see `rmail-read-label') over known labels when reading. LABEL may be a symbol or string. Only one label is allowed. (defalias 'rmail-add-label #[(label) "\301\302\"\207" [label rmail-set-label t] 3 (#$ . 824) (list (rmail-read-label "Add label"))]) #@193 Remove LABEL from labels associated with current RMAIL message. Completes (see `rmail-read-label') over known labels when reading. LABEL may be a symbol or string. Only one label is allowed. (defalias 'rmail-kill-label #[(label) "\301\302\"\207" [label rmail-set-label nil] 3 (#$ . 1152) (list (rmail-read-label "Remove label"))]) #@241 Read a label with completion, prompting with PROMPT. Completions are chosen from `rmail-label-obarray'. The default is `rmail-last-label', if that is non-nil. Updates `rmail-last-label' according to the choice made, and returns a symbol. (defalias 'rmail-read-label #[(prompt) "\306 \307=\204\310 \204\311 \211\203\312\313\314\315\"\"\210\316\n \203+\317\320 !\321Q\202,\322P\f\306\211$\211\323\230\203< \202A\313 !\211*\207" [old major-mode prompt rmail-last-label rmail-label-obarray result nil rmail-summary-mode rmail-summary-exists rmail-get-keywords mapc rmail-make-label split-string ", " completing-read " (default " symbol-name "): " ": " ""] 6 (#$ . 1492)]) #@100 Set LABEL as present or absent according to STATE in message MSG. LABEL may be a symbol or string. (defalias 'rmail-set-label #[(label state &optional msg) ";\204 \306!\307\310\"\203\311\312!\210r q\210\313 \210\n\206\" \211\314U\203+\311\315!\210\f\nS\316I\210\316G\314 ! !W\203[ HA@\230\203R  T\211 \202=* \203j\317 \"\n#\210\202\356\320\n!#\321\322!\310Q$\307$\321#\310Q\"??\211%\"=\204\355\323&\n\"\203\254#\203\250#\324\230\204\250#\321Q\202\353\202\353\325#\314\211\211\224\326Z]#\325#\211G\314\225S^\"'\211(\324\230\203\330'\324\230?\205\352'\202\352'\324\230\203\344(\202\352(\321'Q*#\210+)\327 \203')*\330 \203\331 +\212\332\216\333,!\210*)\334\n!\210,\202#r,q\210*)\334\n!\210*\335 \210)\n U\205/\336 )\207" [label rmail-buffer msg rmail-current-message rmail-summary-vector attr-index symbol-name string-match "," error "More than one label specified" rmail-maybe-set-message-counters 0 "No message" nil rmail-set-attribute rmail-get-keywords ", " regexp-quote rmail-set-header "" substring 2 rmail-summary-exists rmail-summary-displayed selected-window #[nil "\301!\207" [window select-window] 2] rmail-pop-to-buffer rmail-summary-update-line rmail-maybe-display-summary rmail-display-labels rmail-attr-array i --dotimes-limit-- state header regexp present rmail-keyword-header after before rmail-total-messages total window rmail-summary-buffer] 10 (#$ . 2184)]) #@240 Show previous message with one of the labels LABELS. LABELS should be a comma-separated list of label names. If LABELS is empty, the last set of labels specified is used. With prefix argument N moves backward N messages with these labels. (defalias 'rmail-previous-labeled-message #[(n labels) "\302[ \"\207" [n labels rmail-next-labeled-message] 3 (#$ . 3648) "p\nsMove to previous msg with labels: "]) #@235 Show next message with one of the labels LABELS. LABELS should be a comma-separated list of label names. If LABELS is empty, the last set of labels specified is used. With prefix argument N moves forward N messages with these labels. (defalias 'rmail-next-labeled-message #[(n labels) "\306\230\203 \204\307\310!\210\nq\210\311 \210 \211\312\313!\314Q\315V\203J W\203J T\316\f\317 !\"\203$ S\211\202&\315W\203o \320V\203o S\316\f\317 !\"\203J T\211\202L\315W\203}\307\321\"\202\217\315V\203\213\307\322\"\202\217\323!+\207" [labels rmail-last-multi-labels rmail-buffer rmail-current-message regexp current "" error "No labels to find have been specified previously" rmail-maybe-set-message-counters " \\(" mail-comma-list-regexp "\\)\\(,\\|\\'\\)" 0 string-match rmail-get-labels 1 "No previous message with labels %s" "No following message with labels %s" rmail-show-message-1 lastwin n rmail-total-messages] 6 (#$ . 4060) "p\nsMove to next msg with labels: "]) (provide 'rmailkwd)