Lines Matching +defs:cc +defs:header
179 "Whether to insert a Cancel-Lock header in news postings."
195 `invisible-text', `long-header-lines', `long-lines', `message-id',
230 header, remove it from this list."
254 "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
267 "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
357 (defcustom message-archive-header "X-No-Archive: Yes\n"
359 Archives \(such as groups.google.com\) respect this header."
481 "*String to be used as an Organization header.
612 variable `mail-header-separator'.
633 variable `mail-header-separator'."
664 "*Specifies what to do with Followup-To header.
665 If nil, always ignore the header. If it is t, use its value, but
677 "*Specifies what to do with Mail-Followup-To header.
678 If nil, always ignore the header. If it is the symbol `ask', always
751 `header', use the From: header of the message."
754 (const :tag "Use From: header from message" header)
780 "Non-nil means Gnus should not fold the `References' header.
806 ;; will *not* have a `References:' header if `message-generate-headers-first'
850 (defcustom message-header-hook nil
855 (defcustom message-header-setup-hook nil
957 "*Function called to return a Distribution header."
971 "If nil, use the NNTP server name in the Path header.
998 (define-widget 'message-header-lines 'text
999 "All header lines must be LFD terminated."
1002 :error "All header lines must be newline terminated")
1005 "*A string containing header lines to be inserted in outgoing messages.
1010 :type 'message-header-lines)
1013 "*A string of header lines to be inserted in outgoing mails."
1017 :type 'message-header-lines)
1020 "*A string of header lines to be inserted in outgoing news articles."
1024 :type 'message-header-lines)
1046 "*Set this non-nil if the system's mailer runs the header and body together.
1148 (defface message-header-to
1160 (put 'message-header-to-face 'face-alias 'message-header-to)
1162 (defface message-header-cc
1174 (put 'message-header-cc-face 'face-alias 'message-header-cc)
1176 (defface message-header-subject
1188 (put 'message-header-subject-face 'face-alias 'message-header-subject)
1190 (defface message-header-newsgroups
1202 (put 'message-header-newsgroups-face 'face-alias 'message-header-newsgroups)
1204 (defface message-header-other
1216 (put 'message-header-other-face 'face-alias 'message-header-other)
1218 (defface message-header-name
1227 "Face used for displaying header names."
1230 (put 'message-header-name-face 'face-alias 'message-header-name)
1232 (defface message-header-xheader
1244 (put 'message-header-xheader-face 'face-alias 'message-header-xheader)
1288 (defun message-font-lock-make-header-matcher (regexp)
1296 (concat "^" (regexp-quote mail-header-separator) "$")
1308 `((,(message-font-lock-make-header-matcher
1310 (1 'message-header-name)
1311 (2 'message-header-to nil t))
1312 (,(message-font-lock-make-header-matcher
1314 (1 'message-header-name)
1315 (2 'message-header-cc nil t))
1316 (,(message-font-lock-make-header-matcher
1318 (1 'message-header-name)
1319 (2 'message-header-subject nil t))
1320 (,(message-font-lock-make-header-matcher
1322 (1 'message-header-name)
1323 (2 'message-header-newsgroups nil t))
1324 (,(message-font-lock-make-header-matcher
1326 (1 'message-header-name)
1327 (2 'message-header-other nil t))
1328 (,(message-font-lock-make-header-matcher
1330 (1 'message-header-name)
1331 (2 'message-header-name))
1332 ,@(if (and mail-header-separator
1333 (not (equal mail-header-separator "")))
1334 `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$")
1578 (defvar message-header-format-alist
1677 (defun message-tokenize-header (header &optional separator)
1678 "Split HEADER into a list of header elements.
1681 (if (not header)
1689 (insert header)
1722 (defun message-fetch-field (header &optional not-all)
1724 The buffer is expected to be narrowed to just the header of the message;
1728 (value (mail-fetch-field header nil (not not-all))))
1735 (defun message-field-value (header &optional not-all)
1740 (message-fetch-field header not-all))))
1743 "Narrow the buffer to the header on the current line."
1756 (defun message-add-header (&rest headers)
1757 "Add the HEADERS to the message header, skipping those already present."
1761 (error "Invalid header `%s'" (car headers)))
1783 (defun message-fetch-reply-field (header)
1788 (message-fetch-field header))))
1938 "Ask for NEW-SUBJECT header, append (was: <Old Subject>)."
1991 (defun message-add-archive-header ()
1992 "Insert \"X-No-Archive: Yes\" in the header and a note in the body.
2007 (message-add-header message-archive-header)
2010 (defun message-cross-post-followup-to-header (target-group)
2011 "Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP.
2021 (message-remove-header "Follow[Uu]p-[Tt]o" t)
2064 (concat "^" mail-header-separator)
2114 (message-cross-post-followup-to-header target-group)
2124 ;;; Reduce To: to Cc: or Bcc: header
2126 (defun message-reduce-to-to-cc ()
2127 "Replace contents of To: header with contents of Cc: or Bcc: header."
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"))
2146 (message-remove-header (if bcc
2148 "cc"))))))))
2152 (defun message-remove-header (header &optional is-regexp first reverse)
2155 If FIRST, only remove the first instance of the header.
2158 (let ((regexp (if is-regexp header (concat "^" (regexp-quote header) ":")))
2173 ;; There might be a continuation header, so we have to search
2186 (defun message-remove-first-header (header)
2189 (regexp (concat "^" (regexp-quote header) ":")))
2195 (message-remove-header header nil t)
2204 (concat "^" (regexp-quote mail-header-separator) "\n") nil t)
2230 (regexp-quote mail-header-separator)
2255 (message-fetch-field "cc")
2259 "Say whether we need to insert a MFT header."
2265 (defun message-next-header ()
2266 "Go to the beginning of the next header."
2278 nil 'message-next-header
2280 (message-next-header)
2288 "Sort the headers of the current message according to `message-header-format-alist'."
2292 (let ((max (1+ (length message-header-format-alist)))
2302 message-header-format-alist)
2303 message-header-format-alist)))
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)
2358 (define-key message-mode-map "\C-c\C-fa" 'message-add-archive-header)
2458 ["Cc" message-goto-cc t]
2482 ["X-No-Archive:" message-add-archive-header t ]
2487 '(:help "Insert a To header that points to the author."))]
2497 '(:help "Insert a reasonable `Mail-Followup-To:' header."))]
2498 ["Reduce To: to Cc:" message-reduce-to-to-cc t]
2580 C-c C-f move to a header field (and create it if there isn't):
2591 C-c C-f x crossposting with FollowUp-To header and note in body
2592 C-c C-f t replace To: header with contents of Cc: or Bcc:
2593 C-c C-f a Insert X-No-Archive: header and a note in the body
2594 C-c C-t `message-insert-to' (add a To header to a news followup)
2595 C-c C-l `message-to-list-only' (removes all but list address in to/cc)
2596 C-c C-n `message-insert-newsgroups' (add a Newsgroup header to a news reply)
2686 (regexp-quote mail-header-separator) "$\\|"
2724 "Move point to the To header."
2729 "Move point to the From header."
2734 "Move point to the Subject header."
2738 (defun message-goto-cc ()
2739 "Move point to the Cc header."
2744 "Move point to the Bcc header."
2749 "Move point to the Fcc header."
2754 "Move point to the Reply-To header."
2759 "Move point to the Newsgroups header."
2764 "Move point to the Distribution header."
2769 "Move point to the Followup-To header."
2774 "Move point to the Mail-Followup-To header."
2779 "Move point to the Keywords header."
2784 "Move point to the Summary header."
2795 (or (search-forward (concat "\n" mail-header-separator "\n") nil 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.
2823 you have to type in a MFT header by hand. The contents, usually, are
2825 such a header automatically. It fetches the contents of the To: header
2829 Cc: header are also put into the MFT."
2832 (let* (cc tos)
2835 (message-remove-header "Mail-Followup-To")
2836 (setq cc (and include-cc (message-fetch-field "Cc")))
2837 (setq tos (if cc
2838 (concat (message-fetch-field "To") "," cc)
2847 "Insert a To header that points to the author of the article being replied to.
2874 (defcustom message-header-synonyms
2877 "List of lists of header synonyms.
2879 then `message-carefully-insert-headers' will not insert a `To' header
2889 or in the synonym headers, defined by `message-header-synonyms'."
2894 (dolist (header headers)
2895 (let* ((header-name (symbol-name (car header)))
2896 (new-header (cdr header))
2897 (synonyms (loop for synonym in message-header-synonyms
2898 when (memq (car header) synonym) return synonym))
2899 (old-header
2901 for old-header = (mail-fetch-field (symbol-name synonym))
2902 when (and old-header (string-match new-header old-header))
2904 (if old-header
2905 (message "already have `%s' in `%s'" new-header old-header)
2906 (when (and (message-position-on-field header-name)
2907 (setq old-header (mail-fetch-field header-name))
2908 (not (string-match "\\` *\\'" old-header)))
2910 (insert new-header)))))
2925 (message-remove-header (symbol-name (car elem)))
2931 "Insert the Newsgroups header from the article being replied to."
3076 ;; Is it better to use `mail-header-end'?
3077 (defun message-point-in-header-p ()
3078 "Return t if point is in the header."
3083 (concat "^" (regexp-quote mail-header-separator) "\n")
3087 "Like `do-auto-fill', but don't fill in message header."
3088 (unless (message-point-in-header-p)
3131 "Insert header to mark message as important."
3136 (message-remove-header "Importance"))
3141 "Insert header to mark message as unimportant."
3146 (message-remove-header "Importance"))
3151 "Insert a \"Importance: high\" header, or cycle through the header values.
3162 (message-remove-header "Importance")
3179 (message-remove-header "Disposition-Notification-To"))
3262 (search-forward mail-header-separator nil 'end))
3283 (search-forward (concat "\n" mail-header-separator "\n") nil t)
3304 (message-remove-header message-ignored-cited-headers t)
3467 (insert (mail-header-from message-reply-headers) " writes:")
3471 (defun message-position-on-field (header &rest afters)
3478 (concat "^" (regexp-quote mail-header-separator) "$"))
3481 (if (re-search-forward (concat "^" (regexp-quote header) ":") nil t)
3495 (insert header ": \n")
3795 ;; replace the header delimiter with a blank line
3798 (concat "^" (regexp-quote mail-header-separator) "\n"))
3805 plist total header required-mail-headers)
3825 (if header
3829 (insert header))
3831 (setq header (buffer-substring (point-min) (point)))
3834 (insert header)
3835 (message-remove-header "Mime-Version")
3836 (message-remove-header "Content-Type")
3837 (message-remove-header "Content-Transfer-Encoding")
3838 (message-remove-header "Message-ID")
3839 (message-remove-header "Lines")
3842 (setq header (buffer-string)))
3847 (let ((mail-header-separator ""))
3878 ;; Generate the Mail-Followup-To header if the header is not there...
3885 ;; otherwise, delete the MFT header if the field is empty
3887 (message-remove-header "^Mail-Followup-To:")))
3903 (run-hooks 'message-header-hook))
3916 ;; We (re)generate the Lines header.
3920 (message-remove-header message-ignored-mail-headers t)
3935 (or (message-fetch-field "cc")
3945 (mail-header-parse-content-type
3998 ;; Change header-delimiter to be what sendmail expects.
4001 (concat "^" (regexp-quote mail-header-separator) "\n"))
4066 ;; replace the header delimiter with a blank line
4069 (concat "^" (regexp-quote mail-header-separator) "\n"))
4083 ;; reading a formatted (i. e., at least a To: or Resent-To header)
4155 (canlock-insert-header)))
4177 (rfc2047-header-encoding-alist
4182 rfc2047-header-encoding-alist))
4202 (run-hooks 'message-header-hook))
4228 ;; We (re)generate the Lines header.
4232 (message-remove-header message-ignored-news-headers t)
4243 (concat "^" (regexp-quote mail-header-separator) "\n"))
4249 (setq result (let ((mail-header-separator ""))
4280 (message-check-news-header-syntax))))))
4282 (defun message-check-news-header-syntax ()
4284 ;; Check Newsgroups header.
4293 ;; Check the Subject header.
4309 ;; Check long header lines.
4310 (message-check 'long-header-lines
4312 (header nil)
4320 (setq header (match-string-no-properties 1)))
4324 (y-or-n-p (format "Your %s header is too long (%d). Really post? "
4325 header length))
4365 "Followups to (default no Followup-To header): "
4368 (message-tokenize-header
4382 (y-or-n-p "The article contains an Approved header. Really post? ")
4384 ;; Check the Message-ID header.
4403 (groups (message-tokenize-header
4477 header error)
4479 (when (setq header (mail-fetch-field (car headers)))
4484 header))
4489 (message-tokenize-header header ","))))
4496 (format "The %s header looks odd: \"%s\". Really post? "
4497 (car headers) header)))))
4501 header error groups group)
4504 (when (setq header (mail-fetch-field (pop headers)))
4505 (setq groups (message-tokenize-header header ","))
4514 ;; Check the From header.
4544 ;; Check the Reply-To header.
4577 (concat "^" (regexp-quote mail-header-separator) "$"))
4594 (concat "^" (regexp-quote mail-header-separator) "$"))
4652 (concat "^" (regexp-quote mail-header-separator) "$"))
4664 (concat "^" (regexp-quote mail-header-separator) "$"))
4691 (message-remove-header "fcc" nil t))
4693 (rfc2047-header-encoding-alist
4695 rfc2047-header-encoding-alist)))
4699 (concat "^" (regexp-quote mail-header-separator) "$")
4732 ;; Remove empty lines in the header.
4764 "Make a valid data header.
4794 (mail-header-references message-reply-headers)
4795 (mail-header-subject message-reply-headers)
4799 (mail-header-subject message-reply-headers))
4849 "Make an Organization header."
4878 "Return the References header for this message."
4880 (let ((message-id (mail-header-message-id message-reply-headers))
4881 (references (mail-header-references message-reply-headers))
4889 "Return the In-Reply-To header for this message."
4891 (let ((from (mail-header-from message-reply-headers))
4892 (date (mail-header-date message-reply-headers))
4893 (msg-id (mail-header-message-id message-reply-headers)))
4924 "Make a Distribution header."
4931 "Return an Expires header based on `message-expires'."
4950 "Make a From header."
5029 (cond ((eq message-sendmail-envelope-from 'header)
5092 (message-remove-header "to")
5093 (message-remove-header "cc")
5098 "Return the Mail-Followup-To header.
5100 subscribed address (and not the additional To and Cc header contents)."
5103 (cc (message-fetch-field "cc"))
5104 (msg-recipients (concat to (and to cc ", ") cc))
5107 (message-tokenize-header msg-recipients)))
5141 (defun message-idna-to-ascii-rhs-1 (header)
5143 (let ((field (message-fetch-field header))
5151 'car (mail-header-parse-addresses field))))))
5156 rhs ace header))))
5158 (while (re-search-forward (concat "^" header ":") nil t)
5202 header value elem header-string)
5223 (setq header (cdr elem)
5225 (setq header (car elem)))
5226 (setq header elem))
5227 (setq header-string (if (stringp header)
5228 header
5229 (symbol-name header)))
5232 (regexp-quote (downcase header-string))
5236 ;; The header was found. We insert a space after the
5239 ;; Find out whether the header is empty.
5246 (not (member header-string message-inserted-headers)))
5247 ;; This is an optional header. If the cdr of this
5249 ;; this header.
5250 (setq header (cdr elem))
5264 ((and (boundp header)
5265 (symbol-value header))
5268 (symbol-value header))
5270 (intern (downcase (symbol-name header)))))
5271 ;; We couldn't generate a value for this header,
5274 (format "Empty header for %s; enter value: " header)))))
5275 ;; Finally insert the header.
5281 ;; This header didn't exist, so we insert it.
5284 (cdr (assq header message-header-format-alist))))
5286 (funcall formatter header value)
5287 (insert header-string ": " value))
5293 ;; The value of this header was empty, so we clear
5296 ;; If the header is optional, and the header was
5299 (push header-string message-inserted-headers)
5302 (and (memq header message-deletable-headers)
5356 (defun message-fill-address (header value)
5359 (insert (capitalize (symbol-name header))
5395 (defun message-fill-header (header value)
5399 (insert (capitalize (symbol-name header))
5421 (defun message-shorten-references (header references)
5470 (insert (capitalize (symbol-name header)) ": "
5472 (message-fill-header header refstring)))))
5495 goes to beginning of header values."
5502 "Move point to beginning of header value or to beginning of line.
5506 outside the message header or if the option `message-beginning-of-line'
5509 If point is in the message header and on a (non-continued) header
5510 line, move point to the beginning of the header value or the beginning of line,
5512 beginning of header value. Therefore, repeated calls will toggle point
5519 (message-point-in-header-p))
5695 header-name)
5696 (dolist (header headers)
5697 (setq header-name (cond
5698 ((and (consp header)
5699 (eq (car header) 'optional))
5701 (cdr header))
5702 ((consp header)
5704 (car header))
5707 header)))
5708 (when (and (not (memq header-name excluded-headers))
5710 (memq header-name included-headers)))
5711 (push header result)))
5722 (mail-header-format
5724 (alist message-header-format-alist))
5726 (unless (assq (caar h) message-header-format-alist)
5738 (insert mail-header-separator "\n")
5768 (run-hooks 'message-header-setup-hook))
5837 OTHER-HEADERS is an alist of header/value pairs. CONTINUE says whether
5874 (let (follow-to mct never-mct to cc author mft recipients)
5879 ;; message-header-synonyms.
5881 (and (loop for synonym in message-header-synonyms
5885 cc (message-fetch-field "cc")
5910 (dolist (header address-headers)
5911 (let ((value (message-fetch-field header)))
5918 You should normally obey the Mail-Followup-To: header. In this
5949 (if cc (setq recipients (concat recipients ", " cc)))
5968 (message-tokenize-header recipients)))
5991 ;; Build the header alist. Allow the user to be asked whether
6043 from subject date reply-to to cc
6159 You should normally obey the Followup-To: header.
6177 You should normally obey the Followup-To: header.
6214 are yours except those that have Cancel-Lock header not belonging to you.
6263 ;; Get header info from original article.
6286 mail-header-separator "\n"
6301 header line with the old Message-ID."
6314 (message-remove-header message-ignored-supersedes-headers t))
6320 (insert mail-header-separator)
6426 "Return a Subject header suitable for the message in the current buffer."
6498 (message-remove-header message-forward-ignored-headers t)))))
6545 (message-remove-header message-forward-ignored-headers t)))))
6600 ;; Rmail doesn't have rmail-msg-restore-non-pruned-header in Emacs
6603 (rmail-msg-restore-non-pruned-header)))
6636 ;; Remove X-Draft-From header etc.
6637 (message-remove-header message-ignored-mail-headers t)
6654 (message-remove-header message-ignored-resent-headers t)
6656 (insert mail-header-separator)
6710 (message-remove-header message-ignored-bounced-headers t)
6712 (insert mail-header-separator))
6948 (defcustom message-newgroups-header-regexp
6955 (list (cons message-newgroups-header-regexp 'message-expand-group)
6961 "Alist of (RE . FUN). Use FUN for completion on header lines matching RE."
6983 (not (mail-abbrev-in-expansion-header-p))))
7134 (message-remove-header "Mime-Version")
7144 (message-remove-first-header "Content-Type")
7145 (message-remove-first-header "Content-Transfer-Encoding"))
7147 ;; header. This is because some broken MTAs and MUAs get
7149 ;; MIME-Version header and without a Content-Type header. For
7187 (message-remove-header "From")
7213 (cc (message-fetch-field "cc"))
7217 (if (and to cc) ", ")
7218 (or cc "")
7219 (if (and (or to cc) bcc) ", ")
7235 (if (not (message-hide-header-p regexps))
7236 (message-next-header)
7238 (message-next-header)
7243 (defun message-hide-header-p (regexps)