Lines Matching +defs:cc +defs:list
87 (defun mh-narrow-to-cc (&optional pick-expr)
93 (list (mh-edit-pick-expr
94 (mh-quote-pick-expr (mh-current-message-header-field 'cc)))))
95 (mh-narrow-to-header-field 'cc pick-expr))
104 (list (mh-edit-pick-expr
116 (interactive (list (mh-interactive-range "Narrow to")))
117 (when (assoc 'range mh-seq-list) (mh-delete-seq 'range))
118 (mh-add-msgs-to-seq (mh-range-to-msg-list range) 'range)
129 (list (mh-edit-pick-expr
144 (list (mh-edit-pick-expr
193 (when (assoc 'subject mh-seq-list)
226 (list))
238 (setq list (cons (mh-get-msg-num t) list))))))
240 (list
242 (if (not (member (mh-get-msg-num t) list))
243 (setq list (cons (mh-get-msg-num t) list)))
244 (if (assoc 'subject mh-seq-list) (mh-delete-seq 'subject))
246 (let ((sorted-list (sort (copy-sequence list) 'mh-lessp)))
247 (while sorted-list
248 (mh-add-msgs-to-seq (car sorted-list) 'subject nil)
249 (setq sorted-list (cdr sorted-list)))
250 (safe-length list)))
259 (mh-pick-args-list (read-string "Pick expression: "
263 (defun mh-pick-args-list (s)
264 "Form list by grouping elements in string S suitable for pick arguments.
268 (let ((full-list (split-string s))
269 current-arg collection arg-list)
270 (while full-list
271 (setq current-arg (car full-list))
278 (setq arg-list (append arg-list (list collection)))
280 (setq arg-list (append arg-list (list current-arg))))
281 (setq full-list (cdr full-list)))
283 (setq arg-list (append arg-list (list collection))))
284 arg-list))
314 (original (mh-coalesce-msg-list
315 (mh-range-to-msg-list (cons (point-min) (point-max)))))
316 (msg-list ()))
319 (append original (list "-list") pick-expr))
325 (when num (push num msg-list))
327 (if (null msg-list)
329 (when (assoc 'header mh-seq-list) (mh-delete-seq 'header))
330 (mh-add-msgs-to-seq msg-list 'header)