;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Mar 15 01:43:52 1994 ;;; from file /home/fsf/rms/e19/lisp/mh-seq.el ;;; emacs version 19.22.85. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/home/fsf/rms/e19/lisp/mh-seq.el' was compiled for Emacs 19")) (byte-code "!!" [provide mh-seq require mh-e] 2) (defvar mh-last-seq-used nil "\ Name of the sequence to which a message was last added.") (defalias 'mh-delete-seq #[(seq) "\n\fT\n%\n\"\n!" [mh-map-to-seq-msgs mh-notate-if-in-one-seq seq 32 mh-cmd-note mh-undefine-sequence "all" mh-delete-seq-locally] 6 "\ Delete the SEQUENCE." (list (mh-read-seq-default "Delete" t))]) (defalias 'mh-list-sequences #[(folder) "  q !ɱ\no\n@@\n@A!\" Z\"cdiVScG!@\"cACc,\nAeb!)*" [" *mh-temp*" mh-seq-list seq-list temp-buffer erase-buffer message "Listing sequences ..." "Sequences in folder " folder ":\n" sort copy-sequence < window-width 4 nil name-spec last-col sorted-seq-msgs name format "%20s:" "\n" move-to-column " %s" "Listing sequences...done"] 6 "\ List the sequences defined in FOLDER." (list (mh-prompt-for-folder "List sequences in" mh-current-folder t))]) (defalias 'mh-msg-is-in-seq #[(msg) "\n\n!!##" [message "Message %d is in sequences: %s" msg mapconcat concat mh-list-to-string mh-seq-containing-msg " "] 8 "\ Display the sequences that contain MESSAGE (default: displayed message)." (list (mh-get-msg-num t))]) (defalias 'mh-narrow-to-seq #[(seq) "d É!-\"d}!!!\f4!\"*\n!*" [eob buffer-modified-p mh-folder-updating-mod-flag nil buffer-file-name buffer-read-only mh-seq-to-msgs seq mh-copy-seq-to-point mh-make-folder-mode-line symbol-name mh-recenter mh-narrowed-to-seq error "No messages in sequence `%s'" mh-set-folder-modified-p] 4 "\ Restrict display of this folder to just messages in a sequence. Reads which sequence.\\ Use \\[mh-widen] to undo this command." (list (mh-read-seq "Narrow to" t))]) (defalias 'mh-put-msg-in-seq #[(msg-or-seq to) " \f  !\"" [to mh-last-seq-used mh-add-msgs-to-seq msg-or-seq mh-seq-to-msgs] 3 "\ Add MESSAGE(s) (default: displayed message) to SEQUENCE. If optional prefix argument provided, then prompt for the message sequence." (list (if current-prefix-arg (mh-read-seq-default "Add messages from" t) (mh-get-msg-num t)) (mh-read-seq-default "Add to" nil))]) (defalias 'mh-widen #[nil " Éed|~ *\n!)É" [mh-narrowed-to-seq buffer-modified-p mh-folder-updating-mod-flag nil buffer-file-name buffer-read-only mh-make-folder-mode-line mh-set-folder-modified-p] 2 "\ Remove restrictions from current folder, thereby showing all messages." nil]) (byte-code "\"\"\"\"" [defalias mh-read-seq-default #[(prompt not-empty) " \n \f#" [mh-read-seq prompt not-empty mh-narrowed-to-seq mh-last-seq-used] 4] mh-read-seq #[(prompt not-empty &optional default) "  \"$ !\"\n˚'!!6\nǚ2 6\n!!OO\"!+" [completing-read format "%s %s %s" prompt "sequence:" default "[%s] " "" mh-seq-names mh-seq-list input "%" mh-msg-to-seq mh-get-msg-num t intern seq mh-seq-to-msgs msgs not-empty error "No messages in sequence `%s'"] 9] mh-msg-to-seq #[(msg) " !@" [mh-seq-containing-msg msg] 2] mh-seq-names #[(seq-list) "\n\"" [mapcar #[(entry) " @!C" [symbol-name entry] 2] seq-list] 3]] 3) (defalias 'mh-rename-seq #[(seq new-name) " ! \"\nA\" \nA\"\n)" [mh-find-seq seq old-seq error "Sequence %s does not exist" mh-define-sequence new-name mh-undefine-sequence] 4 "\ Rename a SEQUENCE to have a new NAME." (list (mh-read-seq "Old" t) (intern (read-string "New sequence name: ")))]) (byte-code "\"\"\"\"\"" [defalias mh-map-to-seq-msgs #[(func seq &rest args) " !#\n@ĉ#\n@#\nA *" [mh-seq-to-msgs seq msgs mh-goto-msg t apply func args nil] 5] mh-notate-seq #[(seq notation offset) "\n \f$" [mh-map-to-seq-msgs mh-notate seq notation offset] 5] mh-add-to-sequence #[(seq msgs) " !?\n !\n&" [mh-folder-name-p seq msgs apply mh-exec-cmd "mark" mh-current-folder "-add" "-sequence" symbol-name] 8] mh-copy-seq-to-point #[(seq location) "\n #" [mh-map-to-seq-msgs mh-copy-line-to-point seq location] 4] mh-copy-line-to-point #[(msg location) "y`y `\"\fb b)" [0 beginning-of-line 1 copy-region-as-kill location yank] 3]] 3)