Lines Matching +defs:header +defs:text
179 "Whether to insert a Cancel-Lock header in news postings."
194 `empty', `existing-newsgroups', `from', `illegible-text',
195 `invisible-text', `long-header-lines', `long-lines', `message-id',
196 `multiple-headers', `new-text', `newsgroups', `quoting-style',
230 header, remove it from this list."
339 ;;; marking inserted text
343 "How to mark the beginning of some inserted text."
351 "How to mark the end of some inserted text."
357 (defcustom message-archive-header "X-No-Archive: Yes\n"
359 Archives \(such as groups.google.com\) respect this header."
368 If nil, don't insert any text in the body."
422 "*The string which is inserted for elided text."
481 "*String to be used as an Organization header.
583 (set-syntax-table text-mode-syntax-table)
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
874 `writes:' to hide the cited text. If you change this line too much,
924 point and mark around the citation text as modified."
941 "*Name of file containing the text inserted at end of message buffer.
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.
1119 `quoted-text-only' Allow you to post quoted text only;
1141 (let ((table (copy-syntax-table text-mode-syntax-table)))
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)
1260 (defface message-cited-text
1269 "Face used for displaying cited text names."
1272 (put 'message-cited-text-face 'face-alias 'message-cited-text)
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) "\\)$")
1342 (0 'message-cited-text))
1575 "^|? *---+ +Message text follows: +---+ *|?$")
1576 "A regexp that matches the separator before the text of a failed message.")
1578 (defvar message-header-format-alist
1655 (defmacro message-y-or-n-p (question show &rest text)
1657 `(message-talkative-question 'y-or-n-p ,question ,show ,@text))
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))))
1732 (set-text-properties 0 (length value) nil value)
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.
1994 prefix argument, ask for a text to insert. If you don't want the note in the
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
2127 "Replace contents of To: header with contents of Cc: or Bcc: header."
2146 (message-remove-header (if bcc
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)
2259 "Say whether we need to insert a MFT header."
2265 (defun message-next-header ()
2266 "Go to the beginning of the next header."
2274 "Sort the buffer as headers using `message-rank' text props."
2278 nil 'message-next-header
2280 (message-next-header)
2284 (or (get-text-property (point) 'message-rank)
2288 "Sort the headers of the current message according to `message-header-format-alist'."
2292 (let ((max (1+ (length message-header-format-alist)))
2296 (put-text-property
2302 message-header-format-alist)
2303 message-header-format-alist)))
2331 (set-keymap-parent message-mode-map text-mode-map)
2358 (define-key message-mode-map "\C-c\C-fa" 'message-add-archive-header)
2359 ;; mark inserted text
2414 '(:help "Replace text in region with an ellipsis"))]
2418 '(:help "Delete all quoted text outside region"))]
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."))]
2513 ;; We use `after-change-functions' to keep special text properties
2517 (defcustom message-strip-special-text-properties t
2520 Emacs has a number of special text properties which can break message
2534 ;; directly useful for `remove-text-properties'.
2548 Tamago version 4 is a popular input method for writing Japanese text.
2550 and `read-only' when translating ascii or kana text to kanji text.
2554 (or (memq (get-text-property pos 'intangible)
2556 (get-text-property pos 'egg-end)
2557 (get-text-property pos 'egg-lang)
2558 (get-text-property pos 'egg-start)))))
2564 (when (and message-strip-special-text-properties
2569 (when (not (get-text-property begin 'message-hidden))
2570 (remove-text-properties begin (1+ begin)
2575 (define-derived-mode message-mode text-mode "Message"
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)
2596 C-c C-n `message-insert-newsgroups' (add a Newsgroup header to a news reply)
2597 C-c C-b `message-goto-body' (move to beginning of message text).
2602 C-c C-e `message-elide-region' (elide the text between point and mark).
2603 C-c C-v `message-delete-not-region' (remove the text outside the region).
2604 C-c C-z `message-kill-to-signature' (kill the text up to the signature).
2612 (setq local-abbrev-table text-mode-abbrev-table)
2686 (regexp-quote mail-header-separator) "$\\|"
2692 quote-prefix-regexp "$\\|" ; empty lines in quoted text
2706 ;; KLUDGE: auto fill might already be turned on in `text-mode-hook'.
2709 ;; `text-mode-hook' ourself at the end of the mode.
2724 "Move point to the To header."
2729 "Move point to the From header."
2734 "Move point to the Subject header."
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)
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."
2835 (message-remove-header "Mail-Followup-To")
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."
2970 "Deletes all text up to the signature."
2981 "Insert four newlines, and then reformat if inside quoted text.
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"))
3187 "Elide the text in the region.
3189 text was killed."
3262 (search-forward mail-header-separator nil 'end))
3283 (search-forward (concat "\n" mail-header-separator "\n") nil t)
3288 "Modify text just inserted from a message to be cited.
3289 The inserted text should be the region.
3290 When this function returns, the region is again around the modified text.
3304 (message-remove-header message-ignored-cited-headers t)
3337 Puts point before the text and mark after.
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")
3500 "Remove the signature from the text between point and mark.
3501 The text will also be indented the normal way."
3506 ;; No signature here, so we just indent the cited text.
3605 (put-text-property (point-min) (point-max) 'read-only nil))
3676 (defun message-text-with-property (prop)
3677 "Return a list of all points where the text has PROP."
3682 (when (get-text-property point prop)
3694 (let ((points (message-text-with-property 'message-hidden)))
3698 (add-text-properties point (1+ point)
3700 ;; Make invisible text visible.
3703 (message-check 'invisible-text
3704 (let ((points (message-text-with-property 'invisible)))
3708 (put-text-property point (1+ point) 'invisible nil)
3712 "Invisible text found and made visible; continue sending? ")
3713 (error "Invisible text found and made visible")))))
3714 (message-check 'illegible-text
3725 (not (get-text-property
3756 (not (get-text-property
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))
3908 ;; Avoid copying text props (except hard newlines).
3916 ;; We (re)generate the Lines header.
3920 (message-remove-header message-ignored-mail-headers t)
3943 (string= "text/plain"
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))
4219 ;; Avoid copying text props (except hard newlines).
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) "$"))
4620 ;; Check whether any new text has been added.
4621 (message-check 'new-text
4625 (if (message-gnksa-enable-p 'quoted-text-only)
4627 "It looks like no new text has been added. Really post? ")
4628 (message "Denied posting -- no new text has been added.")
4639 ;; Ensure that text follows last quoted portion.
4647 (if (message-gnksa-enable-p 'quoted-text-only)
4648 (y-or-n-p "Your text should follow quoted text. Really post? ")
4652 (concat "^" (regexp-quote mail-header-separator) "$"))
4654 (y-or-n-p "Your text should follow quoted text. Really post? ")
4655 (message "Denied posting -- only quoted text.")
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)."
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)
5211 (get-text-property (1+ (match-beginning 0)) 'message-deletable)
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)
5304 (add-text-properties
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)
5735 (put-text-property
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
5879 ;; message-header-synonyms.
5881 (and (loop for synonym in message-header-synonyms
5910 (dolist (header address-headers)
5911 (let ((value (message-fetch-field header)))
5918 You should normally obey the Mail-Followup-To: header. In this
5968 (message-tokenize-header recipients)))
5991 ;; Build the header alist. Allow the user to be asked whether
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."
6968 If nil, the function bound in `text-mode-map' or `global-map' is executed."
6983 (not (mail-abbrev-in-expansion-header-p))))
6986 (lookup-key text-mode-map "\t")
7052 (defun message-talkative-question (ask question show &rest text)
7057 (setq text (message-flatten-list text)))
7063 (mapcar 'princ text)
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
7156 (insert "Content-Type: text/plain; charset=us-ascii\n"))))))
7187 (message-remove-header "From")
7235 (if (not (message-hide-header-p regexps))
7236 (message-next-header)
7238 (message-next-header)
7239 (add-text-properties
7243 (defun message-hide-header-p (regexps)