335 |
:link '(custom-manual "(message)Message Headers") |
:link '(custom-manual "(message)Message Headers") |
336 |
:type 'regexp) |
:type 'regexp) |
337 |
|
|
|
;; Fixme: Why are all these things autoloaded? |
|
|
|
|
338 |
;;; marking inserted text |
;;; marking inserted text |
339 |
|
|
|
;;;###autoload |
|
340 |
(defcustom message-mark-insert-begin |
(defcustom message-mark-insert-begin |
341 |
"--8<---------------cut here---------------start------------->8---\n" |
"--8<---------------cut here---------------start------------->8---\n" |
342 |
"How to mark the beginning of some inserted text." |
"How to mark the beginning of some inserted text." |
345 |
:link '(custom-manual "(message)Insertion Variables") |
:link '(custom-manual "(message)Insertion Variables") |
346 |
:group 'message-various) |
:group 'message-various) |
347 |
|
|
|
;;;###autoload |
|
348 |
(defcustom message-mark-insert-end |
(defcustom message-mark-insert-end |
349 |
"--8<---------------cut here---------------end--------------->8---\n" |
"--8<---------------cut here---------------end--------------->8---\n" |
350 |
"How to mark the end of some inserted text." |
"How to mark the end of some inserted text." |
353 |
:link '(custom-manual "(message)Insertion Variables") |
:link '(custom-manual "(message)Insertion Variables") |
354 |
:group 'message-various) |
:group 'message-various) |
355 |
|
|
356 |
;;;###autoload |
(defcustom message-archive-header "X-No-Archive: Yes\n" |
|
(defcustom message-archive-header |
|
|
"X-No-Archive: Yes\n" |
|
357 |
"Header to insert when you don't want your article to be archived. |
"Header to insert when you don't want your article to be archived. |
358 |
Archives \(such as groups.google.com\) respect this header." |
Archives \(such as groups.google.com\) respect this header." |
359 |
:version "22.1" |
:version "22.1" |
361 |
:link '(custom-manual "(message)Header Commands") |
:link '(custom-manual "(message)Header Commands") |
362 |
:group 'message-various) |
:group 'message-various) |
363 |
|
|
|
;;;###autoload |
|
364 |
(defcustom message-archive-note |
(defcustom message-archive-note |
365 |
"X-No-Archive: Yes - save http://groups.google.com/" |
"X-No-Archive: Yes - save http://groups.google.com/" |
366 |
"Note to insert why you wouldn't want this posting archived. |
"Note to insert why you wouldn't want this posting archived. |
378 |
"Old target for cross-posts or follow-ups.") |
"Old target for cross-posts or follow-ups.") |
379 |
(make-variable-buffer-local 'message-cross-post-old-target) |
(make-variable-buffer-local 'message-cross-post-old-target) |
380 |
|
|
|
;;;###autoload |
|
381 |
(defcustom message-cross-post-default t |
(defcustom message-cross-post-default t |
382 |
"When non-nil `message-cross-post-followup-to' will perform a crosspost. |
"When non-nil `message-cross-post-followup-to' will perform a crosspost. |
383 |
If nil, `message-cross-post-followup-to' will only do a followup. Note that |
If nil, `message-cross-post-followup-to' will only do a followup. Note that |
387 |
:type 'boolean |
:type 'boolean |
388 |
:group 'message-various) |
:group 'message-various) |
389 |
|
|
390 |
;;;###autoload |
(defcustom message-cross-post-note "Crosspost & Followup-To: " |
|
(defcustom message-cross-post-note |
|
|
"Crosspost & Followup-To: " |
|
391 |
"Note to insert before signature to notify of cross-post and follow-up." |
"Note to insert before signature to notify of cross-post and follow-up." |
392 |
:version "22.1" |
:version "22.1" |
393 |
:type 'string |
:type 'string |
394 |
:group 'message-various) |
:group 'message-various) |
395 |
|
|
396 |
;;;###autoload |
(defcustom message-followup-to-note "Followup-To: " |
|
(defcustom message-followup-to-note |
|
|
"Followup-To: " |
|
397 |
"Note to insert before signature to notify of follow-up only." |
"Note to insert before signature to notify of follow-up only." |
398 |
:version "22.1" |
:version "22.1" |
399 |
:type 'string |
:type 'string |
400 |
:group 'message-various) |
:group 'message-various) |
401 |
|
|
402 |
;;;###autoload |
(defcustom message-cross-post-note-function 'message-cross-post-insert-note |
|
(defcustom message-cross-post-note-function |
|
|
'message-cross-post-insert-note |
|
403 |
"Function to use to insert note about Crosspost or Followup-To. |
"Function to use to insert note about Crosspost or Followup-To. |
404 |
The function will be called with four arguments. The function should not only |
The function will be called with four arguments. The function should not only |
405 |
insert a note, but also ensure old notes are deleted. See the documentation |
insert a note, but also ensure old notes are deleted. See the documentation |
1752 |
;;; Start of functions adopted from `message-utils.el'. |
;;; Start of functions adopted from `message-utils.el'. |
1753 |
|
|
1754 |
(defun message-strip-subject-trailing-was (subject) |
(defun message-strip-subject-trailing-was (subject) |
1755 |
"Remove trailing \"(Was: <old subject>)\" from SUBJECT lines. |
"Remove trailing \"(was: <old subject>)\" from SUBJECT lines. |
1756 |
Leading \"Re: \" is not stripped by this function. Use the function |
Leading \"Re: \" is not stripped by this function. Use the function |
1757 |
`message-strip-subject-re' for this." |
`message-strip-subject-re' for this." |
1758 |
(let* ((query message-subject-trailing-was-query) |
(let* ((query message-subject-trailing-was-query) |