Mercurial > emacs

comparison lisp/gnus/gmm-utils.el @ 110715:d424d0c7a36c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 93f2c2c37f24
children 417b1e4d63cd
comparison
equal deleted inserted replaced
110714:34826102748f 110715:d424d0c7a36c
1 ;;; gmm-utils.el --- Utility functions for Gnus, Message and MML 1 ;;; gmm-utils.el --- Utility functions for Gnus, Message and MML
2 2
3 ;; Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 3 ;; Copyright (C) 2006, 2007, 2008, 2009, 2010
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: Reiner Steib <reiner.steib@gmx.de> 6 ;; Author: Reiner Steib <reiner.steib@gmx.de>
6 ;; Keywords: news 7 ;; Keywords: news
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
409 lockname mustbenew) 410 lockname mustbenew)
410 "Compatibility function for `write-region'. 411 "Compatibility function for `write-region'.
411 412
412 In XEmacs, the seventh argument of `write-region' specifies the 413 In XEmacs, the seventh argument of `write-region' specifies the
413 coding-system." 414 coding-system."
414 (if (and mustbenew 415 (if (and mustbenew (featurep 'xemacs))
415 (or (featurep 'xemacs)
416 (= emacs-major-version 20)))
417 (if (file-exists-p filename) 416 (if (file-exists-p filename)
418 (signal 'file-already-exists 417 (signal 'file-already-exists (list "File exists" filename))
419 (list "File exists" filename))
420 (write-region start end filename append visit lockname)) 418 (write-region start end filename append visit lockname))
421 (write-region start end filename append visit lockname mustbenew))) 419 (write-region start end filename append visit lockname mustbenew)))
422 420
423 (provide 'gmm-utils) 421 (provide 'gmm-utils)
424 422