diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1997-09-24 01:50:24 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1997-09-24 01:50:24 +0000 |
| commit | a8151ef7e5caf46b41fc52f8189b07d1fa6c184e (patch) | |
| tree | 8eb82a1990da4afe2e247c1397e42a20128f0568 /lisp/gnus/gnus-msg.el | |
| parent | 5f016f400343a57d641642ce114f90d3a15082e1 (diff) | |
| download | emacs-a8151ef7e5caf46b41fc52f8189b07d1fa6c184e.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index efbb5e0333a..fc94bb2d2a8 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -514,6 +514,7 @@ If SILENT, don't prompt the user." ;; Dummy to avoid byte-compile warning. (defvar nnspool-rejected-article-hook) +(defvar xemacs-codename) ;;; Since the X-Newsreader/X-Mailer are ``vanity'' headers, they might ;;; as well include the Emacs version as well. @@ -539,7 +540,9 @@ If SILENT, don't prompt the user." (substring emacs-version (match-beginning 3) (match-end 3)) - ""))) + "") + (if (boundp 'xemacs-codename) + (concat " - \"" xemacs-codename "\"")))) (t emacs-version)))) ;; Written by "Mr. Per Persson" <pp@gnu.ai.mit.edu>. @@ -693,6 +696,8 @@ The current group name will be inserted at \"%s\".") (message-goto-subject) (re-search-forward " *$") (replace-match " (crosspost notification)" t t) + (when (fboundp 'deactivate-mark) + (deactivate-mark)) (when (gnus-y-or-n-p "Send this complaint? ") (message-send-and-exit))))))) |