: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'.
:group 'message-mail)
(defcustom message-send-news-function 'message-send-news
- "*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
:type 'boolean)
(defcustom message-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.
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 nil
- "*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
-buffer."
+ "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)
(autoload 'gnus-output-to-rmail "gnus-util")
(autoload 'mail-abbrev-in-expansion-header-p "mailabbrev")
(autoload 'nndraft-request-associate-buffer "nndraft")
- (autoload 'nndraft-request-expire-articles "nndraft"))
+ (autoload 'nndraft-request-expire-articles "nndraft")
+ (autoload 'gnus-open-server "gnus-int")
+ (autoload 'gnus-request-post "gnus-int")
+ (autoload 'rmail-output "rmail"))
\f
(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 ((alist message-send-method-alist)
(success t)
(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
(concat "^" (regexp-quote mail-header-separator) "\n"))
(replace-match "\n")
(backward-char 1))
- (gnus-run-hooks 'message-send-news-hook)
+ (run-hooks 'message-send-news-hook)
;;(require (car method))
;;(funcall (intern (format "%s-open-server" (car method)))
;;(cadr method) (cddr method))
(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))
(goto-char (point-max)))
(insert mail-header-separator)
;; Rename all old ("Also-")Resent headers.
- (while (re-search-backward "^\\(Also-\\)?Resent-" beg t)
+ (while (re-search-backward "^\\(Also-\\)*Resent-" beg t)
(beginning-of-line)
(insert "Also-"))
;; Quote any "From " lines at the beginning.