[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el |
Date: |
Fri, 04 Apr 2003 01:22:12 -0500 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el,
Miles Bader <=