Option to use Tor to communicate with repo site

[Richard Stallman]

[[[ To any NSA and FBI agents reading my email: please consider    ]]]
[[[ whether defending the US Constitution against all enemies,     ]]]
[[[ foreign or domestic, requires you to follow Snowden's example. ]]]

Would someone please install this?


2019-10-12  Richard Stallman  <address@hidden>

        * lisp/vc/vc-dispatcher.el (vc-tor): New user option.
        (vc-do-command): If vc-tor is non-nil, use torsocks.

The defcustom needs to say what version it is added in.

diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index 40c392b..bf238de 100644
--- a/lisp/vc/vc-dispatcher.el
+++ b/lisp/vc/vc-dispatcher.el
@@ -267,6 +267,11 @@ vc-delistify
   ;; FIXME what about file names with spaces?
   (if (not filelist) "."  (mapconcat 'identity filelist " ")))
 
+(defcustom vc-tor nil
+  "If non-nil, communicate with the repository site via Tor."
+  :type 'boolean
+  :group 'vc)
+
 ;;;###autoload
 (defun vc-do-command (buffer okstatus command file-or-list &rest flags)
   "Execute a slave command, notifying user and checking for errors.
@@ -295,7 +300,8 @@ vc-do-command
         ;; due to potential truncation of long messages.
         (message-truncate-lines t)
         (full-command
-         (concat (if (string= (substring command -1) "\n")
+         (concat (if vc-tor "torsocks " "")
+                  (if (string= (substring command -1) "\n")
                      (substring command 0 -1)
                    command)
                  " " (vc-delistify flags)



-- 
Dr Richard Stallman
Founder, Free Software Foundation (https://gnu.org, https://fsf.org)
Internet Hall-of-Famer (https://internethalloffame.org)