mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

Don't decrypt encrypted files.

Browse Source 
* mail-utils.el (mail-file-babyl-p): Bind epa-inhibit to t.
This commit is contained in:
Richard Stallman 2015-08-12 11:24:30 -04:00
parent fe45243b6a
commit 9bb90024e2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/mail-utils.el
View File

@ -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