mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

* lisp/gnus/gmm-utils.el (gmm-write-region): Drop Emacs 20 compat cruft.

Browse source
This commit is contained in:
Glenn Morris 2010-10-02 19:01:07 -07:00
parent 59e31cfa13
commit 4ec3f7cf35
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/ChangeLog
View file

@ -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>

10
lisp/gnus/gmm-utils.el
View file

@ -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 @@ If mode is nil, use `major-mode' of the current buffer."
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)))