From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/60812 Path: news.gmane.org!not-for-mail From: Reiner Steib Newsgroups: gmane.emacs.gnus.general Subject: Not prompting user in gnus-mime-delete-part and gnus-mime-save-part-and-strip Date: Fri, 26 Aug 2005 14:23:18 +0200 Organization: Dept. of Theoretical Physics, University of Ulm Message-ID: Reply-To: Reiner Steib NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1125059330 16127 80.91.229.2 (26 Aug 2005 12:28:50 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 26 Aug 2005 12:28:50 +0000 (UTC) Original-X-From: ding-owner+M9344=ding+2Daccount=gmane.org@lists.math.uh.edu Fri Aug 26 14:28:45 2005 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1E8dIO-0003te-Fc for ding-account@gmane.org; Fri, 26 Aug 2005 14:26:56 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1E8dIN-0001IG-01 for ding-account@gmane.org; Fri, 26 Aug 2005 07:26:55 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1E8dII-0001I8-00 for ding@lists.math.uh.edu; Fri, 26 Aug 2005 07:26:50 -0500 Original-Received: from quimby.gnus.org ([80.91.224.244]) by util2.math.uh.edu with esmtp (Exim 4.30) id 1E8dIH-0007iz-DZ for ding@lists.math.uh.edu; Fri, 26 Aug 2005 07:26:49 -0500 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1E8dIG-00063w-00 for ; Fri, 26 Aug 2005 14:26:48 +0200 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1E8dGu-0003W6-4g for ding@gnus.org; Fri, 26 Aug 2005 14:25:24 +0200 Original-Received: from bridgekeeper.physik.uni-ulm.de ([134.60.10.123]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 26 Aug 2005 14:25:24 +0200 Original-Received: from Reiner.Steib by bridgekeeper.physik.uni-ulm.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 26 Aug 2005 14:25:24 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-To: ding@gnus.org Original-Lines: 64 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: bridgekeeper.physik.uni-ulm.de X-Face: :6KQZ[nyoS_edmB.%gw-=)BYth^|2+Y+^cu%I$FSx!&>-'om>3H7A|M&n(V7fIo3P.;yo.b yq4$p;ZaBtkv)\}biaiBQe"mD}iib1AA@99-fZ7i*bLhNRVC&0Wkxg9)SH?oWc@{ Mail-Copies-To: nobody User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) Cancel-Lock: sha1:IeyPpXiwA4sAB48MGFgqGymbps4= X-Spam-Score: -4.6 (----) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:60812 Archived-At: 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/