;; autoload password
(eval-and-compile
- (autoload 'password-read "password"))
+ (autoload 'password-read "password")
+ ;; The following section is needed since T-gnus won't load password.el
+ ;; by way of pgg.el at the compile time.
+ (autoload 'password-read-and-add "password")
+ (autoload 'password-cache-remove "password")
+ (defvar password-cache-expiry))
(defgroup encrypt nil
"File encryption configuration.")
(defvar encrypt-temp-prefix "encrypt"
"Prefix for temporary filenames")
+;;;###autoload
(defun encrypt-find-model (filename)
"Given a filename, find a encrypt-file-alist entry"
(dolist (entry encrypt-file-alist)
(string-match match filename))
(return model)))))
+;;;###autoload
(defun encrypt-insert-file-contents (file &optional model)
"Decrypt FILE into the current buffer."
(interactive "fFile to insert: ")
(provide 'encrypt)
;;; encrypt.el ends here
-
-;; arch-tag: d907e4f1-71b5-42b1-a180-fc7b84ff0648