lisp/gnus/message.el

63 (put 'user-mail-address 'custom-type 'string)
64 (put 'user-full-name 'custom-type 'string)
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',
339 ;;; marking inserted text
343   "How to mark the beginning of some inserted text."
351   "How to mark the end of some inserted text."
368 If nil, don't insert any text in the body."
422   "*The string which is inserted for elided text."
538   "*Non-nil means put forwarded message before signature, else after."
583       (set-syntax-table text-mode-syntax-table)
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.
998 (define-widget 'message-header-lines 'text
1119 `quoted-text-only'  Allow you to post quoted text only;
1141   (let ((table (copy-syntax-table text-mode-syntax-table)))
1160 (put 'message-header-to-face 'face-alias 'message-header-to)
1174 (put 'message-header-cc-face 'face-alias 'message-header-cc)
1188 (put 'message-header-subject-face 'face-alias 'message-header-subject)
1202 (put 'message-header-newsgroups-face 'face-alias 'message-header-newsgroups)
1216 (put 'message-header-other-face 'face-alias 'message-header-other)
1230 (put 'message-header-name-face 'face-alias 'message-header-name)
1244 (put 'message-header-xheader-face 'face-alias 'message-header-xheader)
1258 (put 'message-separator-face 'face-alias 'message-separator)
1260 (defface message-cited-text
1269   "Face used for displaying cited text names."
1272 (put 'message-cited-text-face 'face-alias 'message-cited-text)
1286 (put 'message-mml-face 'face-alias 'message-mml)
1342        (0 'message-cited-text))
1350 (put 'message-mode 'font-lock-defaults '(message-font-lock-keywords t))
1524      ;; Many things can happen to an RFC 822 mailbox before it is put into
1575 	  "^|? *---+ +Message text follows: +---+ *|?$")
1576   "A regexp that matches the separator before the text of a failed message.")
1655 (defmacro message-y-or-n-p (question show &rest text)
1657   `(message-talkative-question 'y-or-n-p ,question ,show ,@text))
1732       (set-text-properties 0 (length value) nil value)
1780 (put 'message-with-reply-buffer 'lisp-indent-function 0)
1781 (put 'message-with-reply-buffer 'edebug-form-spec '(body))
1994 prefix argument, ask for a text to insert.  If you don't want the note in the
2274   "Sort the buffer as headers using `message-rank' text props."
2284      (or (get-text-property (point) 'message-rank)
2296 	  (put-text-property
2331   (set-keymap-parent message-mode-map text-mode-map)
2359   ;; mark inserted text
2414 	 '(:help "Replace text in region with an ellipsis"))]
2418 	 '(:help "Delete all quoted text outside region"))]
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
2533   ;; property list (rather than a list of property symbols), to be
2534   ;; directly useful for `remove-text-properties'.
2544 The values of the properties are ignored, only the property names are used.")
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"
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)
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.
2829 Cc: header are also put into the MFT."
2970   "Deletes all text up to the signature."
2981   "Insert four newlines, and then reformat if inside quoted text.
3187   "Elide the text in the region.
3189 text was killed."
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.
3337 Puts point before the text and mark after.
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))
3673 (put 'message-check 'lisp-indent-function 1)
3674 (put 'message-check 'edebug-form-spec '(form body))
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.
3701   ;; It doesn't seem as if this is useful, since the invisible property
3703   (message-check 'invisible-text
3704     (let ((points (message-text-with-property 'invisible)))
3708 	  (put-text-property point (1+ point) 'invisible nil)
3709 	  (message-overlay-put (message-make-overlay point (1+ point))
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
3727 	  (message-overlay-put (message-make-overlay (point) (1+ (point)))
3756 			   (not (get-text-property
3908 	  ;; Avoid copying text props (except hard newlines).
3943 			 (string= "text/plain"
4219 	      ;; Avoid copying text props (except hard newlines).
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? ")
4654 	       (y-or-n-p "Your text should follow quoted text.  Really post? ")
4655 	     (message "Denied posting -- only quoted text.")
5211 	       (get-text-property (1+ (match-beginning 0)) 'message-deletable)
5301 	      ;; Add the deletable property to the headers that require it.
5304 		   (add-text-properties
5735   (put-text-property
6012 Useful functions to put in this list include:
6820 (defalias 'message-overlay-put 'overlay-put)
6968 If nil, the function bound in `text-mode-map' or `global-map' is executed."
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)
7156 	  (insert "Content-Type: text/plain; charset=us-ascii\n"))))))
7239 		(add-text-properties