Mercurial > emacs

comparison lisp/mail/blessmail.el @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents 33d53d287ee4
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 ;;; blessmail.el --- decide whether movemail needs special privileges -*- no-byte-compile: t -*- 1 ;;; blessmail.el --- decide whether movemail needs special privileges -*- no-byte-compile: t -*-
2 2
3 ;; Copyright (C) 1994 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4 4
5 ;; Maintainer: FSF 5 ;; Maintainer: FSF
6 ;; Keywords: internal 6 ;; Keywords: internal
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details. 18 ;; GNU General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02110-1301, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;; This is loaded into a bare Emacs to create the blessmail script, 27 ;; This is loaded into a bare Emacs to create the blessmail script,
28 ;; which (on systems that need it) is used during installation 28 ;; which (on systems that need it) is used during installation
64 (insert "chown root $* && chmod u+s $*\n")))) 64 (insert "chown root $* && chmod u+s $*\n"))))
65 (insert "echo mail directory = " dirname "\n")) 65 (insert "echo mail directory = " dirname "\n"))
66 (write-region (point-min) (point-max) "blessmail") 66 (write-region (point-min) (point-max) "blessmail")
67 (kill-emacs) 67 (kill-emacs)
68 68
69 ;;; arch-tag: c3329fe2-f945-41a9-8b00-b4b038ff182f
69 ;;; blessmail.el ends here 70 ;;; blessmail.el ends here