bug#32214: [PATCH] 'message-kill-buffer': fix backup delete question

[Sven Willner <sven.willner@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 363 bytes --]

good idea!

have incorporated that in the appended patch.
also, the 'when' part should only include the actual deletion of 
the backup file
>  	(ignore-errors
>  	  (delete-file auto-save-file-name))
rather than also draft diassociation
>  	(let ((message-draft-article draft-article))
>  	  (message-disassociate-draft)))
also fixed in the updated patch.

Sven


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-message-kill-buffer-fix-backup-delete-question.patch --]
[-- Type: text/x-diff, Size: 2918 bytes --]

From 754d5c02f6b8c47c59fdd88e3c71f1a74761591a Mon Sep 17 00:00:00 2001
From: Sven Willner <sven.willner@gmail.com>
Date: Thu, 19 Jul 2018 13:20:26 +0200
Subject: [PATCH] 'message-kill-buffer': fix backup delete question

Before 'message-kill-buffer' would ask to delete backup file if draft has been
saved regardless if a backup file has actually been created. Now only ask if
a backup file exists.

Copyright-paperwork-exempt: yes
---
 etc/NEWS             |  3 +++
 lisp/gnus/message.el | 42 +++++++++++++++++++++---------------------
 2 files changed, 24 insertions(+), 21 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index f30ab69823..55997b1bf2 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -562,6 +562,9 @@ GnuTLS manual) is recommended instead.
 \f
 ** Message
 
+---
+*** 'message-kill-buffer' asks to delete backup file only if one actually exists
+
 +++
 *** Messages can now be systematically encrypted
 when the PGP keyring contains a public key for every recipient.  To
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index dde9c28656..e830d7f239 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4085,23 +4085,23 @@ Instead, just auto-save the buffer and then bury it."
 	  (modified (buffer-modified-p)))
       (setq buffer-file-name nil)
       (kill-buffer (current-buffer))
-      (when (and (or (and auto-save-file-name
-			  (file-exists-p auto-save-file-name))
-		     (and file-name
-			  (file-exists-p file-name)))
-		 (progn
-		   ;; If the message buffer has lived in a dedicated window,
-		   ;; `kill-buffer' has killed the frame.  Thus the
-		   ;; `yes-or-no-p' may show up in a lowered frame.  Make sure
-		   ;; that the user can see the question by raising the
-		   ;; current frame:
-		   (raise-frame)
-		   (yes-or-no-p (format "Remove the backup file%s? "
-					(if modified " too" "")))))
-	(ignore-errors
-	  (delete-file auto-save-file-name))
-	(let ((message-draft-article draft-article))
-	  (message-disassociate-draft)))
+      (when (and auto-save-file-name
+                 (file-exists-p auto-save-file-name)
+                 file-name
+                 (file-exists-p file-name)
+                 (progn
+                   ;; If the message buffer has lived in a dedicated window,
+                   ;; `kill-buffer' has killed the frame.  Thus the
+                   ;; `yes-or-no-p' may show up in a lowered frame.  Make sure
+                   ;; that the user can see the question by raising the
+                   ;; current frame:
+                   (raise-frame)
+                   (yes-or-no-p (format "Remove the backup file%s? "
+                                        (if modified " too" "")))))
+	    (ignore-errors
+	      (delete-file auto-save-file-name)))
+	  (let ((message-draft-article draft-article))
+	    (message-disassociate-draft))
       (message-do-actions actions))))
 
 (defun message-bury (buffer)
--
2.18.0


[-- Attachment #3: Type: text/plain, Size: 582 bytes --]



Robert Pluim <rpluim@gmail.com> writes:

> Sven Willner <sven.willner@gmail.com> writes:
>
>>  	(ignore-errors
>>  	  (delete-file auto-save-file-name))
>>  	(let ((message-draft-article draft-article))
>>  	  (message-disassociate-draft)))
>> + (when (and (and auto-save-file-name
>> + (file-exists-p auto-save-file-name))
>> + (and file-name
>> + (file-exists-p file-name))
>
> (when (and auto-save-file-name
>            (file-exists-p auto-save-file-name)
>            file-name
>            (file-exists-p file-name))
>
> perhaps? You could even drop the 'when'.
>
> Robert