*** empty log message ***

[gnus] / lisp / gnus-msg.el

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 53d7622..d570eb5 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -691,7 +691,8 @@ The current group name will be inserted at \"%s\".")
          (message-goto-subject)
          (re-search-forward " *$")
          (replace-match " (crosspost notification)" t t)
-         (deactivate-mark)
+         (when (fboundp 'deactivate-mark)
+           (deactivate-mark))
          (when (gnus-y-or-n-p "Send this complaint? ")
            (message-send-and-exit)))))))