;;; pgg-gpg.el --- GnuPG support for PGG.
-;; Copyright (C) 1999-2000, 2002-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2000, 2002-2016 Free Software Foundation, Inc.
;; Author: Daiki Ueno <ueno@unixuser.org>
;; Symmetric encryption and gpg-agent support added by:
;;; Code:
(eval-when-compile
- (require 'cl) ; for gpg macros
- (require 'pgg))
+ (require 'cl))
+
+(require 'pgg)
(defgroup pgg-gpg ()
"GnuPG interface."
(insert-file-contents output-file-name)))
(set-buffer errors-buffer)
(if (memq status '(stop signal))
- (error "%s exited abnormally: '%s'" program exit-status))
+ (error "%s exited abnormally: `%s'" program exit-status))
(if (= 127 exit-status)
(error "%s could not be found" program))))
(if passphrase-with-newline
(pgg-process-when-success)))
(defun pgg-gpg-update-agent ()
- "Try to connet to gpg-agent and send UPDATESTARTUPTTY."
+ "Try to connect to gpg-agent and send UPDATESTARTUPTTY."
(if (fboundp 'make-network-process)
(let* ((agent-info (getenv "GPG_AGENT_INFO"))
(socket (and agent-info