comparison lisp/gnus/gnus-msg.el @ 136:b980b6286996 r20-2b2

Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 9b50b4588a93
children 1856695b1fa9
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
689 (message-goto-body) 689 (message-goto-body)
690 (insert (format gnus-crosspost-complaint newsgroups group)) 690 (insert (format gnus-crosspost-complaint newsgroups group))
691 (message-goto-subject) 691 (message-goto-subject)
692 (re-search-forward " *$") 692 (re-search-forward " *$")
693 (replace-match " (crosspost notification)" t t) 693 (replace-match " (crosspost notification)" t t)
694 (deactivate-mark)
694 (when (gnus-y-or-n-p "Send this complaint? ") 695 (when (gnus-y-or-n-p "Send this complaint? ")
695 (message-send-and-exit))))))) 696 (message-send-and-exit)))))))
696 697
697 (defun gnus-summary-mail-other-window () 698 (defun gnus-summary-mail-other-window ()
698 "Compose mail in other window." 699 "Compose mail in other window."