:type 'integer)
(defcustom message-send-rename-function nil
- "*Function called to rename the buffer after sending it."
+ "Function called to rename the buffer after sending it."
:group 'message-buffers
:type 'function)
:group 'message-headers)
(defcustom message-syntax-checks nil
- ;; Guess this one shouldn't be easy to customize...
+ ; Guess this one shouldn't be easy to customize...
"*Controls what syntax checks should not be performed on outgoing posts.
To disable checking of long signatures, for instance, add
`(signature . disabled)' to this list.
:type '(repeat sexp))
(defcustom message-deletable-headers '(Message-ID Date Lines)
- "*Headers to be deleted if they already exist and were generated by message previously."
+ "Headers to be deleted if they already exist and were generated by message previously."
:group 'message-headers
:type 'sexp)
;;;###autoload
(defcustom message-signature-separator "^-- *$"
- "*Regexp matching the signature separator."
+ "Regexp matching the signature separator."
:type 'regexp
:group 'message-various)
:group 'message-various)
(defcustom message-interactive nil
- "*Non-nil means when sending a message wait for and display errors.
+ "Non-nil means when sending a message wait for and display errors.
nil means let mailer mail back a message to report errors."
:group 'message-sending
:group 'message-mail
:type 'regexp)
(defcustom message-cancel-message "I am canceling my own article."
- "*Message to be inserted in the cancel message."
+ "Message to be inserted in the cancel message."
:group 'message-interface
:type 'string)
;; Useful to set in site-init.el
;;;###autoload
(defcustom message-send-mail-function 'message-send-mail-with-sendmail
- "*Function to call to send the current buffer as mail.
+ "Function to call to send the current buffer as mail.
The headers should be delimited by a line whose contents match the
variable `mail-header-separator'.
;; 1997-09-29 by MORIOKA Tomohiko
(defcustom message-send-news-function 'message-send-news-with-gnus
- "*Function to call to send the current buffer as news.
+ "Function to call to send the current buffer as news.
The headers should be delimited by a line whose contents match the
variable `mail-header-separator'."
:group 'message-sending
:type 'function)
(defcustom message-reply-to-function nil
- "*Function that should return a list of headers.
+ "Function that should return a list of headers.
This function should pick out addresses from the To, Cc, and From headers
and respond with new To and Cc headers."
:group 'message-interface
:type 'function)
(defcustom message-wide-reply-to-function nil
- "*Function that should return a list of headers.
+ "Function that should return a list of headers.
This function should pick out addresses from the To, Cc, and From headers
and respond with new To and Cc headers."
:group 'message-interface
:type 'function)
(defcustom message-followup-to-function nil
- "*Function that should return a list of headers.
+ "Function that should return a list of headers.
This function should pick out addresses from the To, Cc, and From headers
and respond with new To and Cc headers."
:group 'message-interface
;; qmail-related stuff
(defcustom message-qmail-inject-program "/var/qmail/bin/qmail-inject"
- "*Location of the qmail-inject program."
+ "Location of the qmail-inject program."
:group 'message-sending
:type 'file)
(defcustom message-qmail-inject-args nil
- "*Arguments passed to qmail-inject programs.
+ "Arguments passed to qmail-inject programs.
This should be a list of strings, one string for each argument.
For e.g., if you wish to set the envelope sender address so that bounces
(defcustom message-setup-hook
'(message-maybe-setup-default-charset turn-on-mime-edit)
- "*Normal hook, run each time a new outgoing message is initialized.
+ "Normal hook, run each time a new outgoing message is initialized.
The function `message-setup' runs this hook."
:group 'message-various
:type 'hook)
(defcustom message-signature-setup-hook nil
- "*Normal hook, run each time a new outgoing message is initialized.
+ "Normal hook, run each time a new outgoing message is initialized.
It is run after the headers have been inserted and before
the signature is inserted."
:group 'message-various
:type 'hook)
(defcustom message-mode-hook nil
- "*Hook run in message mode buffers."
+ "Hook run in message mode buffers."
:group 'message-various
:type 'hook)
(defcustom message-header-hook '(eword-encode-header)
- "*Hook run in a message mode buffer narrowed to the headers."
+ "Hook run in a message mode buffer narrowed to the headers."
:group 'message-various
:type 'hook)
(defcustom message-header-setup-hook nil
- "*Hook called narrowed to the headers when setting up a message
+ "Hook called narrowed to the headers when setting up a message
buffer."
:group 'message-various
:type 'hook)
:type 'function)
(defcustom message-expires 14
- "*Number of days before your article expires."
+ "Number of days before your article expires."
:group 'message-news
:group 'message-headers
:link '(custom-manual "(message)News Headers")
:type 'integer)
(defcustom message-user-path nil
- "*If nil, use the NNTP server name in the Path header.
+ "If nil, use the NNTP server name in the Path header.
If stringp, use this; if non-nil, use no host name (user name only)."
:group 'message-news
:group 'message-headers
The cdr of ech entry is a function for applying the face to a region.")
(defcustom message-send-hook nil
- "*Hook run before sending messages."
+ "Hook run before sending messages."
:group 'message-various
:options '(ispell-message)
:type 'hook)
(defcustom message-send-mail-hook nil
- "*Hook run before sending mail messages."
+ "Hook run before sending mail messages."
:group 'message-various
:type 'hook)
(defcustom message-send-news-hook nil
- "*Hook run before sending news messages."
+ "Hook run before sending news messages."
:group 'message-various
:type 'hook)
(defcustom message-sent-hook nil
- "*Hook run after sending messages."
+ "Hook run after sending messages."
:group 'message-various
:type 'hook)
(unless (string-match "XEmacs" emacs-version)
(set (make-local-variable 'font-lock-defaults)
'(message-font-lock-keywords t)))
- (gnus-run-hooks 'text-mode-hook 'message-mode-hook))
+ (run-hooks 'text-mode-hook 'message-mode-hook))
\f
(let ((inhibit-read-only t))
(put-text-property (point-min) (point-max) 'read-only nil))
(message-fix-before-sending)
- (gnus-run-hooks 'message-send-hook)
+ (run-hooks 'message-send-hook)
(message "Sending...")
(let ((message-encoding-buffer
(message-generate-new-buffer-clone-locals " message encoding"))
(message-do-fcc)
;;(when (fboundp 'mail-hist-put-headers-into-history)
;; (mail-hist-put-headers-into-history))
- (gnus-run-hooks 'message-sent-hook)
+ (run-hooks 'message-sent-hook)
(message "Sending...done")
;; Mark the buffer as unmodified and delete autosave.
(set-buffer-modified-p nil)
(if news nil message-deletable-headers)))
(message-generate-headers message-required-mail-headers))
;; Let the user do all of the above.
- (gnus-run-hooks 'message-header-hook))
+ (run-hooks 'message-header-hook))
(unwind-protect
(save-excursion
(set-buffer tembuf)
(replace-match "\n")
(backward-char 1)
(setq delimline (point-marker))
- (gnus-run-hooks 'message-send-mail-hook)
+ (run-hooks 'message-send-mail-hook)
;; Insert an extra newline if we need it to work around
;; Sun's bug that swallows newlines.
(goto-char (1+ delimline))
(re-search-forward
(concat "^" (regexp-quote mail-header-separator) "\n"))
(replace-match "\n")
- (gnus-run-hooks 'message-send-mail-hook)
+ (run-hooks 'message-send-mail-hook)
;; send the message
(case
(let ((coding-system-for-write 'binary))
(concat "^" (symbol-name (car headers)) ": *") nil t)
(message-delete-line))
(pop headers))))
- (gnus-run-hooks 'message-send-mail-hook)
+ (run-hooks 'message-send-mail-hook)
;; Pass it on to mh.
(mh-send-letter)))
;; Insert some headers.
(message-generate-headers message-required-news-headers)
;; Let the user do all of the above.
- (gnus-run-hooks 'message-header-hook))
+ (run-hooks 'message-header-hook))
(message-cleanup-headers)
(if (not (message-check-news-syntax))
(progn
(while (setq file (message-fetch-field "fcc"))
(push file list)
(message-remove-header "fcc" nil t)))
- (gnus-run-hooks 'message-header-hook 'message-before-do-fcc-hook)
+ (run-hooks 'message-header-hook 'message-before-do-fcc-hook)
(goto-char (point-min))
(re-search-forward (concat "^" (regexp-quote mail-header-separator) "$"))
(replace-match "" t t)
(delq 'Lines
(delq 'Subject
(copy-sequence message-required-mail-headers))))))
- (gnus-run-hooks 'message-signature-setup-hook)
+ (run-hooks 'message-signature-setup-hook)
(message-insert-signature)
(save-restriction
(message-narrow-to-headers)
- (gnus-run-hooks 'message-header-setup-hook))
+ (run-hooks 'message-header-setup-hook))
(set-buffer-modified-p nil)
(setq buffer-undo-list nil)
- (gnus-run-hooks 'message-setup-hook)
+ (run-hooks 'message-setup-hook)
(message-position-point)
(undo-boundary))