Lines Matching +defs:function +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)))
403 (mh-seq-names mh-seq-list)
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)))
583 then this function returns a cons-cell of the region.
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
595 This function is usually used with `mh-iterate-on-range' in order to
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
623 messages. If ASK-FLAG is nil, then the function checks if the unseen
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
634 This function replaces the existing function `mh-read-msg-range'.
664 (seq-list (if (eq folder mh-current-folder)
665 mh-seq-list
669 (mh-seq-names seq-list)))
673 'mh-range-completion-function nil nil
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."
710 (defun mh-range-completion-function (string predicate flag)
713 function used to filter the possible choices and FLAG determines whether the
734 (defun mh-seq-names (seq-list)
736 (mapcar (lambda (entry) (list (symbol-name (mh-seq-name entry))))
737 seq-list))
803 (mh-mapc (function (lambda (seq) ; Save the refiling sequences
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.
887 the function uses `overlay-arrow-position' to put a marker in the
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)
1008 (interactive (list (mh-read-seq "Old" t)