/[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.16 by zsh, Sat Feb 16 19:54:44 2002 UTC revision 1.16.4.1 by miles, Fri Apr 4 06:20:20 2003 UTC
# Line 538  header line with the old Message-ID." Line 538  header line with the old Message-ID."
538            (gnus-inews-yank-articles yank))))))            (gnus-inews-yank-articles yank))))))
539    
540  (defun gnus-msg-treat-broken-reply-to ()  (defun gnus-msg-treat-broken-reply-to ()
541    "Remove the Reply-to header iff broken-reply-to."    "Remove the Reply-to header if broken-reply-to."
542    (when (gnus-group-find-parameter    (when (gnus-group-find-parameter
543           gnus-newsgroup-name 'broken-reply-to)           gnus-newsgroup-name 'broken-reply-to)
544      (save-restriction      (save-restriction
# 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.16  
changed lines
  Added in v.1.16.4.1

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