Lines Matching +refs:nnheader +refs:file +refs:to +refs:group
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
36 (defvar gnus-message-group-art)
41 (require 'nnheader)
52 (autoload 'gnus-find-method-for-group "gnus")
53 (autoload 'nnvirtual-find-group-art "nnvirtual")
54 (autoload 'gnus-group-decoded-name "gnus-group"))
60 :group 'mail
61 :group 'news)
69 :group 'message)
74 :group 'message)
79 :group 'message)
84 :group 'message)
89 :group 'message-interface)
94 :group 'message)
99 :group 'message)
103 :group 'message)
107 :group 'message)
111 :group 'message
112 :group 'faces)
115 "*Directory from which all other mail file variables are derived."
116 :group 'message-various
120 "*How many buffers to keep before starting to kill them off."
121 :group 'message-buffers
125 "Function called to rename the buffer after sending it."
126 :group 'message-buffers
130 "*A function called to save outgoing articles.
131 This function will be called with the name of the file to store the
136 :group 'message-sending)
142 :group 'message-sending)
145 "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
148 the article has been posted to will be inserted there.
150 :group 'message-sending
155 "*Regexp that matches headers to be removed in resent bounced mail."
156 :group 'message-interface
176 :group 'message-headers)
179 "Whether to insert a Cancel-Lock header in news postings."
181 :group 'message-headers
186 ;; Guess this one shouldn't be easy to customize...
189 `(signature . disabled)' to this list.
197 `repeated-newsgroups', `reply-to', `sender', `sendsys', `shoot',
198 `shorten-followup-to', `signature', `size', `subject', `subject-cmsg'
200 :group 'message-news
205 "*Headers to be generated or prompted for when sending a message.
209 :group 'message-news
210 :group 'message-headers
215 "*Headers to be generated when saving a draft message."
217 :group 'message-news
218 :group 'message-headers
226 "*Headers to be generated or prompted for when posting an article.
229 User-Agent are optional. If you don't want message to insert some
231 :group 'message-news
232 :group 'message-headers
239 "*Headers to be generated or prompted for when mailing a message.
242 :group 'message-mail
243 :group 'message-headers
248 "Headers to be deleted if they already exist and were generated by message previously."
249 :group 'message-headers
255 "*Regexp of headers to be removed unconditionally before posting."
256 :group 'message-news
257 :group 'message-headers
259 :type '(repeat :value-to-internal (lambda (widget value)
268 "*Regexp of headers to be removed unconditionally before mailing."
269 :group 'message-mail
270 :group 'message-headers
276 It's best to delete old Path and Date headers before posting to avoid
278 :group 'message-interface
280 :type '(repeat :value-to-internal (lambda (widget value)
290 :group 'message-various
297 "*What to do with trailing \"(was: <old subject>)\" in subject lines.
309 :group 'message-various)
316 `message-subject-trailing-was-query' is set to the symbol `ask'. If
320 It is okay to create some false positives here, as the user is asked."
322 :group 'message-various
330 If `message-subject-trailing-was-query' is set to t, the subject is
335 :group 'message-various
343 "How to mark the beginning of some inserted text."
347 :group 'message-various)
351 "How to mark the end of some inserted text."
355 :group 'message-various)
358 "Header to insert when you don't want your article to be archived.
363 :group 'message-various)
367 "Note to insert why you wouldn't want this posting archived.
372 :group 'message-various)
375 ;; inspired by JoH-followup-to by Jochem Huhman <joh at gmx.de>
383 "When non-nil `message-cross-post-followup-to' will perform a crosspost.
384 If nil, `message-cross-post-followup-to' will only do a followup. Note that
386 `message-cross-post-followup-to' with a prefix."
389 :group 'message-various)
392 "Note to insert before signature to notify of cross-post and follow-up."
395 :group 'message-various)
397 (defcustom message-followup-to-note "Followup-To: "
398 "Note to insert before signature to notify of follow-up only."
401 :group 'message-various)
404 "Function to use to insert note about Crosspost or Followup-To.
410 :group 'message-various)
419 :group 'message-various)
425 :group 'message-various)
429 nil means let mailer mail back a message to report errors."
430 :group 'message-sending
431 :group 'message-mail
436 "*Say whether to create a new message buffer to compose a message.
441 *mail to whom*, *news on group*, etc.) and continue editing in the
449 Similar to `unique' but the buffer name begins with \"*unsent \".
452 Similar to nil but the buffer name is simpler like *mail message*.
456 The type, the To address and the group name (any of these may be nil).
458 :group 'message-buffers
469 :group 'message-buffers
481 "*String to be used as an Organization header.
482 If t, use `message-user-organization-file'."
483 :group 'message-headers
485 (const :tag "consult file" t)))
488 (defcustom message-user-organization-file "/usr/lib/news/organization"
489 "*Local news organization file."
490 :type 'file
492 :group 'message-headers)
496 "*List of functions called to generate subject headers for forwarded messages.
507 to it."
508 :group 'message-forwarding
519 :group 'message-forwarding
526 Can also be the symbol `best' to indicate that MML should be
527 used, except when it is a bad idea to use MML. One example where
529 message, because converting MIME to MML would invalidate the
532 :group 'message-forwarding
539 :group 'message-forwarding
543 "*Non-nil means try to remove as much cruft as possible from the subject.
545 :group 'message-forwarding
551 :group 'message-interface
553 :type '(repeat :value-to-internal (lambda (widget value)
563 :group 'message-forwarding
564 :type '(repeat :value-to-internal (lambda (widget value)
573 :group 'message-insertion
597 :group 'message-insertion
602 "Message to be inserted in the cancel message."
603 :group 'message-interface
607 ;; Useful to set in site-init.el
610 "Function to call to send the current buffer as mail.
626 :group 'message-sending
628 :group 'message-mail)
631 "Function to call to send the current buffer as news.
634 :group 'message-sending
635 :group 'message-news
639 (defcustom message-reply-to-function nil
643 :group 'message-interface
647 (defcustom message-wide-reply-to-function nil
651 :group 'message-interface
655 (defcustom message-followup-to-function nil
659 :group 'message-interface
663 (defcustom message-use-followup-to 'ask
664 "*Specifies what to do with Followup-To header.
667 always query the user whether to use the value. If it is the symbol
669 :group 'message-interface
676 (defcustom message-use-mail-followup-to 'use
677 "*Specifies what to do with Mail-Followup-To header.
679 query the user whether to use the value. If it is the symbol `use',
682 :group 'message-interface
690 If nil, do not attempt to determine list subscription with functions.
692 regular expressions to match lists. These functions can be used in
696 :group 'message-interface
700 (defcustom message-subscribed-address-file nil
701 "*A file containing addresses the user is subscribed to.
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."
705 :group 'message-interface
707 :type '(radio file (const nil)))
710 "*Specifies a list of addresses the user is subscribed to.
715 :group 'message-interface
720 "*Specifies a list of addresses the user is subscribed to.
725 :group 'message-interface
730 "Specifies what to do when there are no recipients other than Gcc/Fcc.
735 :group 'message-interface
742 "*Non-nil means don't add \"-f username\" to the sendmail command line.
744 :group 'message-sending
757 :group 'message-sending)
762 :group 'message-sending
764 :type 'file)
767 "Arguments passed to qmail-inject programs.
771 For e.g., if you wish to set the envelope sender address so that bounces
772 go to the right place or to deal with listserv's usage of that address, you
773 might set this variable to '(\"-f\" \"you@some.where\")."
774 :group 'message-sending
779 (defvar message-cater-to-broken-inn t
795 "*Method used to post news.
798 :group 'message-news
799 :group 'message-sending
801 ;; create a dependence to `gnus.el'.
805 ;; proper solution. If a crash happens while replying, the auto-save file
809 "Which headers should be generated before starting to compose a message.
810 If t, generate all required headers. This can also be a list of headers to
812 `message-required-mail-headers' specify which headers to generate.
815 are to be deleted and then re-generated before sending, so this variable
817 :group 'message-headers
827 :group 'message-various
833 :group 'message-various
841 :group 'message-various
847 :group 'message-various
851 "Hook run in a message mode buffer narrowed to the headers."
852 :group 'message-various
856 "Hook called narrowed to the headers when setting up a message buffer."
857 :group 'message-various
867 :group 'message-various)
871 "*Function called to insert the \"Whomever writes:\" line.
874 `writes:' to hide the cited text. If you change this line too much,
875 people who read your message will have to change their Gnus
879 :group 'message-insertion)
884 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
888 :group 'message-insertion)
892 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
897 :group 'message-insertion)
900 "*Number of spaces to insert at the beginning of each cited line.
902 :group 'message-insertion
917 :group 'message-insertion)
927 :group 'message-insertion)
931 "*String to be inserted at the end of the message buffer.
932 If t, the `message-signature-file' file will be inserted instead.
937 :group 'message-insertion)
940 (defcustom message-signature-file "~/.signature"
941 "*Name of file containing the text inserted at end of message buffer.
942 Ignored if the named file doesn't exist.
944 :type '(choice file (const :tags "None" nil))
946 :group 'message-insertion)
954 :group 'message-insertion)
957 "*Function called to return a Distribution header."
958 :group 'message-news
959 :group 'message-headers
965 :group 'message-news
966 :group 'message-headers
973 :group 'message-news
974 :group 'message-headers
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.")
1005 "*A string containing header lines to be inserted in outgoing messages.
1008 :group 'message-headers
1013 "*A string of header lines to be inserted in outgoing mails."
1014 :group 'message-headers
1015 :group 'message-mail
1020 "*A string of header lines to be inserted in outgoing news articles."
1021 :group 'message-headers
1022 :group 'message-news
1031 (file-readable-p "/etc/sendmail.cf")
1036 (insert-file-contents "/etc/sendmail.cf")
1041 ;; According to RFC822, "The field-name must be composed of printable
1048 The value should be an expression to test whether the problem will
1050 :group 'message-sending
1060 "If non-nil, delete the deletable headers before feeding to mh.")
1065 "Alist of ways to send outgoing messages.
1071 called without any parameters to determine whether the message is
1072 a message of type TYPE; and FUNCTION is a function to be called if
1077 "*What alias expansion type to use in Message buffers.
1080 :group 'message
1086 (file-name-as-directory (nnheader-concat message-directory "drafts"))
1089 :group 'message-buffers
1096 If nil, you might be asked to input the charset."
1098 :group 'message
1102 (defcustom message-dont-reply-to-names
1103 (and (boundp 'rmail-dont-reply-to-names) rmail-dont-reply-to-names)
1104 "*A regexp specifying addresses to prune when doing wide replies.
1107 :group 'message
1113 "*A list of GNKSA feet you are allowed to shoot.
1115 shooting yourself in the foot. Also, Gnus allows you to shoot the
1118 `empty-article' Allow you to post an empty article;
1119 `quoted-text-only' Allow you to post quoted text only;
1120 `multiple-copies' Allow you to post multiple copies;
1121 `cancel-messages' Allow you to cancel or supersede messages from
1129 "Regexp of headers to be hidden when composing new messages.
1130 This can also be a list of regexps to match headers. Or a list
1133 :group 'message
1148 (defface message-header-to
1158 :group 'message-faces)
1160 (put 'message-header-to-face 'face-alias 'message-header-to)
1172 :group 'message-faces)
1186 :group 'message-faces)
1200 :group 'message-faces)
1214 :group 'message-faces)
1228 :group 'message-faces)
1242 :group 'message-faces)
1256 :group 'message-faces)
1270 :group 'message-faces)
1284 :group 'message-faces)
1311 (2 'message-header-to nil t))
1345 "Additional expressions to highlight in Message mode.")
1348 ;; XEmacs does it like this. For Emacs, we have to set the
1359 The cdr of each entry is a function for applying the face to a region.")
1364 :group 'message-various
1373 :group 'message-various
1381 :group 'message-various
1387 :group 'message-various
1391 "Coding system to encode outgoing mail.")
1395 "*Coding system to compose mail.
1396 If you'd like to make it possible to share draft files between XEmacs
1398 Note that the coding-system `iso-2022-7bit' isn't suitable to all data.")
1405 :group 'message-buffers
1418 :group 'message-headers
1427 subsequent addresses are subaddresses; this is used to indicate that
1428 mail sent to the first address will automatically be delivered to the
1434 :group 'message-headers
1451 (function-item :tag "Emacs interface to MH"
1456 :group 'message)
1459 "Whether to confirm a wide reply to multiple email recipients.
1460 If this variable is nil, don't ask whether to reply to all recipients.
1461 If this variable is non-nil, pose the question \"Reply to all
1462 recipients?\" before a wide reply to multiple recipients. If the user
1463 answers yes, reply to all recipients as usual. If the user answers
1464 no, only reply back to the author."
1466 :group 'message-headers
1473 :group 'message-headers
1479 (file-error))
1482 (string= (idna-to-ascii "r�ksm�rg�s")
1485 "Whether to encode non-ASCII in domain names into ASCII according to IDNA.
1488 functionality to work."
1490 :group 'message-headers
1510 (defvar gnus-read-active-file))
1524 ;; Many things can happen to an RFC 822 mailbox before it is put into
1540 ;; We want to match the results of any of these manglings.
1621 :group 'message-headers
1625 (autoload 'idna-to-ascii "idna")
1631 (autoload 'gnus-output-to-rmail "gnus-util")
1632 (autoload 'gnus-output-to-mail "gnus-util")
1639 (autoload 'gnus-group-name-charset "gnus-group")
1640 (autoload 'gnus-group-name-decode "gnus-group")
1679 SEPARATOR is a string of characters to be used as separators. \",\"
1712 (defun message-mail-file-mbox-p (file)
1713 "Say whether FILE looks like a Unix mbox file."
1714 (when (and (file-exists-p file)
1715 (file-readable-p file)
1716 (file-regular-p file))
1718 (nnheader-insert-file-contents file)
1724 The buffer is expected to be narrowed to just the header of the message;
1725 see `message-narrow-to-headers-or-head'."
1736 "The same as `message-fetch-field', only narrow to the headers first."
1739 (message-narrow-to-headers-or-head)
1742 (defun message-narrow-to-field ()
1743 "Narrow the buffer to the header on the current line."
1745 (narrow-to-region
1757 "Add the HEADERS to the message header, skipping those already present."
1764 (message-narrow-to-headers)
1784 "Fetch field HEADER from the message we're replying to."
1787 (mail-narrow-to-head)
1813 :group 'message-various
1872 Hit RET to replace non-decodable characters with \"%s\" or enter replacement
1930 "to get rid of this query."
1949 (message-narrow-to-headers)
1973 ;; add to the end of the region first, otherwise end would be invalid
1979 (defun message-mark-insert-file (file)
1982 (interactive "fFile to insert: ")
1983 ;; reverse insertion to get correct result.
1987 (insert-file-contents file)
1994 prefix argument, ask for a text to insert. If you don't want the note in the
1995 body, set `message-archive-note' to nil."
2010 (defun message-cross-post-followup-to-header (target-group)
2011 "Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP.
2019 (if (boundp 'gnus-group-history)
2020 'gnus-group-history))))
2030 ;; unless (followup is to poster or user explicitly asked not
2031 ;; to cross-post, or target-group is already in Newsgroups)
2032 ;; add target-group to Newsgroups line.
2038 (not (string-match "poster" target-group))
2039 (not (string-match (regexp-quote target-group)
2042 (insert (concat "," target-group))))
2044 ;; unless new followup would be identical to Newsgroups line
2047 target-group
2050 (insert (concat "\nFollowup-To: " target-group)))
2051 (setq message-cross-post-old-target target-group))
2053 (defun message-cross-post-insert-note (target-group cross-post in-old
2057 group to Followup-To. When CROSS-POST is t, insert note about
2060 been made to before the user asked for a Crosspost."
2073 (concat "^" (regexp-quote message-followup-to-note) ".*")
2081 (string-match "^[ \t]*poster[ \t]*$" target-group))
2082 (insert (concat message-followup-to-note target-group "\n"))
2083 (insert (concat message-cross-post-note target-group "\n")))))
2085 (defun message-cross-post-followup-to (target-group)
2086 "Crossposts message and set Followup-To to TARGET-GROUP.
2094 (if (boundp 'gnus-group-history)
2095 'gnus-group-history))))
2096 (cond ((not (or (null target-group) ; new subject not empty
2097 (zerop (string-width target-group))
2098 (string-match "^[ \t]*$" target-group)))
2102 (regexp-quote target-group)
2110 (regexp-quote target-group)
2114 (message-cross-post-followup-to-header target-group)
2115 ;; insert note whether we do cross-post or followup-to
2117 target-group
2124 ;;; Reduce To: to Cc: or Bcc: header
2126 (defun message-reduce-to-to-cc ()
2130 (save-restriction (message-narrow-to-headers)
2136 (message-narrow-to-headers)
2141 (message-goto-to)
2145 (message-narrow-to-headers)
2173 ;; There might be a continuation header, so we have to search
2198 (defun message-narrow-to-headers ()
2199 "Narrow the buffer to the head of the message."
2201 (narrow-to-region
2209 (defun message-narrow-to-head-1 ()
2210 "Like `message-narrow-to-head'. Don't widen."
2211 (narrow-to-region
2218 (defun message-narrow-to-head ()
2219 "Narrow the buffer to the head of the message.
2220 Point is left at the beginning of the narrowed-to region."
2222 (message-narrow-to-head-1))
2224 (defun message-narrow-to-headers-or-head ()
2225 "Narrow the buffer to the head of the message."
2227 (narrow-to-region
2243 (message-narrow-to-headers)
2245 (not (message-fetch-field "posted-to"))))))))
2253 (message-narrow-to-headers)
2254 (or (message-fetch-field "to")
2259 "Say whether we need to insert a MFT header."
2262 message-subscribed-address-file
2266 "Go to the beginning of the next header."
2288 "Sort the headers of the current message according to `message-header-format-alist'."
2294 (message-narrow-to-headers)
2334 (define-key message-mode-map "\C-c\C-f\C-t" 'message-goto-to)
2340 (define-key message-mode-map "\C-c\C-f\C-r" 'message-goto-reply-to)
2343 (define-key message-mode-map "\C-c\C-f\C-f" 'message-goto-followup-to)
2344 (define-key message-mode-map "\C-c\C-f\C-m" 'message-goto-mail-followup-to)
2350 'message-generate-unsubscribed-mail-followup-to)
2355 (define-key message-mode-map "\C-c\C-fx" 'message-cross-post-followup-to)
2356 ;; prefix+message-cross-post-followup-to = same w/o cross-post
2357 (define-key message-mode-map "\C-c\C-ft" 'message-reduce-to-to-cc)
2361 (define-key message-mode-map "\C-c\M-f" 'message-mark-insert-file)
2366 (define-key message-mode-map "\C-c\C-t" 'message-insert-to)
2369 (define-key message-mode-map "\C-c\C-l" 'message-to-list-only)
2373 'message-insert-disposition-notification-to)
2392 (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)
2397 (define-key message-mode-map "\C-c\C-a" 'mml-attach-file)
2419 ["Kill To Signature" message-kill-to-signature t]
2430 ["Insert File Marked..." message-mark-insert-file
2432 '(:help "Insert file at point marked with enclosing tags"))]
2442 '(:help "Ask, then arrange to send message at that time"))]
2454 ["To" message-goto-to t]
2461 ["Reply-To" message-goto-reply-to t]
2469 message-insert-disposition-notification-to
2478 ["Followup-To" message-goto-followup-to t]
2479 ;; ["Followup-To (with note in body)" message-cross-post-followup-to t]
2480 ["Crosspost / Followup-To..." message-cross-post-followup-to t]
2485 ["Fetch To" message-insert-to
2487 '(:help "Insert a To header that points to the author."))]
2493 ["Send to list only" message-to-list-only t]
2494 ["Mail-Followup-To" message-goto-mail-followup-to t]
2495 ["Unsubscribed list post" message-generate-unsubscribed-mail-followup-to
2498 ["Reduce To: to Cc:" message-reduce-to-to-cc t]
2501 ["Encode non-ASCII domain names" message-idna-to-ascii-rhs t]
2513 ;; We use `after-change-functions' to keep special text properties
2523 packages requires these properties to be present in order to work.
2527 :group 'message-various
2533 ;; property list (rather than a list of property symbols), to be
2542 ;; We need to add XEmacs names to the list.
2550 and `read-only' when translating ascii or kana text to kanji text.
2551 These properties are essential to work, so we should never strip them."
2562 This function is intended to be called from `after-change-functions'.
2576 "Major mode for editing mail and news to be sent.
2580 C-c C-f move to a header field (and create it if there isn't):
2581 C-c C-f C-t move to To C-c C-f C-s move to Subject
2582 C-c C-f C-c move to Cc C-c C-f C-b move to Bcc
2583 C-c C-f C-w move to Fcc C-c C-f C-r move to Reply-To
2584 C-c C-f C-u move to Summary C-c C-f C-n move to Newsgroups
2585 C-c C-f C-k move to Keywords C-c C-f C-d move to Distribution
2586 C-c C-f C-o move to From (\"Originator\")
2587 C-c C-f C-f move to Followup-To
2588 C-c C-f C-m move to Mail-Followup-To
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)
2597 C-c C-b `message-goto-body' (move to beginning of message text).
2598 C-c C-i `message-goto-signature' (move to the beginning of the signature).
2599 C-c C-w `message-insert-signature' (insert `message-signature-file' file).
2604 C-c C-z `message-kill-to-signature' (kill the text up to the signature).
2606 C-c C-a `mml-attach-file' (attach a file as MIME).
2608 C-c M-n `message-insert-disposition-notification-to' (request receipt).
2610 C-c M-f `message-mark-insert-file' (insert file marked with enclosing tags).
2637 ;; Allow using comment commands to add/remove quoting.
2661 (unless buffer-file-name
2662 (message-set-auto-save-file-name))
2682 ;; message-yank-prefix is set to an abnormal value.
2708 ;; solution would be not to use `define-derived-mode', and run
2723 (defun message-goto-to ()
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."
2753 (defun message-goto-reply-to ()
2754 "Move point to the Reply-To header."
2759 "Move point to the Newsgroups header."
2764 "Move point to the Distribution header."
2768 (defun message-goto-followup-to ()
2769 "Move point to the Followup-To header."
2773 (defun message-goto-mail-followup-to ()
2774 "Move point to the Mail-Followup-To header."
2779 "Move point to the Keywords header."
2784 "Move point to the Summary header."
2789 "Move point to the beginning of the message body."
2804 "Move point to the end of the headers."
2810 "Move point to the beginning of the message signature.
2811 If there is no signature in the article, go to the end and
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,
2823 you have to type in a MFT header by hand. The contents, usually, are
2834 (message-narrow-to-headers)
2840 (message-goto-mail-followup-to)
2846 (defun message-insert-to (&optional force)
2847 "Insert a To header that points to the author of the article being replied to.
2848 If the original author requested not to be sent mail, don't insert unless the
2851 (let* ((mct (message-fetch-reply-field "mail-copies-to"))
2854 (to (or (message-fetch-reply-field "mail-reply-to")
2855 (message-fetch-reply-field "reply-to")
2857 (when (and dont to)
2860 "Ignoring the user request not to have copies sent via mail"
2861 "Complying with the user request not to have copies sent via mail")))
2862 (when (and force (not to))
2864 (when (and to (or force (not dont)))
2865 (message-carefully-insert-headers (list (cons 'To to))))))
2880 when the message is already `Cc'ed to the recipient."
2882 :group 'message-headers
2913 "Widen the reply to include maximum recipients."
2915 (let ((follow-to
2923 (message-narrow-to-headers)
2924 (dolist (elem follow-to)
2931 "Insert the Newsgroups header from the article being replied to."
2969 (defun message-kill-to-signature ()
2970 "Deletes all text up to the signature."
3043 (narrow-to-region beg end)
3076 ;; Is it better to use `mail-header-end'?
3113 message-signature-file
3114 (file-exists-p message-signature-file))
3125 (insert-file-contents message-signature-file)
3131 "Insert header to mark message as important."
3135 (message-narrow-to-headers)
3141 "Insert header to mark message as unimportant."
3145 (message-narrow-to-headers)
3152 The three allowed values according to RFC 1327 are `high', `normal'
3160 (message-narrow-to-headers)
3172 (defun message-insert-disposition-notification-to ()
3173 "Request a disposition notification (return receipt) to this message.
3178 (message-narrow-to-headers)
3182 (or (message-field-value "Reply-to")
3197 "Caesar rotate region B to E by N, default 13, for decrypting netnews."
3207 (= b e)) ; no region to rotate
3232 Used to encode/decode possibly offensive messages (commonly in rec.humor).
3233 With prefix arg, specifies the number of places to rotate each letter forward.
3241 (narrow-to-region (point) (point-max)))
3249 (narrow-to-region (point) (point-max)))
3254 "Rename the *message* buffer to \"*message* RECIPIENT\".
3261 (narrow-to-region (point)
3263 (let* ((mail-to (or
3267 (mail-trimmed-to
3268 (if (string-match "," mail-to)
3269 (concat (substring mail-to 0 (match-beginning 0)) ", ...")
3270 mail-to))
3271 (name-default (concat "*message* " mail-trimmed-to))
3288 "Modify text just inserted from a message to be cited.
3299 (narrow-to-region
3336 "Insert the message being replied to, if any.
3341 This function uses `message-cite-function' to do the actual citing.
3397 (narrow-to-region start end)
3398 (message-narrow-to-head-1)
3446 (narrow-to-region start end)
3447 (message-narrow-to-head-1)
3474 (narrow-to-region
3560 (auto-save-file-name buffer-auto-save-file-name)
3561 (file-name buffer-file-name)
3563 (setq buffer-file-name nil)
3565 (when (and (or (and auto-save-file-name
3566 (file-exists-p auto-save-file-name))
3567 (and file-name
3568 (file-exists-p file-name)))
3576 (yes-or-no-p (format "Remove the backup file%s? "
3579 (delete-file auto-save-file-name))
3591 (switch-to-buffer newbuf))))
3597 Otherwise any failure is reported in a message back to the user from
3602 ;; Make it possible to undo the coming changes.
3642 (error "No methods specified to send by"))
3651 (delete-auto-save-file-if-necessary t)
3668 "Eval FORMS if TYPE is to be checked."
3688 "Do various things to make the message nice before sending it."
3767 "Add ACTION to be performed when doing an exit of type TYPES."
3769 (add-to-list (intern (format "message-%s-actions" (pop types)))
3788 ;; Something to be evaled.
3822 (copy-to-buffer tembuf p (car plist))
3828 (narrow-to-region (point) (point))
3833 (narrow-to-region (point) (point))
3877 (message-narrow-to-headers)
3880 (not (mail-fetch-field "mail-followup-to")))
3883 (cons "Mail-Followup-To" (message-make-mail-followup-to))
3886 (when (equal "" (mail-fetch-field "mail-followup-to"))
3901 (error "Failed to send the message")))))
3915 (message-narrow-to-headers)
3933 (message-narrow-to-headers)
3937 (message-fetch-field "to"))
3973 If you always want Gnus to send messages in one piece, set
3974 `message-send-mail-partially-limit' to nil.
3991 resend-to-addresses delimline)
3996 (message-narrow-to-headers)
3997 (setq resend-to-addresses (message-fetch-field "resent-to")))
3998 ;; Change header-delimiter to be what sendmail expects.
4006 ;; Insert an extra newline if we need it to work around
4023 ((file-exists-p "/usr/sbin/sendmail")
4025 ((file-exists-p "/usr/lib/sendmail")
4027 ((file-exists-p "/usr/ucblib/sendmail")
4045 (if resend-to-addresses
4046 (list resend-to-addresses)
4057 (error "Sending...failed to %s"
4063 "Pass the prepared message buffer to qmail-inject.
4064 Refer to the documentation for the variable `message-send-mail-function'
4065 to find out how to use this."
4078 ;; qmail-inject's default behaviour is to look for addresses on the
4087 ;; various vendors, so we don't have to allow for that, either --
4093 ;; since we don't have to play that double-guessing game and the user
4099 ;; we have to look at the retval instead
4110 (setq buffer-file-name name)
4111 ;; MH wants to generate these headers itself.
4121 ;; Pass it on to mh.
4134 "Return a string that is non-trivial to guess.
4140 (prin1-to-string (recent-keys))
4141 (prin1-to-string (garbage-collect))))))
4164 (message-narrow-to-headers-or-head)
4167 (message-narrow-to-headers-or-head)
4169 ;; BUG: We really need to get the charset for each name in the
4170 ;; Newsgroups and Followup-To lines to allow crossposting
4171 ;; between group namess with incompatible character sets.
4173 (group-field-charset
4174 (gnus-group-name-charset method newsgroups-field))
4176 (gnus-group-name-charset method (or followup-field "")))
4178 (append (when group-field-charset
4179 (list (cons "Newsgroups" group-field-charset)))
4197 (message-narrow-to-headers)
4204 ;; gnus-group-name-charset-group-alist. -- Pa 2001-10-07.
4205 (when (and group-field-charset
4227 (message-narrow-to-headers)
4256 (nnheader-get-report (car method)))
4264 "Return non-nil if this TYPE is not to be checked."
4276 ;; We narrow to the headers and check them first.
4279 (message-narrow-to-headers)
4286 (let ((group (message-fetch-field "newsgroups")))
4288 (and group
4289 (not (string-match "\\`[ \t]*\\'" group)))
4354 (message-check 'shorten-followup-to
4356 (followup-to (message-fetch-field "followup-to"))
4357 to)
4360 (not followup-to)
4364 (setq to (completing-read
4365 "Followups to (default no Followup-To header): "
4371 (insert "Followup-To: " to "\n"))
4377 (y-or-n-p "You appear to have a misconfigured system. Really post? ")
4402 (followup-to (message-fetch-field "followup-to"))
4404 (if followup-to
4405 (concat newsgroups "," followup-to)
4410 ;; KLUDGE to handle nnvirtual groups. Doing this right
4415 gnus-message-group-art)
4416 (let ((group (car (nnvirtual-find-group-art
4417 (car gnus-message-group-art)
4418 (cdr gnus-message-group-art)))))
4419 (gnus-find-method-for-group group))
4423 (gnus-group-name-decode
4424 (gnus-group-real-name n)
4425 (gnus-group-name-charset method n)))
4438 (not (boundp 'gnus-read-active-file)))
4440 ;; We don't have all the group names.
4441 ((and (or (not gnus-read-active-file)
4442 (eq gnus-read-active-file 'some))
4446 "Really use %s possibly unknown group%s: %s? "
4457 "Really post to %s unknown group%s: %s? "
4501 header error groups group)
4506 (while (setq group (pop groups))
4507 (when (member group groups)
4508 (setq error group
4537 (not (eq (string-to-char (car addresses)) ?\()))
4545 (message-check 'reply-to
4547 (reply-to (message-fetch-field "reply-to"))
4550 ((not reply-to)
4552 ((string-match "," reply-to)
4555 reply-to)))
4559 reply-to))))) ;larsi@ifi
4564 (string-match "(.*).*(.*)" reply-to)) ;(lars) (lars)
4568 reply-to)))
4676 list file
4680 (message-narrow-to-headers)
4681 (setq file (message-fetch-field "fcc" t)))
4682 (when file
4688 (message-narrow-to-headers)
4689 (while (setq file (message-fetch-field "fcc" t))
4690 (push file list)
4704 (setq file (pop list))
4705 (if (string-match "^[ \t]*|[ \t]*\\(.*\\)[ \t]*$" file)
4706 ;; Pipe the article to the program in question.
4707 (call-process-region (point-min) (point-max) shell-file-name
4709 (match-string 1 file))
4711 (setq file (expand-file-name file))
4712 (unless (file-exists-p (file-name-directory file))
4713 (make-directory (file-name-directory file) t))
4716 (funcall message-fcc-handler-function file)
4717 (if (and (file-readable-p file) (mail-file-babyl-p file))
4718 (rmail-output file 1 nil t)
4720 (rmail-output file 1 t t))))))
4724 "Append this article to Unix/babyl mail file FILENAME."
4725 (if (and (file-readable-p filename)
4726 (mail-file-babyl-p filename))
4727 (gnus-output-to-rmail filename t)
4728 (gnus-output-to-mail filename t)))
4734 (message-narrow-to-headers)
4740 ;; spaces to comma and eliminate spaces around commas. Eliminate
4745 (narrow-to-region
4810 ;; You might for example insert a "." somewhere (not next to another dot
4835 ;; to this newsreader, other newsreaders might otherwise generate
4845 (char-to-string (aref "zyxwvutsrqponmlkjihgfedcba9876543210"
4860 message-user-organization-file
4861 (file-exists-p message-user-organization-file))
4862 (insert-file-contents message-user-organization-file)))
4875 (int-to-string (count-lines (point) (point-max))))))
4888 (defun message-make-in-reply-to ()
4934 ;; Add the future to current.
4978 ;; according to RFC 822.
5010 This function tries to ignore all user modifications, and
5051 ;; `message-user-fqdn' seems to be valid
5069 ;; Default to this bogus thing.
5085 (defun message-to-list-only ()
5086 "Send a message to the list only.
5089 (let ((listaddr (message-make-mail-followup-to t)))
5092 (message-remove-header "to")
5097 (defun message-make-mail-followup-to (&optional only-show-subscribed)
5102 (to (message-fetch-field "To"))
5104 (msg-recipients (concat to (and to cc ", ") cc))
5108 (file-regexps
5109 (if message-subscribed-address-file
5113 (insert-file-contents message-subscribed-address-file)
5126 file-regexps
5141 (defun message-idna-to-ascii-rhs-1 (header)
5152 (setq ace (downcase (idna-to-ascii rhs)))
5159 (message-narrow-to-field)
5165 (defun message-idna-to-ascii-rhs ()
5172 (message-narrow-to-head)
5173 (message-idna-to-ascii-rhs-1 "From")
5174 (message-idna-to-ascii-rhs-1 "To")
5175 (message-idna-to-ascii-rhs-1 "Reply-To")
5176 (message-idna-to-ascii-rhs-1 "Mail-Reply-To")
5177 (message-idna-to-ascii-rhs-1 "Mail-Followup-To")
5178 (message-idna-to-ascii-rhs-1 "Cc")))))
5185 (message-narrow-to-headers)
5193 (In-Reply-To (message-make-in-reply-to))
5257 ;; string to be inserted verbatim, or it is a
5301 ;; Add the deletable property to the headers that require it.
5324 ;; Rename any old Sender headers to Original-Sender.
5333 (message-idna-to-ascii-rhs))))
5340 (message-narrow-to-headers)
5358 (narrow-to-region (point) (point))
5363 (narrow-to-region (point-min) (1- (point-max)))
5404 (narrow-to-region begin (point))
5422 "Trim REFERENCES to be 21 Message-ID long or less, and fold them.
5451 (when (and message-this-is-news message-cater-to-broken-inn)
5457 ;; Decide how many elements to cut off...
5469 (if (and message-this-is-news message-cater-to-broken-inn)
5475 "Move point to where the user probably wants to find it."
5476 (message-narrow-to-headers)
5495 goes to beginning of header values."
5497 :group 'message-buffers
5502 "Move point to beginning of header value or to beginning of line.
5503 The prefix argument N is passed directly to `beginning-of-line'.
5505 This command is identical to `beginning-of-line' if point is
5510 line, move point to the beginning of the header value or the beginning of line,
5511 whichever is closer. If point is already at beginning of line, move point to
5529 (defun message-buffer-name (type &optional to group)
5536 (if to
5537 (concat " to "
5538 (or (car (mail-extract-address-components to))
5539 to) "")
5541 (if (and group (not (string= group ""))) (concat " on " group) "")
5546 (funcall message-generate-new-buffers type to group))
5550 (if to
5551 (concat " to "
5552 (or (car (mail-extract-address-components to))
5553 to) "")
5555 (if (and group (not (string= group ""))) (concat " on " group) "")
5562 (message-buffer-name type to group))))
5579 (cons (string-to-number (or (match-string 1 b) "1"))
5585 (defun message-pop-to-buffer (name &optional switch-function)
5586 "Pop to buffer NAME, and warn if it already exists and is modified."
5596 (funcall (or switch-function 'pop-to-buffer) buffer)
5604 (funcall (or switch-function 'pop-to-buffer) name)
5627 "\\`\\*\\(sent \\|unsent \\)?\\(.+\\)\\*[^\\*]*\\|\\`mail to "
5630 to group)
5635 (message-narrow-to-headers)
5636 (setq to (message-fetch-field "to"))
5637 (setq group (message-fetch-field "newsgroups"))
5641 (to (concat "*sent mail to "
5642 (or (car (mail-extract-address-components to))
5643 to) "*"))
5644 ((and group (not (string= group "")))
5645 (concat "*sent posting on " group "*"))
5666 subject to field yank-action)
5678 (setq to (cdr field))
5681 (compose-mail to subject
5689 (defun message-headers-to-generate (headers included-headers excluded-headers)
5717 (add-to-list 'message-send-actions
5748 (message-headers-to-generate
5759 (message-headers-to-generate
5767 (message-narrow-to-headers)
5772 ;; Do this last to give it precedence over posting styles, etc.
5775 (message-narrow-to-headers)
5781 (defun message-set-auto-save-file-name ()
5782 "Associate the message buffer with a file in the drafts directory."
5784 (unless (file-directory-p
5785 (directory-file-name message-auto-save-directory))
5790 (setq buffer-file-name (expand-file-name
5798 (setq buffer-auto-save-file-name (make-auto-save-file-name)))
5799 (clear-visited-file-modtime)
5800 (setq buffer-file-coding-system message-draft-coding-system)))
5813 (message-narrow-to-headers)
5833 (defun message-mail (&optional to subject
5836 "Start editing a mail message to be sent.
5838 to continue editing a message already being composed. SWITCH-FUNCTION
5839 is a function used to switch to and display the mail buffer."
5843 (message-pop-to-buffer
5850 (message-buffer-name "mail" to))
5858 `((To . ,(or to "")) (Subject . ,(or subject "")))
5866 "Start editing a news article to be sent."
5869 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups))
5873 (defun message-get-reply-headers (wide &optional to-address address-headers)
5874 (let (follow-to mct never-mct to cc author mft recipients)
5877 (message-narrow-to-headers-or-head)
5880 (setq to (or (message-fetch-field "to")
5884 (message-fetch-field "original-to")))
5886 mct (message-fetch-field "mail-copies-to")
5887 author (or (message-fetch-field "mail-reply-to")
5888 (message-fetch-field "reply-to")
5891 mft (and message-use-mail-followup-to
5892 (message-fetch-field "mail-followup-to"))))
5916 (or (not (eq message-use-mail-followup-to 'ask))
5923 which directs your response to " (if (string-match "," mft)
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
5931 If a message is posted to several mailing lists, Mail-Followup-To may
5932 also be used to direct the following discussion to one list only,
5933 because discussions that are spread over several lists tend to be
5934 fragmented and very difficult to follow.
5937 responses here are directed to other addresses.
5939 You may customize the variable `message-use-mail-followup-to', if you
5940 want to get rid of this query permanently.")))
5942 (to-address
5943 (setq recipients (concat ", " to-address))
5944 ;; If the author explicitly asked for a copy, we don't deny it to them.
5948 (if to (setq recipients (concat recipients ", " to)))
5957 ;; Remove addresses that match `rmail-dont-reply-to-names'.
5958 (let ((rmail-dont-reply-to-names message-dont-reply-to-names))
5959 (setq recipients (rmail-dont-reply-to recipients)))
5963 ;; Convert string to a list of (("foo@bar" . "Name <Foo@BAR>") ...).
5991 ;; Build the header alist. Allow the user to be asked whether
5992 ;; or not to reply to all recipients in a wide reply.
5993 (setq follow-to (list (cons 'To (cdr (pop recipients)))))
5996 (y-or-n-p "Reply to all recipients? ")))
6001 (push (cons 'Cc recipients) follow-to)))
6002 follow-to))
6010 The functions are applied when replying to a message.
6012 Useful functions to put in this list include:
6017 :group 'message-various
6038 (defun message-reply (&optional to-address wide)
6039 "Start editing a reply to the article in the current buffer."
6043 from subject date reply-to to cc
6044 references message-id follow-to
6049 (message-narrow-to-head-1)
6050 ;; Allow customizations to have their say.
6053 (when (functionp message-reply-to-function)
6055 (setq follow-to (funcall message-reply-to-function))))
6057 (when (functionp message-wide-reply-to-function)
6059 (setq follow-to
6060 (funcall message-wide-reply-to-function)))))
6074 (unless follow-to
6075 (setq follow-to (message-get-reply-headers wide to-address))))
6078 (message-pop-to-buffer
6081 (if wide to-address nil))))
6088 ,@follow-to)
6092 (defun message-wide-reply (&optional to-address)
6093 "Make a \"wide\" reply to the message in the current buffer."
6095 (message-reply to-address t))
6098 (defun message-followup (&optional to-newsgroups)
6099 "Follow up to the message in the current buffer.
6104 from subject date reply-to mrt mct
6105 references message-id follow-to
6108 followup-to distribution newsgroups gnus-warning posted-to)
6110 (narrow-to-region
6115 (when (functionp message-followup-to-function)
6116 (setq follow-to
6117 (funcall message-followup-to-function)))
6123 followup-to (message-fetch-field "followup-to")
6125 posted-to (message-fetch-field "posted-to")
6126 reply-to (message-fetch-field "reply-to")
6127 mrt (message-fetch-field "mail-reply-to")
6129 mct (message-fetch-field "mail-copies-to"))
6142 (message-pop-to-buffer (message-buffer-name "followup" from newsgroups))
6150 (to-newsgroups
6151 (list (cons 'Newsgroups to-newsgroups)))
6152 (follow-to follow-to)
6153 ((and followup-to message-use-followup-to)
6156 ((equal (downcase followup-to) "poster")
6157 (if (or (eq message-use-followup-to 'use)
6164 does not read the newsgroup, so he wouldn't see any replies sent to it.
6166 You may customize the variable `message-use-followup-to', if you
6167 want to get rid of this query permanently."))
6170 (cons 'To (or mrt reply-to from "")))
6173 (if (or (equal followup-to newsgroups)
6174 (not (eq message-use-followup-to 'ask))
6176 (concat "Obey Followup-To: " followup-to "? ") t "\
6179 `Followup-To: " followup-to "'
6180 directs your response to " (if (string-match "," followup-to)
6184 If a message is posted to several newsgroups, Followup-To is often
6185 used to direct the following discussion to one newsgroup only,
6186 because discussions that are spread over several newsgroup tend to
6187 be fragmented and very difficult to follow.
6190 responses here are directed to other newsgroups.
6192 You may customize the variable `message-use-followup-to', if you
6193 want to get rid of this query permanently."))
6194 (cons 'Newsgroups followup-to)
6196 (posted-to
6197 `((Newsgroups . ,posted-to)))
6206 (or mrt reply-to from "")
6213 If you have added 'cancel-messages to `message-shoot-gnksa-feet', all articles
6214 are yours except those that have Cancel-Lock header not belonging to you.
6216 regexp to match all of yours addresses."
6229 (message-narrow-to-head-1)
6233 (error "Failed to verify Cancel-lock: This article is not yours"))
6240 ;; Email address in From field equals to our address
6265 (message-narrow-to-head-1)
6273 (when (yes-or-no-p "Do you really want to cancel this article? ")
6299 "Start composing a message to supersede the current message.
6304 ;; Check whether the user owns the article that is to be superseded.
6308 (message-pop-to-buffer (message-buffer-name "supersede"))
6310 (mime-to-mml)
6311 (message-narrow-to-head-1)
6326 "Reread contents of current buffer from its last auto-save file."
6328 (let ((file-name (make-auto-save-file-name)))
6331 (with-output-to-temp-buffer "*Directory*"
6337 "ls" nil standard-output nil "-l" file-name))))
6338 (yes-or-no-p (format "Recover auto save file %s? " file-name)))
6341 (insert-file-contents file-name nil)))
6347 "Remove junk like \"Re:\", \"(fwd)\", etc. added to subject string SUBJECT.
6386 news, Source is the list of newsgroups is was posted to."
6387 (let* ((group (message-fetch-field "newsgroups"))
6390 (if group
6391 (gnus-group-decoded-name group)
6404 the list of newsgroups is was posted to."
6405 (let* ((group (message-fetch-field "newsgroups"))
6407 (if group
6408 (gnus-group-decoded-name group)
6429 (message-narrow-to-head-1)
6445 ;; func to the next one.
6459 Optional NEWS will use news to forward instead of mail.
6460 Optional DIGEST will use digest to forward."
6484 (mime-to-mml)
6494 (narrow-to-region b e)
6496 (narrow-to-region (point)
6504 (narrow-to-region (point) (point))
6524 (mime-to-mml)
6530 (narrow-to-region (point) (point))
6541 (narrow-to-region b e)
6543 (narrow-to-region (point)
6563 (narrow-to-region b e)
6565 (narrow-to-region (point)
6611 "Let RMAIL use message to forward."
6619 "Resend the current article to ADDRESS."
6621 (list (message-read-from-minibuffer "Resend message to: ")))
6622 (message "Resending message to %s..." address)
6635 (message-narrow-to-headers)
6638 ;; Rename them all to "Resent-*".
6647 ;; Insert the message to be resent.
6653 (narrow-to-region beg (point))
6671 (message "Resending message to %s...done" address)))
6677 contains some mail you have written which has been bounced back to
6682 (message-pop-to-buffer (message-buffer-name "bounce"))
6686 ;; This is a non-MIME bounce, so we try to remove things
6709 (message-narrow-to-head-1)
6720 (defun message-mail-other-window (&optional to subject)
6729 (message-pop-to-buffer (message-buffer-name "mail" to))))
6731 (message-setup `((To . ,(or to "")) (Subject . ,(or subject "")))
6732 nil nil nil 'switch-to-buffer-other-window)))
6735 (defun message-mail-other-frame (&optional to subject)
6744 (message-pop-to-buffer (message-buffer-name "mail" to))))
6746 (message-setup `((To . ,(or to "")) (Subject . ,(or subject "")))
6747 nil nil nil 'switch-to-buffer-other-frame)))
6751 "Start editing a news article to be sent."
6758 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)))
6765 "Start editing a news article to be sent."
6772 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)))
6779 ;; This code should be moved to underline.el (from which it is stolen).
6786 which specify the range to operate on."
6801 which specify the range to operate on."
6846 It can be either a list or a symbol refering to a list. See
6860 :group 'message)
6874 (mml-attach-file "attach" mml-mode-map)
6879 (message-insert-disposition-notification-to "receipt" nil :visible nil)
6889 :group 'message)
6896 (mml-attach-file "attach" mml-mode-map)
6901 (message-insert-disposition-notification-to "gnus/receipt"))
6909 :group 'message)
6912 '(new-file open-file dired kill-buffer write-file
6922 :group 'message)
6951 :group 'message
6955 (list (cons message-newgroups-header-regexp 'message-expand-group)
6963 :group 'message
6967 "*Function to execute when `message-tab' (TAB) is executed in the body.
6970 :group 'message
6976 "Complete names according to `message-completion-alist'.
7001 (defun message-expand-group ()
7002 "Expand the group name under point."
7005 (narrow-to-region
7024 (message "Only matching group"))
7034 (pop-to-buffer "*Completions*")
7060 (with-output-to-temp-buffer " *MESSAGE information message*"
7080 Then clone the local variables and values from the old buffer to the
7090 "Clone the local variables from BUFFER to the current buffer."
7121 (narrow-to-region (point) (point-max))
7133 (message-narrow-to-headers-or-head)
7143 (message-narrow-to-headers-or-head)
7170 "Set From field of the outgoing message to the first matching
7206 (message-narrow-to-headers-or-head)
7212 (let ((to (message-fetch-field "to"))
7216 (or to "")
7217 (if (and to cc) ", ")
7219 (if (and (or to cc) bcc) ", ")
7232 (message-narrow-to-headers)