Lines Matching +defs:old +defs:syntax
184 (defcustom message-syntax-checks
187 "*Controls what syntax checks should not be performed on outgoing posts.
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.
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."
580 ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
581 (let ((old-table (syntax-table))
583 (set-syntax-table text-mode-syntax-table)
589 (set-syntax-table old-table)
1140 (defvar message-mode-syntax-table
1141 (let ((table (copy-syntax-table text-mode-syntax-table)))
1142 (modify-syntax-entry ?% ". " table)
1143 (modify-syntax-entry ?> ". " table)
1144 (modify-syntax-entry ?< ". " table)
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")))))))))
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))))))))
2541 ;; syntax-table, local-map: I dunno.
2560 (defun message-strip-forbidden-properties (begin end &optional old-length)
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)))
4184 (message-syntax-checks
4186 (listp message-syntax-checks))
4188 message-syntax-checks)
4189 message-syntax-checks))
4194 (if (not (message-check-news-body-syntax))
4206 (listp message-syntax-checks))
4207 (setq message-syntax-checks
4209 message-syntax-checks)))
4212 (message-check-news-syntax)))
4260 ;;; Header generation & syntax checking.
4265 (if (eq message-syntax-checks 'dont-check-for-anything-just-trust-me)
4267 (let ((able (assq type message-syntax-checks)))
4271 (defun message-check-news-syntax ()
4272 "Check the syntax of the message."
4280 (message-check-news-header-syntax))))))
4282 (defun message-check-news-header-syntax ()
4473 ;; Check the Newsgroups & Followup-To headers for syntax errors.
4571 (defun message-check-news-body-syntax ()
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...
6291 (if (let ((message-syntax-checks
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.
7080 Then clone the local variables and values from the old buffer to the