From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Francesco Potorti` <pot@gnu.org>
Newsgroups: gmane.emacs.bugs
Subject: Re: yes I'm root but want 444 files found readonly
Date: 02 Jul 2002 18:16:15 +0200
Organization: Centro SERRA
Sender: bug-gnu-emacs-admin@gnu.org
Message-ID: <87lm8ut8a8.fsf@pot.cnuce.cnr.it>
References: <87ptyd99ml.fsf@jidanni.org> <86znxaq5iw.fsf@eden-hda7.my.local>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1025626848 13545 127.0.0.1 (2 Jul 2002 16:20:48 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Tue, 2 Jul 2002 16:20:48 +0000 (UTC)
Return-path: <bug-gnu-emacs-admin@gnu.org>
Original-Received: from fencepost.gnu.org ([199.232.76.164])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 17PQOW-0003WM-00
	for <gnu-bug-gnu-emacs@m.gmane.org>; Tue, 02 Jul 2002 18:20:48 +0200
Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 17PQP0-0005IR-00; Tue, 02 Jul 2002 12:21:18 -0400
Original-Received: from mailbox1.ucsd.edu ([132.239.1.53])
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 17PQO8-0005FH-00
	for <bug-gnu-emacs@prep.ai.mit.edu>; Tue, 02 Jul 2002 12:20:24 -0400
Original-Received: from serra.unipi.it (serra.unipi.it [131.114.21.10])
	by mailbox1.ucsd.edu (8.12.1/8.12.1) with ESMTP id g62GKGKH023400
	for <gnu-emacs-bug@moderators.isc.org>; Tue, 2 Jul 2002 09:20:17 -0700 (PDT)
Original-Received: (from news@localhost)
	by serra.unipi.it (8.9.3+Sun/8.9.3) id SAA18166
	for gnu-emacs-bug@moderators.isc.org; Tue, 2 Jul 2002 18:16:26 +0200 (MEST)
Original-To: gnu-emacs-bug@moderators.isc.org
Original-Path: not-for-mail
Original-Newsgroups: gnu.emacs.bug
Original-Lines: 10
Original-NNTP-Posting-Host: pot.cnuce.cnr.it
Original-X-Trace: serra.unipi.it 1025626585 18164 146.48.83.182 (2 Jul 2002 16:16:25 GMT)
Original-X-Complaints-To: newsmaster
Original-NNTP-Posting-Date: Tue, 2 Jul 2002 16:16:25 +0000 (UTC)
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.90
Errors-To: bug-gnu-emacs-admin@gnu.org
X-BeenThere: bug-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:bug-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:bug-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs>,
	<mailto:bug-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Bug reports for GNU Emacs,
	the Swiss army knife of text editors <bug-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs>,
	<mailto:bug-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/bug-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.bugs:2398
X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:2398

   See below for a sample implementation that finds such files in
   read-only mode.

This one does no prompting, and does the trick as well, if I forgot
nothing: 

(defun set-read-only-if-file-not-writable ()
  (when (zerop (logand (file-modes (buffer-file-name)) #o222))
    (setq buffer-read-only t)))
(add-hook 'find-file-hooks 'set-read-only-if-file-not-writable)