(cdr item)))
headers)
nil switch-function yank-action actions)))))
-
+
(eval-when-compile (defvar mc-modes-alist))
(defun message-setup-1 (headers &optional replybuffer actions)
(when (and (boundp 'mc-modes-alist)
Source is the sender, and if the original message was news, Source is
the list of newsgroups is was posted to."
(concat "["
- (let ((prefix
+ (let ((prefix
(or (message-fetch-field "newsgroups")
(message-fetch-field "from")
"(nowhere)")))
"Let RMAIL uses message to forward."
(interactive)
(setq rmail-enable-mime-composing t)
- (setq rmail-insert-mime-forwarded-message-function
+ (setq rmail-insert-mime-forwarded-message-function
'message-forward-rmail-make-body))
;;;###autoload
(eval-when-compile (defvar tool-bar-map))
(if (featurep 'xemacs)
(require 'messagexmas)
- (when (and
+ (when (and
(condition-case nil (require 'tool-bar) (error nil))
(fboundp 'tool-bar-add-item-from-menu)
tool-bar-mode)
(dolist (key '(print-buffer kill-buffer save-buffer write-file
dired open-file))
(define-key tool-bar-map (vector key) nil))
-
+
(tool-bar-add-item-from-menu
'message-send-and-exit "mail_send" message-mode-map)
(tool-bar-add-item-from-menu