* epa-file.el (epa-file-name-regexp): Accept backup filenames.

Suggested by "[ #10192 ] customizing epa-file-name-regexp fails"

diff --git a/ChangeLog b/ChangeLog
index b81242a..a6cec04 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-06  Daiki Ueno  <ueno@unixuser.org>
+
+       * epa-file.el (epa-file-name-regexp): Accept backup filenames.
+       Suggested by "[ #10192 ] customizing epa-file-name-regexp fails"
+
 2007-04-04  Daiki Ueno  <ueno@unixuser.org>
 
        * epa-file.el (epa-file--file-name-regexp-set): New Custom :set

diff --git a/epa-file.el b/epa-file.el
index 5c3d1a5..777a1a9 100644 (file)
--- a/epa-file.el
+++ b/epa-file.el
@@ -34,7 +34,7 @@
   (if (fboundp 'epa-file-name-regexp-update)
       (epa-file-name-regexp-update)))
 
-(defcustom epa-file-name-regexp "\\.gpg\\'"
+(defcustom epa-file-name-regexp "\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'"
   "Regexp which matches filenames to be encrypted with GnuPG.
 
 If you set this outside Custom while epa-file is already enabled, you