Lines Matching +defs:cc +defs:list
37 (defvar gnus-list-identifiers)) ; gnus-sum is required where necessary
189 `(signature . disabled)' to this list.
230 header, remove it from this list."
254 "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
263 (widget-editable-list-match widget value)))
267 "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
284 (widget-editable-list-match widget value)))
557 (widget-editable-list-match widget value)))
568 (widget-editable-list-match widget value)))
640 "If non-nil, function that should return a list of headers.
648 "If non-nil, function that should return a list of headers.
656 "If non-nil, function that should return a list of headers.
689 "*Specifies functions for determining list subscription.
690 If nil, do not attempt to determine list subscription with functions.
691 If non-nil, this variable contains a list of functions which return
702 If nil, do not look at any files to determine list subscriptions. If
703 non-nil, each line of this file should be a mailing list address."
710 "*Specifies a list of addresses the user is subscribed to.
711 If nil, do not use any predefined list subscriptions. This list of
720 "*Specifies a list of addresses the user is subscribed to.
721 If nil, do not use any predefined list subscriptions. This list of
768 This should be a list of strings, one string for each argument. It
810 If t, generate all required headers. This can also be a list of headers to
922 This can also be a list of functions. Each function can find the
990 "A list of actions to be performed upon successful sending of a message.")
992 "A list of actions to be performed upon exiting after sending a message.")
994 "A list of actions to be performed before killing a message buffer.")
996 "A list of actions to be performed after postponing a message.")
1113 "*A list of GNKSA feet you are allowed to shoot.
1130 This can also be a list of regexps to match headers. Or a list
1162 (defface message-header-cc
1174 (put 'message-header-cc-face 'face-alias 'message-header-cc)
1315 (2 'message-header-cc nil t))
1424 "A list of hierarchical mail address definitions.
1429 subaddresses. So if the first address appears in the recipient list
1499 (defvar message-buffer-list nil)
1669 "Remove double quotes (\") from strings in list ELEMS."
1678 "Split HEADER into a list of header elements.
1790 (defun message-strip-list-identifiers (subject)
1791 "Remove list identifiers in `gnus-list-identifiers' from string SUBJECT."
1792 (require 'gnus-sum) ; for gnus-list-identifiers
1793 (let ((regexp (if (stringp gnus-list-identifiers)
1794 gnus-list-identifiers
1795 (mapconcat 'identity gnus-list-identifiers " *\\|"))))
1941 (list
2014 (list ; Completion based on Gnus
2089 (list ; Completion based on Gnus
2126 (defun message-reduce-to-to-cc ()
2129 (let ((cc-content
2131 (message-fetch-field "cc")))
2133 (if (and (not cc-content)
2134 (setq cc-content
2139 (cond (cc-content
2143 (insert (concat "To: " cc-content "\n"))
2148 "cc"))))))))
2255 (message-fetch-field "cc")
2338 (define-key message-mode-map "\C-c\C-f\C-c" 'message-goto-cc)
2357 (define-key message-mode-map "\C-c\C-ft" 'message-reduce-to-to-cc)
2369 (define-key message-mode-map "\C-c\C-l" 'message-to-list-only)
2458 ["Cc" message-goto-cc t]
2493 ["Send to list only" message-to-list-only t]
2495 ["Unsubscribed list post" message-generate-unsubscribed-mail-followup-to
2498 ["Reduce To: to Cc:" message-reduce-to-to-cc t]
2533 ;; property list (rather than a list of property symbols), to be
2542 ;; We need to add XEmacs names to the list.
2543 "Property list of with properties forbidden in message buffers.
2595 C-c C-l `message-to-list-only' (removes all but list address in to/cc)
2738 (defun message-goto-cc ()
2790 (interactive (list t))
2820 (defun message-generate-unsubscribed-mail-followup-to (&optional include-cc)
2821 "Insert a reasonable MFT header in a post to an unsubscribed list.
2822 When making original posts to a mailing list you are not subscribed to,
2824 the addresses of the list and your own address. This function inserts
2832 (let* (cc tos)
2836 (setq cc (and include-cc (message-fetch-field "Cc")))
2837 (setq tos (if cc
2838 (concat (message-fetch-field "To") "," cc)
2865 (message-carefully-insert-headers (list (cons 'To to))))))
2878 E.g., if this list contains a member list with elements `Cc' and `To',
2983 (interactive (list (if current-prefix-arg 'full)))
3070 (interactive (list (if current-prefix-arg 'full)))
3093 (interactive (list 0))
3199 (list
3236 (list (prefix-numeric-value current-prefix-arg))
3237 (list nil)))
3373 "Return a list of active message buffers."
3376 (dolist (buffer (buffer-list t))
3391 (list message-indent-citation-function))))
3440 (list message-indent-citation-function))))
3589 (not (null (delq (selected-frame) (visible-frame-list)))))
3677 "Return a list of all points where the text has PROP."
3769 (add-to-list (intern (format "message-%s-actions" (pop types)))
3935 (or (message-fetch-field "cc")
4020 (list (point-min) (point-max)
4036 (list "-f" (message-sendmail-envelope-from)))
4046 (list resend-to-addresses)
4179 (list (cons "Newsgroups" group-field-charset)))
4181 (list (cons "Followup-To" followup-field-charset)))
4366 (mapcar #'list
4676 list file
4690 (push file list)
4703 (while list
4704 (setq file (pop list))
5085 (defun message-to-list-only ()
5086 "Send a message to the list only.
5087 Remove all addresses but the list address from To and Cc headers."
5093 (message-remove-header "cc")
5103 (cc (message-fetch-field "cc"))
5104 (msg-recipients (concat to (and to cc ", ") cc))
5122 (and re (list (concat re "\\)\\'"))))))))
5131 (list
5136 (when list
5138 list
5416 (defun message-shorten-1 (list cut surplus)
5418 (setcdr (nthcdr (- cut 2) list)
5419 (nthcdr (+ (- cut 2) surplus 1) list)))
5432 ;; Cons a list of valid references.
5438 ;; If the list has more than MAXCOUNT elements, trim it by
5581 (buffer-list)))
5612 ;; list of buffers.
5613 (setq message-buffer-list (delq (current-buffer) message-buffer-list))
5615 message-buffer-list
5616 (>= (length message-buffer-list) message-max-buffers))
5618 (let ((buffer (pop message-buffer-list)))
5649 ;; Push the current buffer onto the list.
5651 (setq message-buffer-list
5652 (nconc message-buffer-list (list (current-buffer))))))
5670 (setq yank-action (list 'insert-buffer replybuffer)))
5690 "Return a list that includes all headers from HEADERS.
5691 If INCLUDED-HEADERS is a list, just include those headers. If it is
5717 (add-to-list 'message-send-actions
5727 (push (list (caar h)) alist))
5770 (setq buffer-undo-list nil)
5806 (list message-draft-article) "drafts" nil t)))
5874 (let (follow-to mct never-mct to cc author mft recipients)
5885 cc (message-fetch-field "cc")
5905 ;; Build (textual) list of new recipient addresses.
5927 Most commonly, Mail-Followup-To is used by a mailing list poster to
5928 express that responses should be sent to just the list, and not the
5932 also be used to direct the following discussion to one list only,
5949 (if cc (setq recipients (concat recipients ", " cc)))
5963 ;; Convert string to a list of (("foo@bar" . "Name <Foo@BAR>") ...).
5993 (setq follow-to (list (cons 'To (cdr (pop recipients)))))
6005 '(message-strip-list-identifiers
6012 Useful functions to put in this list include:
6013 `message-strip-list-identifiers', `message-strip-subject-re',
6025 (when (and (memq 'message-strip-list-identifiers functions)
6026 gnus-list-identifiers)
6027 (setq subject (message-strip-list-identifiers subject)))
6041 (require 'gnus-sum) ; for gnus-list-identifiers
6043 from subject date reply-to to cc
6067 ;; Strip list identifiers, "Re: ", and "was:"
6102 (require 'gnus-sum) ; for gnus-list-identifiers
6138 ;; Strip list identifiers, "Re: ", and "was:"
6151 (list (cons 'Newsgroups to-newsgroups)))
6154 (list
6200 ,@(and distribution (list (cons 'Distribution distribution)))
6204 (list (cons 'Cc (if (or (equal (downcase mct) "always")
6386 news, Source is the list of newsgroups is was posted to."
6404 the list of newsgroups is was posted to."
6440 ;; Make sure funcs is a list.
6443 (setq funcs (list funcs)))
6621 (list (message-read-from-minibuffer "Resend message to: ")))
6846 It can be either a list or a symbol refering to a list. See
6847 `gmm-tool-bar-from-list' for the format of the list. The
6852 :type '(repeat gmm-tool-bar-list-item)
6855 (repeat :tag "User defined list" gmm-tool-bar-item)
6884 See `gmm-tool-bar-from-list' for details on the format of the list."
6904 See `gmm-tool-bar-from-list' for details on the format of the list."
6911 (defcustom message-tool-bar-zap-list
6917 See `gmm-tool-bar-from-list' for the format of the list."
6918 :type 'gmm-tool-bar-zap-list
6927 "Make a message mode tool bar from `message-tool-bar-list'.
6941 (gmm-tool-bar-from-list message-tool-bar
6942 message-tool-bar-zap-list
6955 (list (cons message-newgroups-header-regexp 'message-expand-group)
6994 (eval '(display-completion-list nil "")))
6995 (defalias 'message-display-completion-list 'display-completion-list))
6997 (defun message-display-completion-list (completions &optional ignore)
6998 "Display the list of completions, COMPLETIONS, using `standard-output'."
6999 (display-completion-list completions)))))
7039 (message-display-completion-list (sort completions 'string<)
7057 (setq text (message-flatten-list text)))
7068 (defun message-flatten-list (list)
7069 "Return a new, flat list that contains all elements of LIST.
7071 \(message-flatten-list '(1 (2 3 (4 5 (6))) 7))
7073 (cond ((consp list)
7074 (apply 'append (mapcar 'message-flatten-list list)))
7075 (list
7076 (list list))))
7213 (cc (message-fetch-field "cc"))
7217 (if (and to cc) ", ")
7218 (or cc "")
7219 (if (and (or to cc) bcc) ", ")
7225 (list message-hidden-headers)