[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el |
Date: |
Tue, 04 Feb 2003 08:06:40 -0500 |
Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.53 emacs/lisp/gnus/message.el:1.54
*** emacs/lisp/gnus/message.el:1.53 Fri Jan 3 17:48:19 2003
--- emacs/lisp/gnus/message.el Tue Feb 4 08:06:38 2003
***************
*** 3635,3641 ****
(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)
--- 3635,3641 ----
(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)
***************
*** 4164,4170 ****
Source is the sender, and if the original message was news, Source is
the list of newsgroups is was posted to."
(concat "["
! (let ((prefix
(or (message-fetch-field "newsgroups")
(message-fetch-field "from")
"(nowhere)")))
--- 4164,4170 ----
Source is the sender, and if the original message was news, Source is
the list of newsgroups is was posted to."
(concat "["
! (let ((prefix
(or (message-fetch-field "newsgroups")
(message-fetch-field "from")
"(nowhere)")))
***************
*** 4305,4311 ****
"Let RMAIL uses message to forward."
(interactive)
(setq rmail-enable-mime-composing t)
! (setq rmail-insert-mime-forwarded-message-function
'message-forward-rmail-make-body))
;;;###autoload
--- 4305,4311 ----
"Let RMAIL uses message to forward."
(interactive)
(setq rmail-enable-mime-composing t)
! (setq rmail-insert-mime-forwarded-message-function
'message-forward-rmail-make-body))
;;;###autoload
***************
*** 4498,4504 ****
(eval-when-compile (defvar tool-bar-map))
(if (featurep 'xemacs)
(require 'messagexmas)
! (when (and
(condition-case nil (require 'tool-bar) (error nil))
(fboundp 'tool-bar-add-item-from-menu)
tool-bar-mode)
--- 4498,4504 ----
(eval-when-compile (defvar tool-bar-map))
(if (featurep 'xemacs)
(require 'messagexmas)
! (when (and
(condition-case nil (require 'tool-bar) (error nil))
(fboundp 'tool-bar-add-item-from-menu)
tool-bar-mode)
***************
*** 4508,4514 ****
(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
--- 4508,4514 ----
(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