Lines Matching +defs:old +defs:mark
276 It's best to delete old Path and Date headers before posting to avoid
297 "*What to do with trailing \"(was: <old subject>)\" in subject lines.
302 old subject. In this case, `message-subject-trailing-was-regexp' is
313 "*Regexp matching \"(was: <old subject>)\" in the subject line.
328 "*Regexp matching \"(was: <old subject>)\" in the subject line.
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."
378 (defvar message-cross-post-old-target nil
380 (make-variable-buffer-local 'message-cross-post-old-target)
406 insert a note, but also ensure old notes are deleted. See the documentation
517 Otherwise, directly inline the old message in the forwarded message."
581 (let ((old-table (syntax-table))
589 (set-syntax-table old-table)
923 citation between (point) and (mark t). And each function should leave
924 point and mark around the citation text as modified."
1664 (defun message-mark-active-p ()
1665 "Non-nil means the mark and region are currently active in this buffer."
1666 mark-active)
1904 "Remove trailing \"(was: <old subject>)\" from SUBJECT lines.
1921 "Strip `(was: <old subject>)' in subject? " t
1923 "Strip `(was: <old subject>)' in subject "
1947 (let ((old-subject
1951 (cond ((not old-subject)
1957 old-subject)) ; yes, it really is a new subject
1959 (setq old-subject
1960 (message-strip-subject-re old-subject))
1966 old-subject ")\n")))))))))
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)))
2024 ;; if we already did a crosspost before, kill old target
2025 (if (and message-cross-post-old-target
2027 (regexp-quote (concat "," message-cross-post-old-target))
2051 (setq message-cross-post-old-target target-group))
2053 (defun message-cross-post-insert-note (target-group cross-post in-old
2054 old-groups)
2059 OLD-GROUPS. OLD-GROUPS lists the old-groups the posting would have
2079 (if (or in-old
2100 (let* ((old-groups (message-fetch-field "Newsgroups"))
2101 (in-old (string-match
2103 (or old-groups ""))))
2104 ;; check whether target exactly matches old Newsgroups
2105 (cond ((not old-groups)
2107 ((or (not in-old)
2112 old-groups)))
2122 in-old old-groups))))))))
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
2560 (defun message-strip-forbidden-properties (begin end &optional old-length)
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).
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)
2907 (setq old-header (mail-fetch-field header-name))
2908 (not (string-match "\\` *\\'" old-header)))
3051 ;; (newline 2) doesn't mark both newline's as hard, so call
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)))
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))
3435 (end (mark t))
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)))))
4809 ;; cannot generate IDs that the old version could.
5203 ;; First we remove any old generated headers.
5324 ;; Rename any old Sender headers to Original-Sender.
5610 "Kill old message buffers."
6226 ;; Use old rules, comparing sender...
6300 This is done simply by taking the old article and adding a Supersedes
6301 header line with the old Message-ID."
6657 ;; Rename all old ("Also-")Resent headers.
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)))
7080 Then clone the local variables and values from the old buffer to the