Mercurial > emacs
changeset 110715:d424d0c7a36c
* lisp/gnus/gmm-utils.el (gmm-write-region): Drop Emacs 20 compat cruft.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 02 Oct 2010 19:01:07 -0700 |
| parents | 34826102748f |
| children | c560ce068799 |
| files | lisp/gnus/ChangeLog lisp/gnus/gmm-utils.el |
| diffstat | 2 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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 <rgm@gnu.org> + * gmm-utils.el (gmm-write-region): Drop Emacs 20 compat cruft. + * gnus-util.el (gnus-make-local-hook): Simplify. 2010-10-02 Julien Danjou <julien@danjou.info>
--- 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 <reiner.steib@gmx.de> ;; 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)))