[Emacs-diffs] /srv/bzr/emacs/trunk r101743: * lisp/gnus/gmm-utils.el (gmm-write-region): Drop Emacs 20 compat cruft.

[Glenn Morris]

------------------------------------------------------------
revno: 101743
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2010-10-02 19:01:07 -0700
message:
  * lisp/gnus/gmm-utils.el (gmm-write-region): Drop Emacs 20 compat cruft.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gmm-utils.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-03 01:53:04 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-03 02:01:07 +0000
@@ -1,5 +1,7 @@
 2010-10-03  Glenn Morris  <address@hidden>
 
+       * gmm-utils.el (gmm-write-region): Drop Emacs 20 compat cruft.
+
        * gnus-util.el (gnus-make-local-hook): Simplify.
 
 2010-10-02  Julien Danjou  <address@hidden>

=== modified file 'lisp/gnus/gmm-utils.el'
--- a/lisp/gnus/gmm-utils.el    2010-09-24 07:25:37 +0000
+++ b/lisp/gnus/gmm-utils.el    2010-10-03 02:01:07 +0000
@@ -1,6 +1,7 @@
 ;;; gmm-utils.el --- Utility functions for Gnus, Message and MML
 
-;; Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2006, 2007, 2008, 2009, 2010
+;;   Free Software Foundation, Inc.
 
 ;; Author: Reiner Steib <address@hidden>
 ;; Keywords: news
@@ -411,12 +412,9 @@
 
 In XEmacs, the seventh argument of `write-region' specifies the
 coding-system."
-  (if (and mustbenew
-          (or (featurep 'xemacs)
-              (= emacs-major-version 20)))
+  (if (and mustbenew (featurep 'xemacs))
       (if (file-exists-p filename)
-         (signal 'file-already-exists
-                 (list "File exists" filename))
+         (signal 'file-already-exists (list "File exists" filename))
        (write-region start end filename append visit lockname))
     (write-region start end filename append visit lockname mustbenew)))