Lines Matching +defs:history +defs:list
30 ;; Sequences are stored in the alist `mh-seq-list' in the form:
58 (list 'cons name msgs))
62 (list 'car sequence))
77 (interactive (list (mh-interactive-range "Catchup"
90 (interactive (list (mh-interactive-range "Delete")
95 (folders-changed (list mh-current-folder))
96 (msg-list ()))
99 (push msg msg-list)
106 (unless internal-flag (mh-undefine-sequence sequence msg-list))
110 (mh-index-delete-from-sequence sequence msg-list))))
122 (interactive (list (mh-read-seq-default "Delete" t)))
123 (let ((msg-list (mh-seq-to-msgs sequence))
125 (folders-changed (list mh-current-folder)))
133 (mh-index-delete-from-sequence sequence msg-list))))
141 (defun mh-list-sequences ()
144 The list appears in a buffer named \"*MH-E Sequences*\"."
148 (seq-list mh-seq-list)
156 (let ((seq-list seq-list))
157 (while seq-list
159 (max (length (symbol-name (mh-seq-name (pop seq-list))))
162 (while seq-list
163 (let ((name (mh-seq-name (car seq-list)))
165 (mh-coalesce-msg-list
166 (sort (copy-sequence (mh-seq-msgs (car seq-list))) '<)))
177 (setq seq-list (cdr seq-list)))
192 (let* ((dest-folder (loop for seq in mh-refile-list
195 (deleted-flag (unless dest-folder (member message mh-delete-list))))
202 (mh-list-to-string (mh-seq-containing-msg message t))
219 (interactive (list (mh-read-seq "Narrow to" t)))
276 (interactive (list (mh-interactive-range "Add messages from")
282 (folders (list mh-current-folder))
283 (msg-list (mh-range-to-msg-list range)))
284 (mh-add-msgs-to-seq msg-list sequence nil t)
292 (append folders (mh-index-add-to-sequence sequence msg-list))))
306 (interactive (list (mh-interactive-range "Tick")))
322 (let ((mh-seq-list (cons `(,mh-tick-seq ,msg) mh-seq-list)))
382 (defvar mh-sequence-history ())
403 (mh-seq-names mh-seq-list)
404 nil nil nil 'mh-sequence-history))
431 (assoc name mh-seq-list))
435 "Return a list of the messages in SEQ."
439 "Return a list of the sequences containing MSG.
441 in list."
442 (let ((l mh-seq-list)
454 "Define the SEQ to contain the list of MSGS.
463 (mh-coalesce-msg-list msgs)))))
467 "Remove from the SEQ the list of MSGS."
470 "-sequence" (symbol-name seq) (mh-coalesce-msg-list msgs))))
484 (if (and msgs (atom msgs)) (setq msgs (list msgs)))
486 (setq mh-seq-list
488 mh-seq-list))
500 ;; Add to a SEQUENCE each message the list of MSGS.
505 (mh-coalesce-msg-list msgs)))))
524 (mh-undefine-sequence sequence (list msg)))
530 (setq mh-seq-list (delq entry mh-seq-list))))
540 (coalesced-msgs (mh-coalesce-msg-list msgs)))
573 (defvar mh-range-history ())
586 with RANGE-PROMPT. A list of messages in that range is returned.
588 If a MH range is given, say something like last:20, then a list
617 If EXPAND-FLAG is non-nil then a list of message numbers corresponding
618 to the input is returned. If this list is empty then an error is
625 list of messages in it depending on the value of EXPAND, is returned.
627 the list of messages corresponding to \"all\" is returned. If neither
664 (seq-list (if (eq folder mh-current-folder)
665 mh-seq-list
669 (mh-seq-names seq-list)))
674 nil 'mh-range-history default))))
675 msg-list)
680 ((assoc (intern input) seq-list)
681 (cdr (assoc (intern input) seq-list)))
682 ((setq msg-list (mh-translate-range folder input)) msg-list)
686 (defun mh-range-to-msg-list (range)
687 "Return a list of messages for RANGE.
691 (let (msg-list)
693 (push msg msg-list))
694 (nreverse msg-list)))
698 "In FOLDER, translate the string EXPR to a list of messages numbers."
734 (defun mh-seq-names (seq-list)
736 (mapcar (lambda (entry) (list (symbol-name (mh-seq-name entry))))
737 seq-list))
806 mh-seq-list)))
808 (if (eq 0 (mh-exec-cmd-quiet nil "mark" folder "-list"))
815 (mh-read-msg-list))
821 (defun mh-read-msg-list ()
822 "Return a list of message numbers from point to the end of the line.
866 (stack (and msg (gethash msg mh-sequence-notation-history)))
874 (setf (gethash msg mh-sequence-notation-history)
913 Messages to be deleted are given by `mh-delete-list' while
914 messages to be refiled are present in `mh-refile-list'."
917 (dolist (msg mh-delete-list)
919 (dolist (dest-msg-list mh-refile-list)
920 (dolist (msg (cdr dest-msg-list))
937 (let ((seqs mh-seq-list)
962 (let ((stack (gethash msg mh-sequence-notation-history)))
963 (setf (gethash msg mh-sequence-notation-history)
980 (let ((stack (gethash msg mh-sequence-notation-history)))
989 (setf (gethash msg mh-sequence-notation-history) (cdr stack))))))
1000 (clrhash mh-sequence-notation-history)))
1008 (interactive (list (mh-read-seq "Old" t)