diff options
| author | Richard Stallman | 2015-08-12 11:24:30 -0400 |
|---|---|---|
| committer | Richard Stallman | 2015-08-12 11:24:30 -0400 |
| commit | 9bb90024e2c7383494e91dd58a21c78faea7255b (patch) | |
| tree | d823a8dc68f5b5e955b6d79a95aa1019159ddc2f /lisp | |
| parent | fe45243b6ae8129bea99f79acc55c77bfd0d1d22 (diff) | |
| download | emacs-9bb90024e2c7383494e91dd58a21c78faea7255b.tar.gz emacs-9bb90024e2c7383494e91dd58a21c78faea7255b.zip | |
Don't decrypt encrypted files.
* mail-utils.el (mail-file-babyl-p): Bind epa-inhibit to t.
Diffstat (limited to 'lisp')
| -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." | |||
| 50 | ;;;###autoload | 50 | ;;;###autoload |
| 51 | (defun mail-file-babyl-p (file) | 51 | (defun mail-file-babyl-p (file) |
| 52 | "Return non-nil if FILE is a Babyl file." | 52 | "Return non-nil if FILE is a Babyl file." |
| 53 | (with-temp-buffer | 53 | (let ((epa-inhibit t)) |
| 54 | (insert-file-contents file nil 0 100) | 54 | (with-temp-buffer |
| 55 | (looking-at "BABYL OPTIONS:"))) | 55 | (insert-file-contents file nil 0 100) |
| 56 | (looking-at "BABYL OPTIONS:")))) | ||
| 56 | 57 | ||
| 57 | (defun mail-string-delete (string start end) | 58 | (defun mail-string-delete (string start end) |
| 58 | "Returns a string containing all of STRING except the part | 59 | "Returns a string containing all of STRING except the part |