diff options
| author | Richard Stallman <rms@gnu.org> | 2015-08-12 11:24:30 -0400 |
|---|---|---|
| committer | Richard Stallman <rms@gnu.org> | 2015-08-12 11:24:30 -0400 |
| commit | 9bb90024e2c7383494e91dd58a21c78faea7255b (patch) | |
| tree | d823a8dc68f5b5e955b6d79a95aa1019159ddc2f /lisp/mail/mail-utils.el | |
| parent | fe45243b6ae8129bea99f79acc55c77bfd0d1d22 (diff) | |
| download | emacs-9bb90024e2c7383494e91dd58a21c78faea7255b.tar.gz | |
Don't decrypt encrypted files.
* mail-utils.el (mail-file-babyl-p): Bind epa-inhibit to t.
Diffstat (limited to 'lisp/mail/mail-utils.el')
| -rw-r--r-- | 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 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 |