Mercurial > emacs
comparison lisp/mail/blessmail.el @ 88155:d7ddb3e565de
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 |