Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents b980b6286996
children 6b37e6ddd302
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
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 (fboundp 'deactivate-mark)
695 (deactivate-mark))
695 (when (gnus-y-or-n-p "Send this complaint? ") 696 (when (gnus-y-or-n-p "Send this complaint? ")
696 (message-send-and-exit))))))) 697 (message-send-and-exit)))))))
697 698
698 (defun gnus-summary-mail-other-window () 699 (defun gnus-summary-mail-other-window ()
699 "Compose mail in other window." 700 "Compose mail in other window."