Merge branch 'maint'

2021-04-27 10:21:53 +02:00 · 2021-04-27 10:21:53 +02:00 · 17084f6425
parent 94d8d8ff50 b1ff9afc3b
commit 17084f6425
1 changed files with 4 additions and 1 deletions
--- a/lisp/ox.el
+++ b/lisp/ox.el
@ -6446,7 +6446,10 @@ Return file name as a string."
 			 (throw :found
 				(org-element-property :value element))))))))
 	     ;; Extract from buffer's associated file, if any.
-	     (and visited-file (file-name-nondirectory visited-file))
+	     (and visited-file
+                  (file-name-nondirectory
+                   ;; For a .gpg visited file, remove the .gpg extension:
+                   (replace-regexp-in-string "\\.gpg\\'" "" visited-file)))
 	     ;; Can't determine file name on our own: ask user.
 	     (read-file-name
 	      "Output file: " pub-dir nil nil nil