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

[Juanma Barranquero]

Index: emacs/lisp/gnus/gnus-msg.el
diff -c emacs/lisp/gnus/gnus-msg.el:1.17 emacs/lisp/gnus/gnus-msg.el:1.18
*** emacs/lisp/gnus/gnus-msg.el:1.17    Fri Nov 29 10:57:51 2002
--- emacs/lisp/gnus/gnus-msg.el Tue Feb  4 08:06:38 2003
***************
*** 697,703 ****
    (gnus-summary-reply-with-original n t))
  
  (defun gnus-summary-mail-forward (&optional arg post)
!   "Forward the current message to another user.  
  If ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml';
  if ARG is 1, decode the message and forward directly inline;
  if ARG is 2, forward message as an rfc822 MIME section;
--- 697,703 ----
    (gnus-summary-reply-with-original n t))
  
  (defun gnus-summary-mail-forward (&optional arg post)
!   "Forward the current message to another user.
  If ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml';
  if ARG is 1, decode the message and forward directly inline;
  if ARG is 2, forward message as an rfc822 MIME section;
***************
*** 708,714 ****
    (interactive "P")
    (let ((message-forward-as-mime message-forward-as-mime)
        (message-forward-show-mml message-forward-show-mml))
!     (cond 
       ((null arg))
       ((eq arg 1) (setq message-forward-as-mime nil
                       message-forward-show-mml t))
--- 708,714 ----
    (interactive "P")
    (let ((message-forward-as-mime message-forward-as-mime)
        (message-forward-show-mml message-forward-show-mml))
!     (cond
       ((null arg))
       ((eq arg 1) (setq message-forward-as-mime nil
                       message-forward-show-mml t))