[EasyPG (epa)] Emacs can't save modified encrypted file

emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

From: "Christopher M. Miles" <numbchild@gmail.com>
To: Ihor Radchenko <yantar92@posteo.net>,
	"Christopher M. Miles" <numbchild@gmail.com>,
	emacs-orgmode@gnu.org
Subject: [EasyPG (epa)] Emacs can't save modified encrypted file
Date: Tue, 02 May 2023 12:00:39 +0800	[thread overview]
Message-ID: <m2354fpe96.fsf@numbchild@gmail.com> (raw)
In-Reply-To: <m2sfcgmbpo.fsf@numbchild>


[-- Attachment #1.1: Type: text/plain, Size: 66223 bytes --]


"Christopher M. Miles" <numbchild@gmail.com> writes:

> [[PGP Signed Part:Undecided]]
>
> Ihor Radchenko <yantar92@posteo.net> writes:
>
>> "Christopher M. Miles" <numbchild@gmail.com> writes:
>>
>>>>>> May you elaborate what performance issues you are experiencing?
>>>>>
>>>>> My performance issue is a large Org file about 2M size on saving. I will
>>>>> reproduce and generate profiler report for more detailed data and update
>>>>> in this thread.
>>>>
>>>> Please save the report using M-x profiler-report-write-profile - it will
>>>> produce Elisp data that can be re-opened and examined directly.
>>>
>>> I attached CPU and Memory report in attachments.
>>
>> This CPU report is not just for saving. You did M-x (vectico), `undo',
>> `org-clock-in', and `save-buffer'. `save-buffer' took no time. And
>> everything took less than one second.
>>
>> Are you sure that it is the correct profile?
>
> The current CPU report indeed not contains heavy org-crypt. Because my
> epa get problem. When I edit a GnuPG encrypted "encrypt.org.gpg", it
> suspend on epa waiting for process to finished. It never ends unless I
> press [C-g] to quit it. So I can't reproduce the Org file contains
> org-crypt headlines saving profiler report.
>
> Sorry that I have not mentioned this actual background reason. I indeed
> did a profiler report before (about 3 months ago), and the profiler
> report use lot of time on org-crypt invocation. Hmm, maybe problem gone
> as time scrolls.
>
> I will mark this as task in my Org Agenda, and take time to profiler
> report again, make sure org-crypt is heavy, then update here.
>
> Regards,

I tried to reproduce and study the problem of Emacs saving modified encrypted file.

Because the investigate log is very long, so I write conclusion here at first:

I downgrade gnupg, then the problem solved. But the downgrade version is
very old (gnupg@2.4.1 -> gnupg@2.2.41). I suspend problem is somewhere
else, like Emacs interaction with GnuPG process.

Here the the whole process and log:

Reproduce:

1. =[M-x toggle-debug-on-quit]=

2. edit "authinfo.gpg" encrypted file in Emacs, then press =[C-x C-s]= to save file.

3. but Emacs have not actually save file, the mode-line file status is still "modified", and Emacs suspending.

4. I press =[C-g]= to quit got following stacktrace:

#+begin_example
Debugger entered--Lisp error: (quit)
  accept-process-output(#<process epg> 1)
  epg-wait-for-status(#s(epg-context :protocol OpenPGP :program "/opt/homebrew/bin/gpg" :home-directory "/Users/stardiviner/.gnupg" :armor nil :textmode nil :include-certs nil :cipher-algorithm nil :digest-algorithm nil :compress-algorithm nil :passphrase-callback (epa-file-passphrase-callback-function . "/Users/stardiviner/.config/emacs/secrets/authinfo....") :progress-callback (epa-progress-callback-function . "Encrypting /Users/stardiviner/.config/emacs/secret...") :edit-callback nil :signers nil :sender nil :sig-notations nil :process #<process epg> :output-file "/var/folders/ym/f3v5_yk1279g5ls70x3hzblh0000gn/T/e..." :result nil :operation encrypt :pinentry-mode loopback :error-output "" :error-buffer #<buffer  *epg-error*>) ("BEGIN_ENCRYPTION"))
  epg-start-encrypt(#s(epg-context :protocol OpenPGP :program "/opt/homebrew/bin/gpg" :home-directory "/Users/stardiviner/.gnupg" :armor nil :textmode nil :include-certs nil :cipher-algorithm nil :digest-algorithm nil :compress-algorithm nil :passphrase-callback (epa-file-passphrase-callback-function . "/Users/stardiviner/.config/emacs/secrets/authinfo....") :progress-callback (epa-progress-callback-function . "Encrypting /Users/stardiviner/.config/emacs/secret...") :edit-callback nil :signers nil :sender nil :sig-notations nil :process #<process epg> :output-file "/var/folders/ym/f3v5_yk1279g5ls70x3hzblh0000gn/T/e..." :result nil :operation encrypt :pinentry-mode loopback :error-output "" :error-buffer #<buffer  *epg-error*>) #s(epg-data :file nil :string "# -*- epa-file-encrypt-to: (\"stardiviner\") -*-\n\n# ...") (#s(epg-key :owner-trust ultimate :sub-key-list (#s(epg-sub-key :validity ultimate :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "1B5DF1C95AE89AC3" :creation-time 1422686308 :expiration-time nil :fingerprint "F09F650D7D674819892591401B5DF1C95AE89AC3") #s(epg-sub-key :validity ultimate :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "0251FA6886EB6B77" :creation-time 1422686308 :expiration-time nil :fingerprint "32A8581A6E137ABD26DA2F570251FA6886EB6B77")) :user-id-list (#s(epg-user-id :validity ultimate :string "stardiviner (numbchild@gmail.com) <numbchild@gmail..." :signature-list nil) #s(epg-user-id :validity ultimate :string "stardiviner (Christopher Miles) <numbchild@gmail.c..." :signature-list nil))) #s(epg-key :owner-trust none :sub-key-list (#s(epg-sub-key :validity none :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "B8C4B8E547C32433" :creation-time 1330690561 :expiration-time nil :fingerprint "9BAA92BCCDDDB9EF3B36CB99B8C4B8E547C32433") #s(epg-sub-key :validity none :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "AEDA8A17BB08B786" :creation-time 1330690561 :expiration-time nil :fingerprint "0DEF7425E79FE2E0090B424BAEDA8A17BB08B786")) :user-id-list (#s(epg-user-id :validity none :string "Christopher Miles (stardiviner, numbchild) <numbch..." :signature-list nil)))) nil nil)
  epg-encrypt-string(#s(epg-context :protocol OpenPGP :program "/opt/homebrew/bin/gpg" :home-directory "/Users/stardiviner/.gnupg" :armor nil :textmode nil :include-certs nil :cipher-algorithm nil :digest-algorithm nil :compress-algorithm nil :passphrase-callback (epa-file-passphrase-callback-function . "/Users/stardiviner/.config/emacs/secrets/authinfo....") :progress-callback (epa-progress-callback-function . "Encrypting /Users/stardiviner/.config/emacs/secret...") :edit-callback nil :signers nil :sender nil :sig-notations nil :process #<process epg> :output-file "/var/folders/ym/f3v5_yk1279g5ls70x3hzblh0000gn/T/e..." :result nil :operation encrypt :pinentry-mode loopback :error-output "" :error-buffer #<buffer  *epg-error*>) "# -*- epa-file-encrypt-to: (\"stardiviner\") -*-\n\n# ..." (#s(epg-key :owner-trust ultimate :sub-key-list (#s(epg-sub-key :validity ultimate :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "1B5DF1C95AE89AC3" :creation-time 1422686308 :expiration-time nil :fingerprint "F09F650D7D674819892591401B5DF1C95AE89AC3") #s(epg-sub-key :validity ultimate :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "0251FA6886EB6B77" :creation-time 1422686308 :expiration-time nil :fingerprint "32A8581A6E137ABD26DA2F570251FA6886EB6B77")) :user-id-list (#s(epg-user-id :validity ultimate :string "stardiviner (numbchild@gmail.com) <numbchild@gmail..." :signature-list nil) #s(epg-user-id :validity ultimate :string "stardiviner (Christopher Miles) <numbchild@gmail.c..." :signature-list nil))) #s(epg-key :owner-trust none :sub-key-list (#s(epg-sub-key :validity none :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "B8C4B8E547C32433" :creation-time 1330690561 :expiration-time nil :fingerprint "9BAA92BCCDDDB9EF3B36CB99B8C4B8E547C32433") #s(epg-sub-key :validity none :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "AEDA8A17BB08B786" :creation-time 1330690561 :expiration-time nil :fingerprint "0DEF7425E79FE2E0090B424BAEDA8A17BB08B786")) :user-id-list (#s(epg-user-id :validity none :string "Christopher Miles (stardiviner, numbchild) <numbch..." :signature-list nil)))))
  epa-file-write-region(nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil)
  apply(epa-file-write-region (nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil))
  epa-file-handler(write-region nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil)
  write-region(nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg")
  basic-save-buffer-2()
  basic-save-buffer-1()
  basic-save-buffer(nil)
  save-buffer()
  #f(compiled-function (buffer) #<bytecode 0x8c750db3599e00a>)(#<buffer authinfo.gpg>)
  map-y-or-n-p(#f(compiled-function (buffer) #<bytecode 0x3861ff2c85e5a70>) #f(compiled-function (buffer) #<bytecode 0x8c750db3599e00a>) (#<buffer authinfo.gpg>) ("buffer" "buffers" "save") ((18 #f(compiled-function (buf) #<bytecode -0x13c467336852d4a4>) "view this buffer") (6 #f(compiled-function (buf) #<bytecode 0x81e69c1bf6c6e9c>) "view this buffer and quit") (100 #f(compiled-function (buf) #<bytecode -0x24aad661d8a3566>) "view changes in this buffer")))
  save-some-buffers(:no-prompt #f(compiled-function () #<bytecode 0x11658fcd9d115b5c>))
  apply(save-some-buffers (:no-prompt #f(compiled-function () #<bytecode 0x11658fcd9d115b5c>)))
  timer-event-handler([nil 0 5 0 :repeat save-some-buffers (:no-prompt #f(compiled-function () #<bytecode 0x11658fcd9d115b5c>)) idle 0 nil])
#+end_example

----------------------------------------------------------------------------------------------------

When I save modified "=~/.config/emacs/secrets/authinfo.gpg=", got prompt:

#+begin_example
Untrusted key AEDA8A17BB08B786 Christopher Miles (stardiviner, numbchild) <numbchild@gmail.com>.  Use anyway? (y or n)
#+end_example

If I input "n" for prompt:

#+begin_example
Debugger entered--Lisp error: (file-error "Opening output file" "Encrypt failed" "Unusable public key: B8C4B8E547C32433 (key not tru...")
  apply(debug error (file-error "Opening output file" "Encrypt failed" "Unusable public key: B8C4B8E547C32433 (key not tru..."))
  edebug(error (file-error "Opening output file" "Encrypt failed" "Unusable public key: B8C4B8E547C32433 (key not tru..."))
  signal(file-error ("Opening output file" "Encrypt failed" "Unusable public key: B8C4B8E547C32433 (key not tru..."))
  edebug-signal(file-error ("Opening output file" "Encrypt failed" "Unusable public key: B8C4B8E547C32433 (key not tru..."))
  signal(file-error ("Opening output file" "Encrypt failed" "Unusable public key: B8C4B8E547C32433 (key not tru..."))
  (edebug-after (edebug-before 157) 163 (signal 'file-error (edebug-after (edebug-before 158) 162 (cons "Opening output file" (edebug-after (edebug-before 159) 161 (cdr (edebug-after 0 160 error)))))))
  (condition-case error (edebug-after (edebug-before 67) 142 (setq string (edebug-after (edebug-before 68) 141 (epg-encrypt-string (edebug-after 0 69 context) (edebug-after (edebug-before 70) 109 (if (edebug-after ... 73 ...) (edebug-after ... 77 ...) (edebug-after ... 86 ...) (edebug-after ... 90 ...) (edebug-after ... 108 ...))) (edebug-after (edebug-before 110) 140 (if (edebug-after ... 126 ...) (edebug-after ... 130 ...) (edebug-after ... 139 ...))))))) (error (edebug-after (edebug-before 143) 145 (epa-display-error (edebug-after 0 144 context))) (edebug-after (edebug-before 146) 156 (if (edebug-after (edebug-before 147) 152 (setq entry (edebug-after (edebug-before 148) 151 (assoc ... ...)))) (edebug-after (edebug-before 153) 155 (setcdr (edebug-after 0 154 entry) nil)))) (edebug-after (edebug-before 157) 163 (signal 'file-error (edebug-after (edebug-before 158) 162 (cons "Opening output file" (edebug-after (edebug-before 159) 161 (cdr ...))))))))
  (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string (edebug-after (edebug-before 68) 141 (epg-encrypt-string (edebug-after 0 69 context) (edebug-after (edebug-before 70) 109 (if ... ... ... ... ...)) (edebug-after (edebug-before 110) 140 (if ... ... ...)))))) (error (edebug-after (edebug-before 143) 145 (epa-display-error (edebug-after 0 144 context))) (edebug-after (edebug-before 146) 156 (if (edebug-after (edebug-before 147) 152 (setq entry (edebug-after ... 151 ...))) (edebug-after (edebug-before 153) 155 (setcdr (edebug-after 0 154 entry) nil)))) (edebug-after (edebug-before 157) 163 (signal 'file-error (edebug-after (edebug-before 158) 162 (cons "Opening output file" (edebug-after ... 161 ...))))))))
  (let* ((coding-system (edebug-after (edebug-before 11) 27 (or (edebug-after 0 12 coding-system-for-write) (edebug-after (edebug-before 13) 26 (if (edebug-after ... 15 ...) (edebug-after ... 24 ...) (edebug-after 0 25 buffer-file-coding-system)))))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond ((edebug-after (edebug-before 31) 33 (listp ...)) (edebug-after 0 34 epa-file-encrypt-to)) ((edebug-after (edebug-before 35) 37 (stringp ...)) (edebug-after (edebug-before 38) 40 (list ...)))))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons (edebug-after (edebug-before 45) 46 #'epa-file-passphrase-callback-function) (edebug-after 0 47 file))))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons (edebug-after (edebug-before 53) 54 #'epa-progress-callback-function) (edebug-after (edebug-before 55) 57 (format "Encrypting %s" (edebug-after 0 56 file))))))) (edebug-after (edebug-before 60) 65 (let ((cl-x (edebug-after 0 62 context))) (or (let ((cl-x cl-x)) (progn (and (memq ... cl-struct-epg-context-tags) t))) (signal 'wrong-type-argument (list 'epg-context cl-x))) (let* ((v cl-x)) (edebug-after (edebug-before 61) 63 (aset v 4 (edebug-after 0 64 epa-armor)))))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string (edebug-after (edebug-before 68) 141 (epg-encrypt-string (edebug-after 0 69 context) (edebug-after ... 109 ...) (edebug-after ... 140 ...))))) (error (edebug-after (edebug-before 143) 145 (epa-display-error (edebug-after 0 144 context))) (edebug-after (edebug-before 146) 156 (if (edebug-after (edebug-before 147) 152 (setq entry ...)) (edebug-after (edebug-before 153) 155 (setcdr ... nil)))) (edebug-after (edebug-before 157) 163 (signal 'file-error (edebug-after (edebug-before 158) 162 (cons "Opening output file" ...))))))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list (edebug-after 0 169 string) nil (edebug-after 0 170 file) (edebug-after 0 171 append) (edebug-after 0 172 visit) (edebug-after 0 173 lockname) (edebug-after 0 174 mustbenew))))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp 'last-coding-system-used)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used (edebug-after 0 181 coding-system))))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq (edebug-after 0 186 visit) t)) (edebug-after (edebug-before 188) 194 (progn (edebug-after (edebug-before 189) 191 (setq buffer-file-name (edebug-after 0 190 file))) (edebug-after (edebug-before 192) 193 (set-visited-file-modtime)))) (edebug-after (edebug-before 195) 206 (if (edebug-after (edebug-before 196) 198 (stringp (edebug-after 0 197 visit))) (edebug-after (edebug-before 199) 205 (progn (edebug-after ... 201 ...) (edebug-after ... 204 ...))))))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or (edebug-after (edebug-before 210) 212 (eq (edebug-after 0 211 visit) t)) (edebug-after (edebug-before 213) 215 (eq (edebug-after 0 214 visit) nil)) (edebug-after (edebug-before 216) 218 (stringp (edebug-after 0 217 visit))))) (edebug-after (edebug-before 220) 222 (message "Wrote %s" (edebug-after 0 221 buffer-file-name))))))
  (edebug-after (edebug-before 10) 224 (let* ((coding-system (edebug-after (edebug-before 11) 27 (or (edebug-after 0 12 coding-system-for-write) (edebug-after (edebug-before 13) 26 (if ... ... ...))))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond ((edebug-after ... 33 ...) (edebug-after 0 34 epa-file-encrypt-to)) ((edebug-after ... 37 ...) (edebug-after ... 40 ...))))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons (edebug-after (edebug-before 45) 46 #'epa-file-passphrase-callback-function) (edebug-after 0 47 file))))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons (edebug-after (edebug-before 53) 54 #'epa-progress-callback-function) (edebug-after (edebug-before 55) 57 (format "Encrypting %s" ...)))))) (edebug-after (edebug-before 60) 65 (let ((cl-x (edebug-after 0 62 context))) (or (let ((cl-x cl-x)) (progn (and ... t))) (signal 'wrong-type-argument (list 'epg-context cl-x))) (let* ((v cl-x)) (edebug-after (edebug-before 61) 63 (aset v 4 (edebug-after 0 64 epa-armor)))))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string (edebug-after (edebug-before 68) 141 (epg-encrypt-string ... ... ...)))) (error (edebug-after (edebug-before 143) 145 (epa-display-error (edebug-after 0 144 context))) (edebug-after (edebug-before 146) 156 (if (edebug-after ... 152 ...) (edebug-after ... 155 ...))) (edebug-after (edebug-before 157) 163 (signal 'file-error (edebug-after ... 162 ...)))))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list (edebug-after 0 169 string) nil (edebug-after 0 170 file) (edebug-after 0 171 append) (edebug-after 0 172 visit) (edebug-after 0 173 lockname) (edebug-after 0 174 mustbenew))))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp 'last-coding-system-used)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used (edebug-after 0 181 coding-system))))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq (edebug-after 0 186 visit) t)) (edebug-after (edebug-before 188) 194 (progn (edebug-after (edebug-before 189) 191 (setq buffer-file-name ...)) (edebug-after (edebug-before 192) 193 (set-visited-file-modtime)))) (edebug-after (edebug-before 195) 206 (if (edebug-after (edebug-before 196) 198 (stringp ...)) (edebug-after (edebug-before 199) 205 (progn ... ...)))))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or (edebug-after (edebug-before 210) 212 (eq ... t)) (edebug-after (edebug-before 213) 215 (eq ... nil)) (edebug-after (edebug-before 216) 218 (stringp ...)))) (edebug-after (edebug-before 220) 222 (message "Wrote %s" (edebug-after 0 221 buffer-file-name)))))))
  (closure ((mustbenew) (lockname . "~/.config/emacs/secrets/authinfo.gpg") (visit . t) (append) (file . "/Users/stardiviner/.config/emacs/secrets/authinfo....") (end . 1960) (start . 1) t) nil :closure-dont-trim-context (edebug-after (edebug-before 0) 4 (if (edebug-after 0 1 append) (edebug-after (edebug-before 2) 3 (error "Can't append to the file")))) (edebug-after (edebug-before 5) 9 (setq file (edebug-after (edebug-before 6) 8 (expand-file-name (edebug-after 0 7 file))))) (edebug-after (edebug-before 10) 224 (let* ((coding-system (edebug-after (edebug-before 11) 27 (or (edebug-after 0 12 coding-system-for-write) (edebug-after ... 26 ...)))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond (... ...) (... ...)))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons (edebug-after ... 46 ...) (edebug-after 0 47 file))))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons (edebug-after ... 54 ...) (edebug-after ... 57 ...))))) (edebug-after (edebug-before 60) 65 (let ((cl-x (edebug-after 0 62 context))) (or (let (...) (progn ...)) (signal 'wrong-type-argument (list ... cl-x))) (let* ((v cl-x)) (edebug-after (edebug-before 61) 63 (aset v 4 ...))))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string (edebug-after ... 141 ...))) (error (edebug-after (edebug-before 143) 145 (epa-display-error ...)) (edebug-after (edebug-before 146) 156 (if ... ...)) (edebug-after (edebug-before 157) 163 (signal ... ...))))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list (edebug-after 0 169 string) nil (edebug-after 0 170 file) (edebug-after 0 171 append) (edebug-after 0 172 visit) (edebug-after 0 173 lockname) (edebug-after 0 174 mustbenew))))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp 'last-coding-system-used)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used (edebug-after 0 181 coding-system))))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq (edebug-after 0 186 visit) t)) (edebug-after (edebug-before 188) 194 (progn (edebug-after ... 191 ...) (edebug-after ... 193 ...))) (edebug-after (edebug-before 195) 206 (if (edebug-after ... 198 ...) (edebug-after ... 205 ...))))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or (edebug-after ... 212 ...) (edebug-after ... 215 ...) (edebug-after ... 218 ...))) (edebug-after (edebug-before 220) 222 (message "Wrote %s" (edebug-after 0 221 buffer-file-name))))))))()
  edebug-default-enter(epa-file-write-region (nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil) (closure ((mustbenew) (lockname . "~/.config/emacs/secrets/authinfo.gpg") (visit . t) (append) (file . "/Users/stardiviner/.config/emacs/secrets/authinfo....") (end . 1960) (start . 1) t) nil :closure-dont-trim-context (edebug-after (edebug-before 0) 4 (if (edebug-after 0 1 append) (edebug-after (edebug-before 2) 3 (error "Can't append to the file")))) (edebug-after (edebug-before 5) 9 (setq file (edebug-after (edebug-before 6) 8 (expand-file-name (edebug-after 0 7 file))))) (edebug-after (edebug-before 10) 224 (let* ((coding-system (edebug-after (edebug-before 11) 27 (or ... ...))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond ... ...))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons ... ...)))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons ... ...)))) (edebug-after (edebug-before 60) 65 (let ((cl-x ...)) (or (let ... ...) (signal ... ...)) (let* (...) (edebug-after ... 63 ...)))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string ...)) (error (edebug-after ... 145 ...) (edebug-after ... 156 ...) (edebug-after ... 163 ...)))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list ... nil ... ... ... ... ...)))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp ...)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used ...)))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq ... t)) (edebug-after (edebug-before 188) 194 (progn ... ...)) (edebug-after (edebug-before 195) 206 (if ... ...)))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or ... ... ...)) (edebug-after (edebug-before 220) 222 (message "Wrote %s" ...))))))))
  edebug-default-enter(epa-file-write-region (nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil) (closure ((mustbenew) (lockname . "~/.config/emacs/secrets/authinfo.gpg") (visit . t) (append) (file . "/Users/stardiviner/.config/emacs/secrets/authinfo....") (end . 1960) (start . 1) t) nil :closure-dont-trim-context (edebug-after (edebug-before 0) 4 (if (edebug-after 0 1 append) (edebug-after (edebug-before 2) 3 (error "Can't append to the file")))) (edebug-after (edebug-before 5) 9 (setq file (edebug-after (edebug-before 6) 8 (expand-file-name (edebug-after 0 7 file))))) (edebug-after (edebug-before 10) 224 (let* ((coding-system (edebug-after (edebug-before 11) 27 (or ... ...))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond ... ...))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons ... ...)))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons ... ...)))) (edebug-after (edebug-before 60) 65 (let ((cl-x ...)) (or (let ... ...) (signal ... ...)) (let* (...) (edebug-after ... 63 ...)))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string ...)) (error (edebug-after ... 145 ...) (edebug-after ... 156 ...) (edebug-after ... 163 ...)))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list ... nil ... ... ... ... ...)))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp ...)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used ...)))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq ... t)) (edebug-after (edebug-before 188) 194 (progn ... ...)) (edebug-after (edebug-before 195) 206 (if ... ...)))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or ... ... ...)) (edebug-after (edebug-before 220) 222 (message "Wrote %s" ...))))))))
  edebug-enter(epa-file-write-region (nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil) (closure ((mustbenew) (lockname . "~/.config/emacs/secrets/authinfo.gpg") (visit . t) (append) (file . "/Users/stardiviner/.config/emacs/secrets/authinfo....") (end . 1960) (start . 1) t) nil :closure-dont-trim-context (edebug-after (edebug-before 0) 4 (if (edebug-after 0 1 append) (edebug-after (edebug-before 2) 3 (error "Can't append to the file")))) (edebug-after (edebug-before 5) 9 (setq file (edebug-after (edebug-before 6) 8 (expand-file-name (edebug-after 0 7 file))))) (edebug-after (edebug-before 10) 224 (let* ((coding-system (edebug-after (edebug-before 11) 27 (or ... ...))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond ... ...))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons ... ...)))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons ... ...)))) (edebug-after (edebug-before 60) 65 (let ((cl-x ...)) (or (let ... ...) (signal ... ...)) (let* (...) (edebug-after ... 63 ...)))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string ...)) (error (edebug-after ... 145 ...) (edebug-after ... 156 ...) (edebug-after ... 163 ...)))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list ... nil ... ... ... ... ...)))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp ...)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used ...)))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq ... t)) (edebug-after (edebug-before 188) 194 (progn ... ...)) (edebug-after (edebug-before 195) 206 (if ... ...)))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or ... ... ...)) (edebug-after (edebug-before 220) 222 (message "Wrote %s" ...))))))))
  epa-file-write-region(nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil)
  apply(epa-file-write-region (nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil))
  (if (and op (not epa-inhibit)) (apply op args) (epa-file-run-real-handler operation args))
  (let ((op (get operation 'epa-file))) (if (and op (not epa-inhibit)) (apply op args) (epa-file-run-real-handler operation args)))
  (progn (let ((op (get operation 'epa-file))) (if (and op (not epa-inhibit)) (apply op args) (epa-file-run-real-handler operation args))))
  (unwind-protect (progn (let ((op (get operation 'epa-file))) (if (and op (not epa-inhibit)) (apply op args) (epa-file-run-real-handler operation args)))) (set-match-data saved-match-data t))
  (let ((saved-match-data (match-data))) (unwind-protect (progn (let ((op (get operation 'epa-file))) (if (and op (not epa-inhibit)) (apply op args) (epa-file-run-real-handler operation args)))) (set-match-data saved-match-data t)))
  epa-file-handler(write-region nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil)
  write-region(nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg")
  basic-save-buffer-2()
  basic-save-buffer-1()
  basic-save-buffer(nil)
  save-buffer()
  #f(compiled-function (buffer) #<bytecode 0x8c750db3599e00a>)(#<buffer authinfo.gpg>)
  map-y-or-n-p(#f(compiled-function (buffer) #<bytecode 0x3861ff2c85e5a70>) #f(compiled-function (buffer) #<bytecode 0x8c750db3599e00a>) (#<buffer authinfo.gpg>) ("buffer" "buffers" "save") ((18 #f(compiled-function (buf) #<bytecode -0x13c467336852d4a4>) "view this buffer") (6 #f(compiled-function (buf) #<bytecode 0x81e69c1bf6c6e9c>) "view this buffer and quit") (100 #f(compiled-function (buf) #<bytecode -0x24aad661d8a3566>) "view changes in this buffer")))
  save-some-buffers(:no-prompt #f(compiled-function () #<bytecode 0x11658fcd9d115b5c>))
  apply(save-some-buffers (:no-prompt #f(compiled-function () #<bytecode 0x11658fcd9d115b5c>)))
  timer-event-handler([t 0 5 0 :repeat save-some-buffers (:no-prompt #f(compiled-function () #<bytecode 0x11658fcd9d115b5c>)) idle 0 nil])
  recursive-edit()
  edebug--recursive-edit(after)
  edebug--display-1((#s(epg-key :owner-trust ultimate :sub-key-list (#s(epg-sub-key :validity ultimate :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "1B5DF1C95AE89AC3" :creation-time 1422686308 :expiration-time nil :fingerprint "F09F650D7D674819892591401B5DF1C95AE89AC3") #s(epg-sub-key :validity ultimate :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "0251FA6886EB6B77" :creation-time 1422686308 :expiration-time nil :fingerprint "32A8581A6E137ABD26DA2F570251FA6886EB6B77")) :user-id-list (#s(epg-user-id :validity ultimate :string "stardiviner (numbchild@gmail.com) <numbchild@gmail..." :signature-list nil) #s(epg-user-id :validity ultimate :string "stardiviner (Christopher Miles) <numbchild@gmail.c..." :signature-list nil))) #s(epg-key :owner-trust none :sub-key-list (#s(epg-sub-key :validity none :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "B8C4B8E547C32433" :creation-time 1330690561 :expiration-time nil :fingerprint "9BAA92BCCDDDB9EF3B36CB99B8C4B8E547C32433") #s(epg-sub-key :validity none :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "AEDA8A17BB08B786" :creation-time 1330690561 :expiration-time nil :fingerprint "0DEF7425E79FE2E0090B424BAEDA8A17BB08B786")) :user-id-list (#s(epg-user-id :validity none :string "Christopher Miles (stardiviner, numbchild) <numbch..." :signature-list nil)))) 137 after)
  edebug--display((#s(epg-key :owner-trust ultimate :sub-key-list (#s(epg-sub-key :validity ultimate :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "1B5DF1C95AE89AC3" :creation-time 1422686308 :expiration-time nil :fingerprint "F09F650D7D674819892591401B5DF1C95AE89AC3") #s(epg-sub-key :validity ultimate :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "0251FA6886EB6B77" :creation-time 1422686308 :expiration-time nil :fingerprint "32A8581A6E137ABD26DA2F570251FA6886EB6B77")) :user-id-list (#s(epg-user-id :validity ultimate :string "stardiviner (numbchild@gmail.com) <numbchild@gmail..." :signature-list nil) #s(epg-user-id :validity ultimate :string "stardiviner (Christopher Miles) <numbchild@gmail.c..." :signature-list nil))) #s(epg-key :owner-trust none :sub-key-list (#s(epg-sub-key :validity none :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "B8C4B8E547C32433" :creation-time 1330690561 :expiration-time nil :fingerprint "9BAA92BCCDDDB9EF3B36CB99B8C4B8E547C32433") #s(epg-sub-key :validity none :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "AEDA8A17BB08B786" :creation-time 1330690561 :expiration-time nil :fingerprint "0DEF7425E79FE2E0090B424BAEDA8A17BB08B786")) :user-id-list (#s(epg-user-id :validity none :string "Christopher Miles (stardiviner, numbchild) <numbch..." :signature-list nil)))) 137 after)
  edebug-debugger(137 after (#s(epg-key :owner-trust ultimate :sub-key-list (#s(epg-sub-key :validity ultimate :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "1B5DF1C95AE89AC3" :creation-time 1422686308 :expiration-time nil :fingerprint "F09F650D7D674819892591401B5DF1C95AE89AC3") #s(epg-sub-key :validity ultimate :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "0251FA6886EB6B77" :creation-time 1422686308 :expiration-time nil :fingerprint "32A8581A6E137ABD26DA2F570251FA6886EB6B77")) :user-id-list (#s(epg-user-id :validity ultimate :string "stardiviner (numbchild@gmail.com) <numbchild@gmail..." :signature-list nil) #s(epg-user-id :validity ultimate :string "stardiviner (Christopher Miles) <numbchild@gmail.c..." :signature-list nil))) #s(epg-key :owner-trust none :sub-key-list (#s(epg-sub-key :validity none :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "B8C4B8E547C32433" :creation-time 1330690561 :expiration-time nil :fingerprint "9BAA92BCCDDDB9EF3B36CB99B8C4B8E547C32433") #s(epg-sub-key :validity none :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "AEDA8A17BB08B786" :creation-time 1330690561 :expiration-time nil :fingerprint "0DEF7425E79FE2E0090B424BAEDA8A17BB08B786")) :user-id-list (#s(epg-user-id :validity none :string "Christopher Miles (stardiviner, numbchild) <numbch..." :signature-list nil)))))
  edebug-after(134 137 (#s(epg-key :owner-trust ultimate :sub-key-list (#s(epg-sub-key :validity ultimate :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "1B5DF1C95AE89AC3" :creation-time 1422686308 :expiration-time nil :fingerprint "F09F650D7D674819892591401B5DF1C95AE89AC3") #s(epg-sub-key :validity ultimate :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "0251FA6886EB6B77" :creation-time 1422686308 :expiration-time nil :fingerprint "32A8581A6E137ABD26DA2F570251FA6886EB6B77")) :user-id-list (#s(epg-user-id :validity ultimate :string "stardiviner (numbchild@gmail.com) <numbchild@gmail..." :signature-list nil) #s(epg-user-id :validity ultimate :string "stardiviner (Christopher Miles) <numbchild@gmail.c..." :signature-list nil))) #s(epg-key :owner-trust none :sub-key-list (#s(epg-sub-key :validity none :capability (sign certify) :secret-p nil :algorithm 1 :length 2048 :id "B8C4B8E547C32433" :creation-time 1330690561 :expiration-time nil :fingerprint "9BAA92BCCDDDB9EF3B36CB99B8C4B8E547C32433") #s(epg-sub-key :validity none :capability (encrypt) :secret-p nil :algorithm 1 :length 2048 :id "AEDA8A17BB08B786" :creation-time 1330690561 :expiration-time nil :fingerprint "0DEF7425E79FE2E0090B424BAEDA8A17BB08B786")) :user-id-list (#s(epg-user-id :validity none :string "Christopher Miles (stardiviner, numbchild) <numbch..." :signature-list nil)))))
  (epg--filter-revoked-keys (edebug-after (edebug-before 134) 137 (epg-list-keys (edebug-after 0 135 context) (edebug-after 0 136 recipients))))
  (edebug-after (edebug-before 133) 138 (epg--filter-revoked-keys (edebug-after (edebug-before 134) 137 (epg-list-keys (edebug-after 0 135 context) (edebug-after 0 136 recipients)))))
  (if (edebug-after 0 132 epa-file-encrypt-to) (edebug-after (edebug-before 133) 138 (epg--filter-revoked-keys (edebug-after (edebug-before 134) 137 (epg-list-keys (edebug-after 0 135 context) (edebug-after 0 136 recipients))))))
  (edebug-after (edebug-before 131) 139 (if (edebug-after 0 132 epa-file-encrypt-to) (edebug-after (edebug-before 133) 138 (epg--filter-revoked-keys (edebug-after (edebug-before 134) 137 (epg-list-keys (edebug-after 0 135 context) (edebug-after 0 136 recipients)))))))
  (if (edebug-after (edebug-before 111) 126 (or (edebug-after (edebug-before 112) 114 (eq (edebug-after 0 113 epa-file-select-keys) t)) (edebug-after (edebug-before 115) 125 (and (edebug-after (edebug-before 116) 118 (null (edebug-after 0 117 epa-file-select-keys))) (edebug-after (edebug-before 119) 124 (not (edebug-after ... 123 ...))))))) (edebug-after (edebug-before 127) 130 (epa-select-keys (edebug-after 0 128 context) "Select recipients for encryption.\nIf no one is sel..." (edebug-after 0 129 recipients))) (edebug-after (edebug-before 131) 139 (if (edebug-after 0 132 epa-file-encrypt-to) (edebug-after (edebug-before 133) 138 (epg--filter-revoked-keys (edebug-after (edebug-before 134) 137 (epg-list-keys (edebug-after 0 135 context) (edebug-after 0 136 recipients))))))))
  (edebug-after (edebug-before 110) 140 (if (edebug-after (edebug-before 111) 126 (or (edebug-after (edebug-before 112) 114 (eq (edebug-after 0 113 epa-file-select-keys) t)) (edebug-after (edebug-before 115) 125 (and (edebug-after (edebug-before 116) 118 (null ...)) (edebug-after (edebug-before 119) 124 (not ...)))))) (edebug-after (edebug-before 127) 130 (epa-select-keys (edebug-after 0 128 context) "Select recipients for encryption.\nIf no one is sel..." (edebug-after 0 129 recipients))) (edebug-after (edebug-before 131) 139 (if (edebug-after 0 132 epa-file-encrypt-to) (edebug-after (edebug-before 133) 138 (epg--filter-revoked-keys (edebug-after (edebug-before 134) 137 (epg-list-keys ... ...))))))))
  (epg-encrypt-string (edebug-after 0 69 context) (edebug-after (edebug-before 70) 109 (if (edebug-after (edebug-before 71) 73 (stringp (edebug-after 0 72 start))) (edebug-after (edebug-before 74) 77 (encode-coding-string (edebug-after 0 75 start) (edebug-after 0 76 coding-system))) (edebug-after (edebug-before 78) 86 (if (edebug-after 0 79 start) nil (edebug-after (edebug-before 80) 85 (progn (setq start ...) (setq end ...))))) (edebug-after (edebug-before 87) 90 (setq buffer (edebug-after (edebug-before 88) 89 (current-buffer)))) (edebug-after (edebug-before 91) 108 (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...))))))) (edebug-after (edebug-before 110) 140 (if (edebug-after (edebug-before 111) 126 (or (edebug-after (edebug-before 112) 114 (eq (edebug-after 0 113 epa-file-select-keys) t)) (edebug-after (edebug-before 115) 125 (and (edebug-after ... 118 ...) (edebug-after ... 124 ...))))) (edebug-after (edebug-before 127) 130 (epa-select-keys (edebug-after 0 128 context) "Select recipients for encryption.\nIf no one is sel..." (edebug-after 0 129 recipients))) (edebug-after (edebug-before 131) 139 (if (edebug-after 0 132 epa-file-encrypt-to) (edebug-after (edebug-before 133) 138 (epg--filter-revoked-keys (edebug-after ... 137 ...))))))))
  (edebug-after (edebug-before 68) 141 (epg-encrypt-string (edebug-after 0 69 context) (edebug-after (edebug-before 70) 109 (if (edebug-after (edebug-before 71) 73 (stringp (edebug-after 0 72 start))) (edebug-after (edebug-before 74) 77 (encode-coding-string (edebug-after 0 75 start) (edebug-after 0 76 coding-system))) (edebug-after (edebug-before 78) 86 (if (edebug-after 0 79 start) nil (edebug-after (edebug-before 80) 85 (progn ... ...)))) (edebug-after (edebug-before 87) 90 (setq buffer (edebug-after (edebug-before 88) 89 (current-buffer)))) (edebug-after (edebug-before 91) 108 (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))))) (edebug-after (edebug-before 110) 140 (if (edebug-after (edebug-before 111) 126 (or (edebug-after (edebug-before 112) 114 (eq ... t)) (edebug-after (edebug-before 115) 125 (and ... ...)))) (edebug-after (edebug-before 127) 130 (epa-select-keys (edebug-after 0 128 context) "Select recipients for encryption.\nIf no one is sel..." (edebug-after 0 129 recipients))) (edebug-after (edebug-before 131) 139 (if (edebug-after 0 132 epa-file-encrypt-to) (edebug-after (edebug-before 133) 138 (epg--filter-revoked-keys ...))))))))
  (setq string (edebug-after (edebug-before 68) 141 (epg-encrypt-string (edebug-after 0 69 context) (edebug-after (edebug-before 70) 109 (if (edebug-after (edebug-before 71) 73 (stringp (edebug-after 0 72 start))) (edebug-after (edebug-before 74) 77 (encode-coding-string (edebug-after 0 75 start) (edebug-after 0 76 coding-system))) (edebug-after (edebug-before 78) 86 (if (edebug-after 0 79 start) nil (edebug-after ... 85 ...))) (edebug-after (edebug-before 87) 90 (setq buffer (edebug-after ... 89 ...))) (edebug-after (edebug-before 91) 108 (let (...) (save-current-buffer ... ...))))) (edebug-after (edebug-before 110) 140 (if (edebug-after (edebug-before 111) 126 (or (edebug-after ... 114 ...) (edebug-after ... 125 ...))) (edebug-after (edebug-before 127) 130 (epa-select-keys (edebug-after 0 128 context) "Select recipients for encryption.\nIf no one is sel..." (edebug-after 0 129 recipients))) (edebug-after (edebug-before 131) 139 (if (edebug-after 0 132 epa-file-encrypt-to) (edebug-after ... 138 ...))))))))
  (edebug-after (edebug-before 67) 142 (setq string (edebug-after (edebug-before 68) 141 (epg-encrypt-string (edebug-after 0 69 context) (edebug-after (edebug-before 70) 109 (if (edebug-after (edebug-before 71) 73 (stringp ...)) (edebug-after (edebug-before 74) 77 (encode-coding-string ... ...)) (edebug-after (edebug-before 78) 86 (if ... nil ...)) (edebug-after (edebug-before 87) 90 (setq buffer ...)) (edebug-after (edebug-before 91) 108 (let ... ...)))) (edebug-after (edebug-before 110) 140 (if (edebug-after (edebug-before 111) 126 (or ... ...)) (edebug-after (edebug-before 127) 130 (epa-select-keys ... "Select recipients for encryption.\nIf no one is sel..." ...)) (edebug-after (edebug-before 131) 139 (if ... ...))))))))
  (condition-case error (edebug-after (edebug-before 67) 142 (setq string (edebug-after (edebug-before 68) 141 (epg-encrypt-string (edebug-after 0 69 context) (edebug-after (edebug-before 70) 109 (if (edebug-after ... 73 ...) (edebug-after ... 77 ...) (edebug-after ... 86 ...) (edebug-after ... 90 ...) (edebug-after ... 108 ...))) (edebug-after (edebug-before 110) 140 (if (edebug-after ... 126 ...) (edebug-after ... 130 ...) (edebug-after ... 139 ...))))))) (error (edebug-after (edebug-before 143) 145 (epa-display-error (edebug-after 0 144 context))) (edebug-after (edebug-before 146) 156 (if (edebug-after (edebug-before 147) 152 (setq entry (edebug-after (edebug-before 148) 151 (assoc ... ...)))) (edebug-after (edebug-before 153) 155 (setcdr (edebug-after 0 154 entry) nil)))) (edebug-after (edebug-before 157) 163 (signal 'file-error (edebug-after (edebug-before 158) 162 (cons "Opening output file" (edebug-after (edebug-before 159) 161 (cdr ...))))))))
  (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string (edebug-after (edebug-before 68) 141 (epg-encrypt-string (edebug-after 0 69 context) (edebug-after (edebug-before 70) 109 (if ... ... ... ... ...)) (edebug-after (edebug-before 110) 140 (if ... ... ...)))))) (error (edebug-after (edebug-before 143) 145 (epa-display-error (edebug-after 0 144 context))) (edebug-after (edebug-before 146) 156 (if (edebug-after (edebug-before 147) 152 (setq entry (edebug-after ... 151 ...))) (edebug-after (edebug-before 153) 155 (setcdr (edebug-after 0 154 entry) nil)))) (edebug-after (edebug-before 157) 163 (signal 'file-error (edebug-after (edebug-before 158) 162 (cons "Opening output file" (edebug-after ... 161 ...))))))))
  (let* ((coding-system (edebug-after (edebug-before 11) 27 (or (edebug-after 0 12 coding-system-for-write) (edebug-after (edebug-before 13) 26 (if (edebug-after ... 15 ...) (edebug-after ... 24 ...) (edebug-after 0 25 buffer-file-coding-system)))))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond ((edebug-after (edebug-before 31) 33 (listp ...)) (edebug-after 0 34 epa-file-encrypt-to)) ((edebug-after (edebug-before 35) 37 (stringp ...)) (edebug-after (edebug-before 38) 40 (list ...)))))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons (edebug-after (edebug-before 45) 46 #'epa-file-passphrase-callback-function) (edebug-after 0 47 file))))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons (edebug-after (edebug-before 53) 54 #'epa-progress-callback-function) (edebug-after (edebug-before 55) 57 (format "Encrypting %s" (edebug-after 0 56 file))))))) (edebug-after (edebug-before 60) 65 (let ((cl-x (edebug-after 0 62 context))) (or (let ((cl-x cl-x)) (progn (and (memq ... cl-struct-epg-context-tags) t))) (signal 'wrong-type-argument (list 'epg-context cl-x))) (let* ((v cl-x)) (edebug-after (edebug-before 61) 63 (aset v 4 (edebug-after 0 64 epa-armor)))))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string (edebug-after (edebug-before 68) 141 (epg-encrypt-string (edebug-after 0 69 context) (edebug-after ... 109 ...) (edebug-after ... 140 ...))))) (error (edebug-after (edebug-before 143) 145 (epa-display-error (edebug-after 0 144 context))) (edebug-after (edebug-before 146) 156 (if (edebug-after (edebug-before 147) 152 (setq entry ...)) (edebug-after (edebug-before 153) 155 (setcdr ... nil)))) (edebug-after (edebug-before 157) 163 (signal 'file-error (edebug-after (edebug-before 158) 162 (cons "Opening output file" ...))))))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list (edebug-after 0 169 string) nil (edebug-after 0 170 file) (edebug-after 0 171 append) (edebug-after 0 172 visit) (edebug-after 0 173 lockname) (edebug-after 0 174 mustbenew))))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp 'last-coding-system-used)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used (edebug-after 0 181 coding-system))))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq (edebug-after 0 186 visit) t)) (edebug-after (edebug-before 188) 194 (progn (edebug-after (edebug-before 189) 191 (setq buffer-file-name (edebug-after 0 190 file))) (edebug-after (edebug-before 192) 193 (set-visited-file-modtime)))) (edebug-after (edebug-before 195) 206 (if (edebug-after (edebug-before 196) 198 (stringp (edebug-after 0 197 visit))) (edebug-after (edebug-before 199) 205 (progn (edebug-after ... 201 ...) (edebug-after ... 204 ...))))))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or (edebug-after (edebug-before 210) 212 (eq (edebug-after 0 211 visit) t)) (edebug-after (edebug-before 213) 215 (eq (edebug-after 0 214 visit) nil)) (edebug-after (edebug-before 216) 218 (stringp (edebug-after 0 217 visit))))) (edebug-after (edebug-before 220) 222 (message "Wrote %s" (edebug-after 0 221 buffer-file-name))))))
  (edebug-after (edebug-before 10) 224 (let* ((coding-system (edebug-after (edebug-before 11) 27 (or (edebug-after 0 12 coding-system-for-write) (edebug-after (edebug-before 13) 26 (if ... ... ...))))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond ((edebug-after ... 33 ...) (edebug-after 0 34 epa-file-encrypt-to)) ((edebug-after ... 37 ...) (edebug-after ... 40 ...))))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons (edebug-after (edebug-before 45) 46 #'epa-file-passphrase-callback-function) (edebug-after 0 47 file))))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons (edebug-after (edebug-before 53) 54 #'epa-progress-callback-function) (edebug-after (edebug-before 55) 57 (format "Encrypting %s" ...)))))) (edebug-after (edebug-before 60) 65 (let ((cl-x (edebug-after 0 62 context))) (or (let ((cl-x cl-x)) (progn (and ... t))) (signal 'wrong-type-argument (list 'epg-context cl-x))) (let* ((v cl-x)) (edebug-after (edebug-before 61) 63 (aset v 4 (edebug-after 0 64 epa-armor)))))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string (edebug-after (edebug-before 68) 141 (epg-encrypt-string ... ... ...)))) (error (edebug-after (edebug-before 143) 145 (epa-display-error (edebug-after 0 144 context))) (edebug-after (edebug-before 146) 156 (if (edebug-after ... 152 ...) (edebug-after ... 155 ...))) (edebug-after (edebug-before 157) 163 (signal 'file-error (edebug-after ... 162 ...)))))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list (edebug-after 0 169 string) nil (edebug-after 0 170 file) (edebug-after 0 171 append) (edebug-after 0 172 visit) (edebug-after 0 173 lockname) (edebug-after 0 174 mustbenew))))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp 'last-coding-system-used)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used (edebug-after 0 181 coding-system))))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq (edebug-after 0 186 visit) t)) (edebug-after (edebug-before 188) 194 (progn (edebug-after (edebug-before 189) 191 (setq buffer-file-name ...)) (edebug-after (edebug-before 192) 193 (set-visited-file-modtime)))) (edebug-after (edebug-before 195) 206 (if (edebug-after (edebug-before 196) 198 (stringp ...)) (edebug-after (edebug-before 199) 205 (progn ... ...)))))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or (edebug-after (edebug-before 210) 212 (eq ... t)) (edebug-after (edebug-before 213) 215 (eq ... nil)) (edebug-after (edebug-before 216) 218 (stringp ...)))) (edebug-after (edebug-before 220) 222 (message "Wrote %s" (edebug-after 0 221 buffer-file-name)))))))
  (closure ((mustbenew) (lockname . "~/.config/emacs/secrets/authinfo.gpg") (visit . t) (append) (file . "/Users/stardiviner/.config/emacs/secrets/authinfo....") (end . 1960) (start . 1) t) nil :closure-dont-trim-context (edebug-after (edebug-before 0) 4 (if (edebug-after 0 1 append) (edebug-after (edebug-before 2) 3 (error "Can't append to the file")))) (edebug-after (edebug-before 5) 9 (setq file (edebug-after (edebug-before 6) 8 (expand-file-name (edebug-after 0 7 file))))) (edebug-after (edebug-before 10) 224 (let* ((coding-system (edebug-after (edebug-before 11) 27 (or (edebug-after 0 12 coding-system-for-write) (edebug-after ... 26 ...)))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond (... ...) (... ...)))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons (edebug-after ... 46 ...) (edebug-after 0 47 file))))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons (edebug-after ... 54 ...) (edebug-after ... 57 ...))))) (edebug-after (edebug-before 60) 65 (let ((cl-x (edebug-after 0 62 context))) (or (let (...) (progn ...)) (signal 'wrong-type-argument (list ... cl-x))) (let* ((v cl-x)) (edebug-after (edebug-before 61) 63 (aset v 4 ...))))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string (edebug-after ... 141 ...))) (error (edebug-after (edebug-before 143) 145 (epa-display-error ...)) (edebug-after (edebug-before 146) 156 (if ... ...)) (edebug-after (edebug-before 157) 163 (signal ... ...))))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list (edebug-after 0 169 string) nil (edebug-after 0 170 file) (edebug-after 0 171 append) (edebug-after 0 172 visit) (edebug-after 0 173 lockname) (edebug-after 0 174 mustbenew))))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp 'last-coding-system-used)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used (edebug-after 0 181 coding-system))))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq (edebug-after 0 186 visit) t)) (edebug-after (edebug-before 188) 194 (progn (edebug-after ... 191 ...) (edebug-after ... 193 ...))) (edebug-after (edebug-before 195) 206 (if (edebug-after ... 198 ...) (edebug-after ... 205 ...))))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or (edebug-after ... 212 ...) (edebug-after ... 215 ...) (edebug-after ... 218 ...))) (edebug-after (edebug-before 220) 222 (message "Wrote %s" (edebug-after 0 221 buffer-file-name))))))))()
  edebug-default-enter(epa-file-write-region (nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil) (closure ((mustbenew) (lockname . "~/.config/emacs/secrets/authinfo.gpg") (visit . t) (append) (file . "/Users/stardiviner/.config/emacs/secrets/authinfo....") (end . 1960) (start . 1) t) nil :closure-dont-trim-context (edebug-after (edebug-before 0) 4 (if (edebug-after 0 1 append) (edebug-after (edebug-before 2) 3 (error "Can't append to the file")))) (edebug-after (edebug-before 5) 9 (setq file (edebug-after (edebug-before 6) 8 (expand-file-name (edebug-after 0 7 file))))) (edebug-after (edebug-before 10) 224 (let* ((coding-system (edebug-after (edebug-before 11) 27 (or ... ...))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond ... ...))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons ... ...)))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons ... ...)))) (edebug-after (edebug-before 60) 65 (let ((cl-x ...)) (or (let ... ...) (signal ... ...)) (let* (...) (edebug-after ... 63 ...)))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string ...)) (error (edebug-after ... 145 ...) (edebug-after ... 156 ...) (edebug-after ... 163 ...)))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list ... nil ... ... ... ... ...)))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp ...)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used ...)))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq ... t)) (edebug-after (edebug-before 188) 194 (progn ... ...)) (edebug-after (edebug-before 195) 206 (if ... ...)))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or ... ... ...)) (edebug-after (edebug-before 220) 222 (message "Wrote %s" ...))))))))
  edebug-default-enter(epa-file-write-region (nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil) (closure ((mustbenew) (lockname . "~/.config/emacs/secrets/authinfo.gpg") (visit . t) (append) (file . "/Users/stardiviner/.config/emacs/secrets/authinfo....") (end . 1960) (start . 1) t) nil :closure-dont-trim-context (edebug-after (edebug-before 0) 4 (if (edebug-after 0 1 append) (edebug-after (edebug-before 2) 3 (error "Can't append to the file")))) (edebug-after (edebug-before 5) 9 (setq file (edebug-after (edebug-before 6) 8 (expand-file-name (edebug-after 0 7 file))))) (edebug-after (edebug-before 10) 224 (let* ((coding-system (edebug-after (edebug-before 11) 27 (or ... ...))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond ... ...))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons ... ...)))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons ... ...)))) (edebug-after (edebug-before 60) 65 (let ((cl-x ...)) (or (let ... ...) (signal ... ...)) (let* (...) (edebug-after ... 63 ...)))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string ...)) (error (edebug-after ... 145 ...) (edebug-after ... 156 ...) (edebug-after ... 163 ...)))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list ... nil ... ... ... ... ...)))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp ...)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used ...)))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq ... t)) (edebug-after (edebug-before 188) 194 (progn ... ...)) (edebug-after (edebug-before 195) 206 (if ... ...)))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or ... ... ...)) (edebug-after (edebug-before 220) 222 (message "Wrote %s" ...))))))))
  edebug-enter(epa-file-write-region (nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil) (closure ((mustbenew) (lockname . "~/.config/emacs/secrets/authinfo.gpg") (visit . t) (append) (file . "/Users/stardiviner/.config/emacs/secrets/authinfo....") (end . 1960) (start . 1) t) nil :closure-dont-trim-context (edebug-after (edebug-before 0) 4 (if (edebug-after 0 1 append) (edebug-after (edebug-before 2) 3 (error "Can't append to the file")))) (edebug-after (edebug-before 5) 9 (setq file (edebug-after (edebug-before 6) 8 (expand-file-name (edebug-after 0 7 file))))) (edebug-after (edebug-before 10) 224 (let* ((coding-system (edebug-after (edebug-before 11) 27 (or ... ...))) (context (edebug-after (edebug-before 28) 29 (epg-make-context))) (coding-system-for-write 'binary) string entry (recipients (edebug-after (edebug-before 30) 41 (cond ... ...))) buffer) (edebug-after (edebug-before 42) 49 (epg-context-set-passphrase-callback (edebug-after 0 43 context) (edebug-after (edebug-before 44) 48 (cons ... ...)))) (edebug-after (edebug-before 50) 59 (epg-context-set-progress-callback (edebug-after 0 51 context) (edebug-after (edebug-before 52) 58 (cons ... ...)))) (edebug-after (edebug-before 60) 65 (let ((cl-x ...)) (or (let ... ...) (signal ... ...)) (let* (...) (edebug-after ... 63 ...)))) (edebug-after (edebug-before 66) 164 (condition-case error (edebug-after (edebug-before 67) 142 (setq string ...)) (error (edebug-after ... 145 ...) (edebug-after ... 156 ...) (edebug-after ... 163 ...)))) (edebug-after (edebug-before 165) 176 (epa-file-run-real-handler (edebug-after (edebug-before 166) 167 #'write-region) (edebug-after (edebug-before 168) 175 (list ... nil ... ... ... ... ...)))) (edebug-after (edebug-before 177) 183 (if (edebug-after (edebug-before 178) 179 (boundp ...)) (edebug-after (edebug-before 180) 182 (setq last-coding-system-used ...)))) (edebug-after (edebug-before 184) 207 (if (edebug-after (edebug-before 185) 187 (eq ... t)) (edebug-after (edebug-before 188) 194 (progn ... ...)) (edebug-after (edebug-before 195) 206 (if ... ...)))) (edebug-after (edebug-before 208) 223 (if (edebug-after (edebug-before 209) 219 (or ... ... ...)) (edebug-after (edebug-before 220) 222 (message "Wrote %s" ...))))))))
  epa-file-write-region(nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil)
  apply(epa-file-write-region (nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil))
  (if (and op (not epa-inhibit)) (apply op args) (epa-file-run-real-handler operation args))
  (let ((op (get operation 'epa-file))) (if (and op (not epa-inhibit)) (apply op args) (epa-file-run-real-handler operation args)))
  (progn (let ((op (get operation 'epa-file))) (if (and op (not epa-inhibit)) (apply op args) (epa-file-run-real-handler operation args))))
  (unwind-protect (progn (let ((op (get operation 'epa-file))) (if (and op (not epa-inhibit)) (apply op args) (epa-file-run-real-handler operation args)))) (set-match-data saved-match-data t))
  (let ((saved-match-data (match-data))) (unwind-protect (progn (let ((op (get operation 'epa-file))) (if (and op (not epa-inhibit)) (apply op args) (epa-file-run-real-handler operation args)))) (set-match-data saved-match-data t)))
  epa-file-handler(write-region nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg" nil)
  write-region(nil nil "/Users/stardiviner/.config/emacs/secrets/authinfo...." nil t "~/.config/emacs/secrets/authinfo.gpg")
  basic-save-buffer-2()
  basic-save-buffer-1()
  basic-save-buffer(t)
  save-buffer(1)
  funcall-interactively(save-buffer 1)
  call-interactively(save-buffer nil nil)
  command-execute(save-buffer)
#+end_example

Environment:

#+begin_src sh :eval no
$ gpg --version
gpg (GnuPG) 2.4.1
libgcrypt 1.10.2
Copyright (C) 2023 g10 Code GmbH
License GNU GPL-3.0-or-later <https://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.

Home: /Users/stardiviner/.gnupg
Supported algorithms:
Pubkey: RSA, ELG, DSA, ECDH, ECDSA, EDDSA
Cipher: IDEA, 3DES, CAST5, BLOWFISH, AES, AES192, AES256, TWOFISH,
        CAMELLIA128, CAMELLIA192, CAMELLIA256
Hash: SHA1, RIPEMD160, SHA256, SHA384, SHA512, SHA224
Compression: Uncompressed, ZIP, ZLIB, BZIP2
#+end_src

#+begin_src emacs-lisp
(emacs-version)
#+end_src

#+RESULTS[(2023-05-02 10:57:56) ad277f3210da682b9a8f2b15d7843ef0163e6cf2]:
: GNU Emacs 30.0.50 (build 1, aarch64-apple-darwin22.4.0, NS appkit-2299.50 Version 13.3.1 (Build 22E261))
:  of 2023-04-27

----------------------------------------------------------------------------------------------------

- [X] troubleshooting
  + [X] uninstall newly installed Emacs packages "chatgpt-shell" etc.
  + [X] check out GnuPG config files
  + [X] redo encrypt & sign =authinfo.gpg= file
  + [X] emacs minimal config for reproduce -> confirmed problem
- [X] search
  + [X] https://superuser.com/questions/366035/how-can-i-disable-prompt-about-trust-when-encrypting-file-with-gpg-in-emacs
  + [X] https://superuser.com/questions/1204820/emacs-easypg-asks-what-key-to-use-although-epa-file-encrypt-to-already-specified
- [X] troubleshooting
  - [X] src_emacs-lisp{(getenv "DISPLAY")} {{{results(=ssh-askpass=)}}} 
- [X] edebug
  + [X] save-buffer
    - [X] epa-file-handler
      + [X] epa-file-write-region
        - [X] epg-encrypt-string
          + [X] epg-start-encrypt
            - [X] epg-wait-for-status
              + [X] accept-process-output -> the process seems return 1 exit code?

- [X] epg context

#+begin_src emacs-lisp
(epg-make-context)
#+end_src

#+RESULTS[(2023-05-02 09:42:28) ff5134e662dc53f52cd8e5807acefe25a94cc5c3]:
: #s(epg-context :protocol OpenPGP :program "/opt/homebrew/bin/gpg" :home-directory "/Users/stardiviner/.gnupg" :armor nil :textmode nil :include-certs nil :cipher-algorithm nil :digest-algorithm nil :compress-algorithm nil :passphrase-callback (epa-passphrase-callback-function) :progress-callback nil :edit-callback nil :signers nil :sender nil :sig-notations nil :process nil :output-file nil :result nil :operation nil :pinentry-mode loopback :error-output "" :error-buffer nil)

I took a screenshot of edebugged function internal error. (NOTE: The result is shown in yellow line of "Result: ...")


[-- Attachment #1.2: Edebug screenshot --]
[-- Type: image/png, Size: 477347 bytes --]

[-- Attachment #1.3: edebug screenshot --]
[-- Type: image/png, Size: 477347 bytes --]

[-- Attachment #1.4: Type: text/plain, Size: 3009 bytes --]


- [X] find bellowing two key ID belongs where

Untrusted key "AEDA8A17BB08B786" ---> fingerprint "0DEF7425E79FE2E0090B424BAEDA8A17BB08B786" --> my old key
((invalid-recipient (reason . 10) (requested . "B8C4B8E547C32433"))) --> "F09F650D7D674819892591401B5DF1C95AE89AC3" --> my current new gnupg key

Question: I don't know why my current gnupg key and old gnupg key are together.

Here is my Emacs EasyPG (epa) config:

#+begin_src emacs-lisp
(use-package epa
  ;; force Emacs to use its own internal password prompt instead of an external
  ;; pinentry program.
  :preface (setenv "GPG_AGENT_INFO" nil)
  :custom ((epa-pinentry-mode 'loopback) ; let EasyPG Assistant to use loopback for pinentry.
           ;; cache passphrase for symmetric encryption.
           ;; For security reasons, this option is turned off by default and
           ;; not recommended to use.  Instead, consider using gpg-agent which
           ;; does the same job in a safer way.
           (epa-file-cache-passphrase-for-symmetric-encryption t)
           (epa-file-inhibit-auto-save t)
           (epa-keyserver "keys.openpgp.org")
           (epa-file-encrypt-to '("F09F650D7D674819892591401B5DF1C95AE89AC3"
                                  "stardiviner" "numbchild@gmail.com"))
           (epa-file-select-keys (if (null epa-file-encrypt-to) t nil)))
  :commands (epa-search-keys)
  :init (epa-file-enable)
  (add-to-list 'display-buffer-alist '("^\\*Keys\\*" . (display-buffer-below-selected)))
  :config
  ;; Decrypt to load session at Emacs startup beginning to avoid pause prompt.
  (my/json-read-value my/account-file 'ejc-sql-postgresql))
#+end_src

#+begin_src sh
gpg --list-public-keys 0DEF7425E79FE2E0090B424BAEDA8A17BB08B786
#+end_src

#+RESULTS[(2023-05-02 10:28:48) 8315506b0a6956294dbacb0276a25b482a834e5c]:
: pub   rsa2048 2012-03-02 [SC]
:       9BAA92BCCDDDB9EF3B36CB99B8C4B8E547C32433
: uid           [ultimate] Christopher Miles (stardiviner, numbchild) <numbchild@gmail.com>
: sub   rsa2048 2012-03-02 [E]
: 

#+begin_src sh :eval no
gpg --edit-key 0DEF7425E79FE2E0090B424BAEDA8A17BB08B786
#+end_src

- [X] downgrade macOS Homebrew installed GnuPG version
  Formula: https://github.com/Homebrew/homebrew-core/blob/HEAD/Formula/gnupg.rb
  History: https://github.com/Homebrew/homebrew-core/commits/c72069733f8b12857afe9a9cdd1c9a73bc16f4a8/Formula/gnupg.rb
  #+begin_src sh
  brew install gnupg@2.2
  #+end_src
- [X] restart macOS system

- [X] =$ emacs-minimal-init=
  + [X] open and save modified "authinfo.gpg" file success

- [X] try to re-install gnupg broken version, re-install emacs@30 through Homebrew -> still have
  problem, so I think problem is not on Emacs side.

-- 

[ stardiviner ]
I try to make every word tell the meaning that I want to express without misunderstanding.

Blog: https://stardiviner.github.io/
IRC(libera.chat, freenode): stardiviner, Matrix: stardiviner
GPG: F09F650D7D674819892591401B5DF1C95AE89AC3

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 487 bytes --]

next prev parent reply	other threads:[~2023-05-02  4:15 UTC|newest]

Thread overview: 29+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2023-04-30 20:21 [PATCH] org-crypt-decrypt-entry: Apply initial visibility upon decryption Ihor Radchenko
2023-05-01  3:41 ` [SUGGESTION] " Christopher M. Miles
2023-05-01  7:50   ` Ihor Radchenko
2023-05-01 11:32     ` Christopher M. Miles
2023-05-01 11:46       ` Ihor Radchenko
2023-05-01 12:26         ` Christopher M. Miles
2023-05-01 12:38           ` Ihor Radchenko
2023-05-01 13:12             ` Christopher M. Miles
2023-05-01 13:38               ` Ihor Radchenko
2023-05-01 19:10                 ` Christopher M. Miles
2023-05-01 19:18                   ` Ihor Radchenko
     [not found]             ` <m2sfcgmbpo.fsf@numbchild>
2023-05-02  4:00               ` Christopher M. Miles [this message]
2023-05-02 11:57                 ` [EasyPG (epa)] Emacs can't save modified encrypted file Ihor Radchenko
2023-05-02 17:38                   ` Christopher M. Miles
2023-05-02 20:08                     ` Ihor Radchenko
2023-05-03 10:40                       ` Christopher M. Miles
2023-05-03 12:08                         ` Ihor Radchenko
2023-05-03 16:51                           ` Christopher M. Miles
2023-05-03 17:02                             ` Ihor Radchenko
2023-05-03 17:29                               ` [Uploaded Edebug video] " Christopher M. Miles
2023-05-03 19:08                                 ` Ihor Radchenko
2023-05-04  2:28                                   ` Christopher M. Miles
2023-05-04 17:28                                     ` Ihor Radchenko
2023-05-05  6:30                                       ` Christopher M. Miles
2023-05-05  8:36                                         ` Ihor Radchenko
2023-05-05 13:20                                           ` Christopher M. Miles
2023-05-05 15:29                                           ` Christopher M. Miles
2023-05-15 13:38 ` [PATCH] org-crypt-decrypt-entry: Apply initial visibility upon decryption Ihor Radchenko
2023-05-15 15:56 ` Christopher M. Miles

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=m2354fpe96.fsf@numbchild@gmail.com \
    --to=numbchild@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=yantar92@posteo.net \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Be sure your reply has a Subject: header at the top and a blank line before the message body.

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).