/[emacs]/emacs/lisp/gnus/gnus-msg.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-msg.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by zsh, Fri Nov 29 15:57:51 2002 UTC revision 1.18 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 697  The original article will be yanked." Line 697  The original article will be yanked."
697    (gnus-summary-reply-with-original n t))    (gnus-summary-reply-with-original n t))
698    
699  (defun gnus-summary-mail-forward (&optional arg post)  (defun gnus-summary-mail-forward (&optional arg post)
700    "Forward the current message to another user.      "Forward the current message to another user.
701  If ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml';  If ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml';
702  if ARG is 1, decode the message and forward directly inline;  if ARG is 1, decode the message and forward directly inline;
703  if ARG is 2, forward message as an rfc822 MIME section;  if ARG is 2, forward message as an rfc822 MIME section;
# Line 708  If POST, post instead of mail." Line 708  If POST, post instead of mail."
708    (interactive "P")    (interactive "P")
709    (let ((message-forward-as-mime message-forward-as-mime)    (let ((message-forward-as-mime message-forward-as-mime)
710          (message-forward-show-mml message-forward-show-mml))          (message-forward-show-mml message-forward-show-mml))
711      (cond      (cond
712       ((null arg))       ((null arg))
713       ((eq arg 1) (setq message-forward-as-mime nil       ((eq arg 1) (setq message-forward-as-mime nil
714                         message-forward-show-mml t))                         message-forward-show-mml t))

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26