From: Glenn Morris <rgm@gnu.org>
Date: Sat, 10 May 2014 20:48:36 +0000 (-0700)
Subject: * browse-url.el (browse-url-mosaic): Create /tmp/Mosaic.PID as a private file.
X-Git-Tag: emacs-24.3.91~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c6699ab19d4fed0baa98988accbd8141ae81fe9;p=emacs.git

* browse-url.el (browse-url-mosaic): Create /tmp/Mosaic.PID as a private file.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0fa0c93915a..22e45c46940 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-10  Glenn Morris  <rgm@gnu.org>
+
+	* net/browse-url.el (browse-url-mosaic):
+	Create /tmp/Mosaic.PID as a private file.
+
 2014-05-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/nadvice.el: Support adding a given function multiple times.
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 80dffb3fa4a..33f4eda9604 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -1343,10 +1343,16 @@ used instead of `browse-url-new-window-flag'."
                         "newwin\n"
                       "goto\n")
                     url "\n")
-            (if (file-exists-p (setq pidfile (format "/tmp/Mosaic.%d" pid)))
-                (delete-file pidfile))
-            ;; http://debbugs.gnu.org/17428.  Use O_EXCL.
-            (write-region nil nil pidfile nil 'silent nil 'excl))
+            (let ((umask (default-file-modes)))
+              (unwind-protect
+                  (progn
+                    (set-default-file-modes ?\700)
+                    (if (file-exists-p
+                         (setq pidfile (format "/tmp/Mosaic.%d" pid)))
+                        (delete-file pidfile))
+                    ;; http://debbugs.gnu.org/17428.  Use O_EXCL.
+                    (write-region nil nil pidfile nil 'silent nil 'excl))
+                (set-default-file-modes umask))))
 	  ;; Send signal SIGUSR to Mosaic
 	  (message "Signaling Mosaic...")
 	  (signal-process pid 'SIGUSR1)