Not prompting user in gnus-mime-delete-part and gnus-mime-save-part-and-strip

[Reiner Steib <reinersteib+gmane@imap.cc>]

Hi,

I'd like to have an option in Gnus to get rid of the prompt "Deleting
parts may malfunction or destroy the article; continue?" when deleting
or stripping attachments.

My first idea [1] was to skip the prompt when `gnus-expert-user' is
non-nil, but it's doc string says:

,----[ C-h v gnus-expert-user RET ]
| gnus-expert-user's value is t
| 
| *Non-nil means that you will never be asked for confirmation about anything.
| That doesn't mean *anything* anything; particularly destructive
| commands will still require prompting.
`----

Deleting parts is destructive of course, but not more destructive than
`gnus-summary-delete-article'.  Should I add a separately variable,
say `gnus-interactive-delete' instead or use `gnus-expert-user'?

,----[ C-h v gnus-interactive-delete RET ]
| gnus-interactive-delete's value is t
| 
| If non-nil, require your confirmation deleting or stripping mime parts
| 
| You can customize this variable.
`----

Bye, Reiner.

[1]
--8<---------------cut here---------------start------------->8---
--- gnus-art.el	26 Aug 2005 00:05:03 -0000	7.111
+++ gnus-art.el	26 Aug 2005 12:14:16 -0000
@@ -4147,8 +4147,9 @@
   (when (mm-complicated-handles gnus-article-mime-handles)
     (error "\
 The current article has a complicated MIME structure, giving up..."))
-  (when (gnus-yes-or-no-p "\
-Deleting parts may malfunction or destroy the article; continue? ")
+  (when (or gnus-expert-user
+	    (gnus-yes-or-no-p "\
+Deleting parts may malfunction or destroy the article; continue? "))
     (let* ((data (get-text-property (point) 'gnus-data))
 	   file param
 	   (handles gnus-article-mime-handles))
@@ -4181,8 +4182,9 @@
   (when (mm-complicated-handles gnus-article-mime-handles)
     (error "\
 The current article has a complicated MIME structure, giving up..."))
-  (when (gnus-yes-or-no-p "\
-Deleting parts may malfunction or destroy the article; continue? ")
+  (when (or gnus-expert-user
+	    (gnus-yes-or-no-p "\
+Deleting parts may malfunction or destroy the article; continue? "))
     (let* ((data (get-text-property (point) 'gnus-data))
 	   (handles gnus-article-mime-handles)
 	   (none "(none)")
--8<---------------cut here---------------end--------------->8---
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/