From: Richard Stallman <rms@gnu.org>
Date: Wed, 12 Aug 2015 15:24:30 +0000 (-0400)
Subject: Don't decrypt encrypted files.
X-Git-Tag: emacs-25.0.90~1373^2~53
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9bb90024e2c7383494e91dd58a21c78faea7255b;p=emacs.git

Don't decrypt encrypted files.

* mail-utils.el (mail-file-babyl-p): Bind epa-inhibit to t.
---

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 736e3f5254f..3d5d7c96054 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -50,9 +50,10 @@ also the To field, unless this would leave an empty To field."
 ;;;###autoload
 (defun mail-file-babyl-p (file)
   "Return non-nil if FILE is a Babyl file."
-  (with-temp-buffer
-    (insert-file-contents file nil 0 100)
-    (looking-at "BABYL OPTIONS:")))
+  (let ((epa-inhibit t))
+    (with-temp-buffer
+      (insert-file-contents file nil 0 100)
+      (looking-at "BABYL OPTIONS:"))))
 
 (defun mail-string-delete (string start end)
   "Returns a string containing all of STRING except the part