(defvar rmail-label-obarray (make-vector 47 0)) (defconst rmail-attributes (cons (quote rmail-keywords) (mapcar (quote (lambda (s) (intern s rmail-label-obarray))) (quote ("deleted" "answered" "filed" "forwarded" "unseen" "edited"))))) (defconst rmail-deleted-label (intern "deleted" rmail-label-obarray)) (defvar rmail-keywords nil) (defun rmail-add-label (string) "\ Add LABEL to labels associated with current RMAIL message. Completion is performed over known labels when reading." (interactive (byte-code "ÀÁ!C‡" [rmail-read-label "Add label"] 2)) (byte-code "ˆÃÁ\"‡" [string t nil rmail-set-label] 3)) (defun rmail-kill-label (string) "\ Remove LABEL from labels associated with current RMAIL message. Completion is performed over known labels when reading." (interactive (byte-code "ÀÁ!C‡" [rmail-read-label "Remove label"] 2)) (byte-code "ÁˆÂÁ\"‡" [string nil rmail-set-label] 3)) (defun rmail-read-label (prompt) (byte-code "?… Ç ˆÈ ƒ ÉÊ!ËQ‚ ÌPÅÅ$Í Î\"ƒ) ‚/ Ï Æ\"‰)‡" [rmail-keywords result prompt rmail-last-label rmail-label-obarray nil t rmail-parse-file-keywords completing-read " (default " symbol-name "): " ": " string= "" rmail-make-label] 7)) (defun rmail-set-label (l state &optional n) (byte-code "Ñ ˆ?… ‰ˆ SÃIˆÒ !?…$ Ó !†$ Ô !†, …É Õ dZÕ eZÃÌ ÖŽŠ× ˆØ!bˆÙÚ!ˆÛÜ!?ƒ_ Ã‚Æ `Tà Ý`Þ ˆ`\"ˆd‰ˆßàÃÌ#ˆƒ… `T‰‚Š `T‰ ˆ bˆáâã!äQå#ƒª ?…§ æä!‚· …· çèé!ä#ˆ=…Å ê\"*)),+‡" [n rmail-current-message rmail-summary-vector nil attribute l keyword label omax omin buffer-read-only case-fold-search t start bound state rmail-deleted-label rmail-maybe-set-message-counters rmail-attribute-p rmail-keyword-p rmail-install-keyword buffer-size ((byte-code "ÄÅ ZÅ Z\"ˆ U… Æ ‡" [omin omax n rmail-current-message narrow-to-region buffer-size rmail-display-labels] 6)) widen rmail-msgbeg forward-line 1 looking-at "[01]," narrow-to-region end-of-line search-backward ",," re-search-forward ", " rmail-quote-label-name "," move replace-match insert " " symbol-name rmail-set-message-deleted-p] 21)) (defun rmail-attribute-p (s) (byte-code "à ! A>… )‡" [symbol s rmail-attributes rmail-make-label] 3)) (defun rmail-keyword-p (s) (byte-code " !à A>… )‡" [symbol s rmail-make-label rmail-keywords] 4)) (defun rmail-make-label (s &optional forcep) (byte-code "9ƒ ‚ ƒ ÄÅ! \"‚ ÆÅ! \"‡" [s forcep rmail-label-obarray t intern downcase intern-soft] 6)) (defun rmail-force-make-label (s) (byte-code "ÂÃ! \"‡" [s rmail-label-obarray intern downcase] 4)) (defun rmail-quote-label-name (label) (byte-code "ÂÃÄÁ\"!!‡" [label t regexp-quote symbol-name rmail-make-label] 5)) (defun rmail-previous-labeled-message (n label) "\ Show previous message with LABEL. Defaults to last labels used. With prefix argument N moves backward N messages with these labels." (interactive "p sMove to previous msg with labels: ") (byte-code "ˆÃ[ \"‡" [n label nil rmail-next-labeled-message] 3)) (defun rmail-next-labeled-message (n labels) "\ Show next message with LABEL. Defaults to last labels used. With prefix argument N moves forward N messages with these labels." (interactive "p sMove to next msg with labels: ") (byte-code "ȈÉÊ\"… ‰ˆ† ËÌ!ˆ‰ˆÍ ˆÎÏ!ÐQŒÑ ˆÒV…6 W…Q T‰ˆÓ \"…M S‰ˆ‚+ ˆÒW…\\ ÔV…w S‰ˆÓ \"…s T‰ˆ‚R )ˆÕ !ˆÒW…ˆ Ö×\"ˆÒV…” ÖØ\"+‡" [labels rmail-last-multi-labels lastwin rmail-current-message current regexp n rmail-total-messages nil string= "" error "No labels to find have been specified previously" rmail-maybe-set-message-counters ", ?\\(" mail-comma-list-regexp "\\)," widen 0 rmail-message-labels-p 1 rmail-show-message message "No previous message with labels %s" "No following message with labels %s"] 12)) (defun rmail-keywords nil (byte-code "† Á ‡" [rmail-keywords rmail-parse-file-keywords] 2)) (defun rmail-parse-file-keywords nil (byte-code "ŒŠÂ ˆÃbˆÄÅÆÃ!Á#…$ Ç`È ˆ`\"ˆebˆÀÉÊË \"B‰))‡" [rmail-keywords t widen 1 search-forward " Labels:" rmail-msgbeg narrow-to-region end-of-line mapcar rmail-force-make-label mail-parse-comma-list] 10)) (defun rmail-install-keyword (word) (byte-code "É Â\"Ê Ë!† Ì!?…f Í eZÍ dZÎŽŠÏ ˆÐbˆÂÈÑÒÈÂ#†; Ó ˆÒcˆÔ`Ó ˆ`\"ˆÕAB\"ˆA‰…^ Ö×@!Ø\"ˆ‚L ˆÙÚ!*))*ˆ*‡" [keyword word t keywords omin omax case-fold-search buffer-read-only nil rmail-make-label rmail-keywords rmail-attribute-p rmail-keyword-p buffer-size ((byte-code "Âà Zà Z\"‡" [omin omax narrow-to-region buffer-size] 6)) widen 1 search-forward " Labels:" end-of-line delete-region setcdr insert symbol-name "," delete-char -1] 17))