[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9bb9002 4/5: Don't decrypt encrypted files.
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] master 9bb9002 4/5: Don't decrypt encrypted files. |
Date: |
Wed, 12 Aug 2015 15:35:39 +0000 |
branch: master
commit 9bb90024e2c7383494e91dd58a21c78faea7255b
Author: Richard Stallman <address@hidden>
Commit: Richard Stallman <address@hidden>
Don't decrypt encrypted files.
* mail-utils.el (mail-file-babyl-p): Bind epa-inhibit to t.
---
lisp/mail/mail-utils.el | 7 ++++---
1 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 736e3f5..3d5d7c9 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