lisp/gnus/message.el

341 (defcustom message-mark-insert-begin
343   "How to mark the beginning of some inserted text."
349 (defcustom message-mark-insert-end
351   "How to mark the end of some inserted text."
415 (defcustom message-signature-separator "^-- *$"
416   "Regexp matching the signature separator."
612 variable `mail-header-separator'.
633 variable `mail-header-separator'."
923 citation between (point) and (mark t).  And each function should leave
924 point and mark around the citation text as modified."
950   "*If non-nil, insert an empty line before the signature separator."
1246 (defface message-separator
1255   "Face used for displaying the separator."
1258 (put 'message-separator-face 'face-alias 'message-separator)
1296 		     (concat "^" (regexp-quote mail-header-separator) "$")
1332       ,@(if (and mail-header-separator
1333 		 (not (equal mail-header-separator "")))
1334 	    `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$")
1335 	       1 'message-separator))
1567 (defvar message-unsent-separator
1576   "A regexp that matches the separator before the text of a failed message.")
1664 (defun message-mark-active-p ()
1665   "Non-nil means the mark and region are currently active in this buffer."
1666   mark-active)
1677 (defun message-tokenize-header (header &optional separator)
1683     (let ((regexp (format "[%s]+" (or separator ",")))
1968 (defun message-mark-inserted-region (beg end)
1970 See `message-mark-insert-begin' and `message-mark-insert-end'."
1975     (insert message-mark-insert-end)
1977     (insert message-mark-insert-begin)))
1979 (defun message-mark-insert-file (file)
1981 See `message-mark-insert-begin' and `message-mark-insert-end'."
1985     (insert message-mark-insert-end)
1989     (insert message-mark-insert-begin)))
2003 	  (re-search-backward message-signature-separator))
2064 	       (concat "^" mail-header-separator)
2078 	(re-search-backward message-signature-separator))
2204 	(concat "^" (regexp-quote mail-header-separator) "\n") nil t)
2230 				  (regexp-quote mail-header-separator)
2359   ;; mark inserted text
2360   (define-key message-mode-map "\C-c\M-m" 'message-mark-inserted-region)
2361   (define-key message-mode-map "\C-c\M-f" 'message-mark-insert-file)
2410     ["Caesar (rot13) Region" message-caesar-region (message-mark-active-p)]
2412      :active (message-mark-active-p)
2416      :active (message-mark-active-p)
2426     ["Insert Region Marked" message-mark-inserted-region
2427      :active (message-mark-active-p)
2430     ["Insert File Marked..." message-mark-insert-file
2602 C-c C-e  `message-elide-region' (elide the text between point and mark).
2609 C-c M-m  `message-mark-inserted-region' (mark region with enclosing tags).
2610 C-c M-f  `message-mark-insert-file' (insert file marked with enclosing tags).
2686 	   (regexp-quote mail-header-separator) "$\\|"
2795   (or (search-forward (concat "\n" mail-header-separator "\n") nil t)
2815   (if (re-search-forward message-signature-separator nil t)
3051 	;; (newline 2) doesn't mark both newline's as hard, so call
3083 	    (concat "^" (regexp-quote mail-header-separator) "\n")
3100 	      (not (re-search-backward message-signature-separator nil t))))
3131   "Insert header to mark message as important."
3141   "Insert header to mark message as unimportant."
3200     (min (point) (or (mark t) (point)))
3201     (max (point) (or (mark t) (point)))
3262 			(search-forward mail-header-separator nil 'end))
3283     (search-forward (concat "\n" mail-header-separator "\n") nil t)
3325 	(indent-rigidly start (mark t) message-indentation-spaces)
3328 	(while (< (point) (mark t))
3337 Puts point before the text and mark after.
3350       (push-mark (save-excursion
3357 	(unless (eq (char-before (mark t)) ?\n)
3359 	    (goto-char (mark t))
3386 	 (end (mark t))
3410     (when (re-search-backward message-signature-separator start t)
3435 	   (end (mark t))
3478 	  (concat "^" (regexp-quote mail-header-separator) "$"))
3500   "Remove the signature from the text between point and mark.
3504 	  mark)
3505       (if (not (re-search-forward message-signature-separator (mark t) t))
3513 	(setq mark (set-marker (make-marker) (point)))
3518 	(delete-region mark (mark t))
3519 	(set-marker mark nil)))))
3798    (concat "^" (regexp-quote mail-header-separator) "\n"))
3847 	    (let ((mail-header-separator ""))
4001 	     (concat "^" (regexp-quote mail-header-separator) "\n"))
4069    (concat "^" (regexp-quote mail-header-separator) "\n"))
4243 		 (concat "^" (regexp-quote mail-header-separator) "\n"))
4249 	      (setq result (let ((mail-header-separator ""))
4577       (concat "^" (regexp-quote mail-header-separator) "$"))
4594       (concat "^" (regexp-quote mail-header-separator) "$"))
4598        (re-search-backward message-signature-separator nil t)
4652 	    (concat "^" (regexp-quote mail-header-separator) "$"))
4664        (concat "^" (regexp-quote mail-header-separator) "$"))
4699 	       (concat "^" (regexp-quote mail-header-separator) "$")
5738      (insert mail-header-separator "\n")
6286 		mail-header-separator "\n"
6320     (insert mail-header-separator)
6656       (insert mail-header-separator)
6694       (if (or (re-search-forward message-unsent-separator nil t)
6712       (insert mail-header-separator))
6811 (defun message-exchange-point-and-mark ()
6812   "Exchange point and mark, but don't activate region if it was inactive."
6814 	      (message-mark-active-p)
6815 	    (exchange-point-and-mark))
6816     (setq mark-active nil)))
6870     (gmm-ignore "separator")
6912   '(new-file open-file dired kill-buffer write-file