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) |
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)"))) |
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 |