Mercurial > hg > xemacs-beta
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." |