# HG changeset patch # User Glenn Morris # Date 1286071267 25200 # Node ID d424d0c7a36c54c3ffa66abe6cb053caae53c7d0 # Parent 34826102748fec5f9eb21f88a885a508298aedb1 * lisp/gnus/gmm-utils.el (gmm-write-region): Drop Emacs 20 compat cruft. diff -r 34826102748f -r d424d0c7a36c lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Sat Oct 02 18:56:11 2010 -0700 +++ b/lisp/gnus/ChangeLog Sat Oct 02 19:01:07 2010 -0700 @@ -1,5 +1,7 @@ 2010-10-03 Glenn Morris + * gmm-utils.el (gmm-write-region): Drop Emacs 20 compat cruft. + * gnus-util.el (gnus-make-local-hook): Simplify. 2010-10-02 Julien Danjou diff -r 34826102748f -r d424d0c7a36c lisp/gnus/gmm-utils.el --- a/lisp/gnus/gmm-utils.el Sat Oct 02 18:56:11 2010 -0700 +++ b/lisp/gnus/gmm-utils.el Sat Oct 02 19:01:07 2010 -0700 @@ -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 ;; 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)))