;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:46:52 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/mh-seq.el ;;; emacs version 19.28.90.26. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/mh-seq.el' was compiled for Emacs 19")) (byte-code "!!!B!BƇ" [provide mh-seq require mh-e boundp mh-last-seq-used nil current-load-list mh-non-seq-mode-line-annotation] 2) #@22 Delete the SEQUENCE. (defalias 'mh-delete-seq #[(sequence) "\n\fT\n%\n\"\n!" [mh-map-to-seq-msgs mh-notate-if-in-one-seq sequence 32 mh-cmd-note mh-undefine-sequence ("all") mh-delete-seq-locally] 6 (#$ . 645) (list (mh-read-seq-default "Delete" t))]) #@39 List the sequences defined in FOLDER. (defalias 'mh-list-sequences #[(folder) "  q !ɱ\no\n@@\n@A!\" Z\"cdiVScG!@\"cACc,\nAeb!)*" [mh-temp-buffer 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 (#$ . 912) (list (mh-prompt-for-folder "List sequences in" mh-current-folder t))]) #@72 Display the sequences that contain MESSAGE (default: current message). (defalias 'mh-msg-is-in-seq #[(message) "\"!##" [message "Message %d is in sequences: %s" mapconcat concat mh-list-to-string mh-seq-containing-msg t " "] 9 (#$ . 1491) (list (mh-get-msg-num t))]) #@122 Restrict display of this folder to just messages in SEQUENCE. Use \\[mh-widen] to undo this command. (defalias 'mh-narrow-to-seq #[(sequence) " !> d\"d}!\f !\f !)E!\"\f!+" [buffer-modified-p nil buffer-file-name buffer-read-only mh-folder-updating-mod-flag mh-seq-to-msgs sequence mh-widen eob mh-copy-seq-to-point make-variable-buffer-local mh-non-seq-mode-line-annotation mh-mode-line-annotation symbol-name mh-make-folder-mode-line mh-recenter mh-narrowed-to-seq error "No messages in sequence `%s'" mh-set-folder-modified-p] 4 (#$ . 1776) (list (mh-read-seq "Narrow to" t))]) #@134 Add MESSAGE(s) (default: displayed message) to SEQUENCE. If optional prefix argument provided, then prompt for the message sequence. (defalias 'mh-put-msg-in-seq #[(msg-or-seq sequence) " ! \f\f\f! \"" [mh-internal-seq sequence mh-last-seq-used mh-add-msgs-to-seq msg-or-seq mh-seq-to-msgs] 3 (#$ . 2436) (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))]) #@72 Remove restrictions from current folder, thereby showing all messages. (defalias 'mh-widen #[nil " ‰ed|~ !+‰" [mh-narrowed-to-seq buffer-modified-p nil buffer-file-name buffer-read-only mh-folder-updating-mod-flag mh-non-seq-mode-line-annotation mh-mode-line-annotation mh-make-folder-mode-line mh-set-folder-modified-p] 3 (#$ . 2893) nil]) (defalias 'mh-read-seq-default #[(prompt not-empty) " \n \f!\"@#" [mh-read-seq prompt not-empty mh-narrowed-to-seq mh-last-seq-used mh-seq-containing-msg mh-get-msg-num nil] 6]) (defalias 'mh-read-seq #[(prompt not-empty &optional default) "  \"$ !\"\n˚)!\"@8\nǚ4 8\n!!QQ\"!+" [completing-read format "%s %s %s" prompt "sequence:" default "[%s] " "" mh-seq-names mh-seq-list input "%" mh-seq-containing-msg mh-get-msg-num t nil intern seq mh-seq-to-msgs msgs not-empty error "No messages in sequence `%s'"] 9]) (defalias 'mh-seq-names #[(seq-list) "\n\"" [mapcar #[(entry) " @!C" [symbol-name entry] 2] seq-list] 3]) #@35 Rename SEQUENCE to have NEW-NAME. (defalias 'mh-rename-seq #[(sequence new-name) " ! \"\nA\" \nA\"\n)" [mh-find-seq sequence old-seq error "Sequence %s does not exist" mh-define-sequence new-name mh-undefine-sequence] 4 (#$ . 3955) (list (mh-read-seq "Old" t) (intern (read-string "New sequence name: ")))]) (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]) (defalias 'mh-notate-seq #[(seq notation offset) "\n \f$" [mh-map-to-seq-msgs mh-notate seq notation offset] 5]) (defalias '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 mh-coalesce-msg-list] 9]) (defalias 'mh-copy-seq-to-point #[(seq location) "\n #" [mh-map-to-seq-msgs mh-copy-line-to-point seq location] 4]) (defalias 'mh-copy-line-to-point #[(msg location) "y`y` bp \n#+" [0 nil end beginning-of-line 1 location insert-buffer-substring] 4])