diff options
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))))))) |