[Emacs-diffs] Changes to emacs/lisp/gnus/message.el

[Juanma Barranquero]

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