879 |
(unbold-region b e) |
(unbold-region b e) |
880 |
(ununderline-region b e)))) |
(ununderline-region b e)))) |
881 |
"Alist of mail and news faces for facemenu. |
"Alist of mail and news faces for facemenu. |
882 |
The cdr of ech entry is a function for applying the face to a region.") |
The cdr of each entry is a function for applying the face to a region.") |
883 |
|
|
884 |
(defcustom message-send-hook nil |
(defcustom message-send-hook nil |
885 |
"Hook run before sending messages." |
"Hook run before sending messages." |
1414 |
(define-key message-mode-map "\C-c\C-v" 'message-delete-not-region) |
(define-key message-mode-map "\C-c\C-v" 'message-delete-not-region) |
1415 |
(define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature) |
(define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature) |
1416 |
(define-key message-mode-map "\M-\r" 'message-newline-and-reformat) |
(define-key message-mode-map "\M-\r" 'message-newline-and-reformat) |
1417 |
|
(define-key message-mode-map [remap split-line] 'message-split-line) |
1418 |
|
|
1419 |
(define-key message-mode-map "\C-c\C-a" 'mml-attach-file) |
(define-key message-mode-map "\C-c\C-a" 'mml-attach-file) |
1420 |
|
|
1779 |
(goto-char point) |
(goto-char point) |
1780 |
(forward-line 1))) |
(forward-line 1))) |
1781 |
|
|
1782 |
|
(defun message-split-line () |
1783 |
|
"Split current line, moving portion beyond point vertically down. |
1784 |
|
If the current line has `message-yank-prefix', insert it on the new line." |
1785 |
|
(interactive "*") |
1786 |
|
(split-line message-yank-prefix)) |
1787 |
|
|
1788 |
(defun message-insert-signature (&optional force) |
(defun message-insert-signature (&optional force) |
1789 |
"Insert a signature. See documentation for variable `message-signature'." |
"Insert a signature. See documentation for variable `message-signature'." |
1790 |
(interactive (list 0)) |
(interactive (list 0)) |
3635 |
(cdr item))) |
(cdr item))) |
3636 |
headers) |
headers) |
3637 |
nil switch-function yank-action actions))))) |
nil switch-function yank-action actions))))) |
3638 |
|
|
3639 |
(eval-when-compile (defvar mc-modes-alist)) |
(eval-when-compile (defvar mc-modes-alist)) |
3640 |
(defun message-setup-1 (headers &optional replybuffer actions) |
(defun message-setup-1 (headers &optional replybuffer actions) |
3641 |
(when (and (boundp 'mc-modes-alist) |
(when (and (boundp 'mc-modes-alist) |
3706 |
(when message-auto-save-directory |
(when message-auto-save-directory |
3707 |
(unless (file-directory-p |
(unless (file-directory-p |
3708 |
(directory-file-name message-auto-save-directory)) |
(directory-file-name message-auto-save-directory)) |
3709 |
(gnus-make-directory message-auto-save-directory)) |
(make-directory message-auto-save-directory t)) |
3710 |
(if (gnus-alive-p) |
(if (gnus-alive-p) |
3711 |
(setq message-draft-article |
(setq message-draft-article |
3712 |
(nndraft-request-associate-buffer "drafts")) |
(nndraft-request-associate-buffer "drafts")) |
4164 |
Source is the sender, and if the original message was news, Source is |
Source is the sender, and if the original message was news, Source is |
4165 |
the list of newsgroups is was posted to." |
the list of newsgroups is was posted to." |
4166 |
(concat "[" |
(concat "[" |
4167 |
(let ((prefix |
(let ((prefix |
4168 |
(or (message-fetch-field "newsgroups") |
(or (message-fetch-field "newsgroups") |
4169 |
(message-fetch-field "from") |
(message-fetch-field "from") |
4170 |
"(nowhere)"))) |
"(nowhere)"))) |
4250 |
(not message-forward-decoded-p)) |
(not message-forward-decoded-p)) |
4251 |
(insert |
(insert |
4252 |
(with-temp-buffer |
(with-temp-buffer |
4253 |
(mm-disable-multibyte-mule4) ;; Must copy buffer in unibyte mode |
(mm-disable-multibyte) ;; Must copy buffer in unibyte mode |
4254 |
(insert |
(insert |
4255 |
(with-current-buffer forward-buffer |
(with-current-buffer forward-buffer |
4256 |
(mm-string-as-unibyte (buffer-string)))) |
(mm-string-as-unibyte (buffer-string)))) |
4257 |
(mm-enable-multibyte-mule4) |
(mm-enable-multibyte) |
4258 |
(mime-to-mml) |
(mime-to-mml) |
4259 |
(goto-char (point-min)) |
(goto-char (point-min)) |
4260 |
(when (looking-at "From ") |
(when (looking-at "From ") |
4305 |
"Let RMAIL uses message to forward." |
"Let RMAIL uses message to forward." |
4306 |
(interactive) |
(interactive) |
4307 |
(setq rmail-enable-mime-composing t) |
(setq rmail-enable-mime-composing t) |
4308 |
(setq rmail-insert-mime-forwarded-message-function |
(setq rmail-insert-mime-forwarded-message-function |
4309 |
'message-forward-rmail-make-body)) |
'message-forward-rmail-make-body)) |
4310 |
|
|
4311 |
;;;###autoload |
;;;###autoload |
4498 |
(eval-when-compile (defvar tool-bar-map)) |
(eval-when-compile (defvar tool-bar-map)) |
4499 |
(if (featurep 'xemacs) |
(if (featurep 'xemacs) |
4500 |
(require 'messagexmas) |
(require 'messagexmas) |
4501 |
(when (and |
(when (and |
4502 |
(condition-case nil (require 'tool-bar) (error nil)) |
(condition-case nil (require 'tool-bar) (error nil)) |
4503 |
(fboundp 'tool-bar-add-item-from-menu) |
(fboundp 'tool-bar-add-item-from-menu) |
4504 |
tool-bar-mode) |
tool-bar-mode) |
4508 |
(dolist (key '(print-buffer kill-buffer save-buffer write-file |
(dolist (key '(print-buffer kill-buffer save-buffer write-file |
4509 |
dired open-file)) |
dired open-file)) |
4510 |
(define-key tool-bar-map (vector key) nil)) |
(define-key tool-bar-map (vector key) nil)) |
4511 |
|
|
4512 |
(tool-bar-add-item-from-menu |
(tool-bar-add-item-from-menu |
4513 |
'message-send-and-exit "mail_send" message-mode-map) |
'message-send-and-exit "mail_send" message-mode-map) |
4514 |
(tool-bar-add-item-from-menu |
(tool-bar-add-item-from-menu |