Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/gnus/gnus-msg.el	Mon Aug 13 09:32:45 2007 +0200
+++ b/lisp/gnus/gnus-msg.el	Mon Aug 13 09:33:18 2007 +0200
@@ -691,7 +691,8 @@
 	  (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)))))))